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 de Victor Rodriguez
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 de Dante Amor
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
.