Por favor necesito ayuda con una macro que oculte filas bajo una condición dada.
Tengo un problema y no se como resolverlo.
Private Sub CommandButton1_Click()
Dim seguir As Boolean, fila As Integer
seguir = True
fila = 2
ultimaFila = fila - 1
Do While seguir = True
If Worksheets("Hoja1").Range("F" & Format(fila)).Font.ColorIndex = 3 Then
Worksheets("hoja1").Rows(fila).Hidden = True
End If
fila = fila + 1
seguir = Not (Worksheets("Hoja1").Range("F" & Format(fila)).Value = " ")
Loop
End Sub
1 respuesta
Respuesta de pablotecnic
1