leone

No entiendo la pregunta de dividir el código. Esto es un evento que se ejecuta cada vez que en la hoja se cambia el valor de las celdas. Este evento no puede ser invocado con Call. Chequea y me avisas.

Prueba con el siguiente código, debes pegarlo en el editor de Visual basic de excel de la hoja1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Column = 1 And Cells(ActiveCell.Row - 1, 1).Value <> "" Then...

Asigna una sola macro al botón, solo debes validar el estado del checkbox. Sub Macro_Checbox1() ActiveSheet.Shapes("Check Box 1").Select Select Case Selection.Value Case xlOn Range("A1").Interior.Color = RGB(50, 50, 50) Case xlOff...

Como lo estas haciendo esta bien coloca las dos comillas dobles juntas y listo, sin espacios entre ellas ("").

Puedes Utilizar la función CONTAR. SI Si tienes los datos en la columna A, coloca en la columna B la siguiente fórmula así: =CONTAR.SI($A$1:$A$100;A1) Cambia el ango de la Matriz $A$1:$A$100 donde se buscara el criterio en este caso A1, te dará como...

Utiliza la función sustituir En la celda =SUSTITUIR(C2;CARACTER(34);"") En vba "=SUBSTITUTE(RC[-1],CHAR(34),"""")"

Te envío un código para que lo tomes como punto de partida para diseñar lo que requieres. Inserta dos objetos ListBox1 y ListBox2. Debes pegar este código en la hoja dionde están los objetos. Cambia el código según tus necesidades. Private Sub...

Aplica la siguiente fórmula colocando en la celda D1 =SI(A1<=0;"NORMALIZADO";SI(A1=1;SI(B1>C1;"MANTENIDO";"PROXIMO VENCIMIENTO");"DETERIORADO"))

He realizado un libro con excel con varias opciones. Al abrirlo con OpenOffice funciona correctamente. Lo que podemos hacer es que agregues un Cuadro de grupo o frame para insertar los option button y probar nuevamente si funciona. Sino enviame el...

Prueba con las modificaciones que he realizado y me avisas. Sub macro1() Sheets("Hoja1").Select Range("A1").Select Range(Cells(Selection.Row, 1), Cells(Selection.Row, 18)).Cut Sheets(2).Select Range("C1").Select If IsEmpty(Range("C1").Value) = False...