Ocultar filas con rango variable

En la "HOJA1", se diligencian datos en forma de lista en la columna C, esta cantidad de datos varia entre 1 y 437 registros. Lo que requiero es una macro que me oculte las filas que no se diligencian entre el rango C12:C437, es decir que si diligencio 2 registros C12:C14, me oculte las filas C15:C437.

2 respuestas

Respuesta
1

Esto te servirá:

Sub OCULTA()
Range("C12").Select
For i = 1 To 426
If ActiveCell.Value = "" Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
Respuesta
1

Te anexo la macro para ocultar

Sub Ocultar_Filas()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    For i = 437 To 12 Step -1
        If Cells(i, "C") = "" Then Rows(i).Hidden = True
    Next
    MsgBox "Filas ocultas"
End Sub

También si en un momento quieres mostrar todas las filas, puedes utilizar esta macro:

Sub Mostrar_Filas()
'Por.Dante Amor
    Cells.EntireRow.Hidden = False
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas