Esteban RG

Pega este código en el commandbutton_click f = 2 Do Until Cells(f, 1) = "" If Cells(f, 2) = "" Then GoTo siguiente Cells(f, "H") = textbox4 Cells(f, "I") = textbox6 siguiente: f = f + 1 Loop

Me parece una barbaridad que tengas un libro con tantísimas hojas y con información redundante. Si ya tienes todos los datos en una hoja registro, lo que yo haría es hacer un procedimiento, que cuando selecciones un número de cliente te abra otra...

Reserva una celda para poner la fecha (puedes ponerla en donde no se vea ni te estorbe; p.e. en la celda(1,100)) Ahora inserta esta sub: Que comprobará la fecha cada vez que actives la hoja. Private Sub Worksheet_Activate() mes = Cells(100, 1)...

En el mismo evento <Enter> puedes poner que cambie los colores de los otros. Una cosa así: Private Sub CommandButton1_Enter() CommandButton1.BackColor = &H8FF CommandButton3.BackColor = &H8000000F CommandButton4.BackColor = &H8000000F...

Pega esta sub en la ventana de código de la hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$8" Or Target.Address = "$D$9" Then If Cells(8, "D") <> "" Or Cells(9, "D") <> "" Then Cells(5, "D") = "" Cells(6, "D") = ""...

La sub esta casi bien, tiene algunos errores que te he corregido y ya funciona. Yo la pondría en la hoja de código de la hoja "Principal" con el evento change. Así cuando cambies el valor de la celda "L11" automáticamente se va a ejecutar. Quedaría...

Tienes varias opciones: a) Puedes crear una macro que se ejecute con Control+tecla y que oculte las columnas que en la fila seleccionada estén vacías. b) Puedes crear un evento en la hoja que (p. Ejemplo) al hacer dobleclick en cualquier celda de una...