leone

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...

Si existe un aforma muy fácil. Selecciona la hoja donde están los datos con el carácter a eliminar Ve al Menu->Edición->Reemplazar (Ctrl+L) En el campo Buscar coloca el carácter ° Reemplazar con dejalo Vacío Haz click en en botón "Reemplazar Todos"...