Macro para ocultar filas de un rango según condición

Necesito una macro que revise el rango AJ4:AJ74 y si uno de estos valores es igual a 0, oculte la fila correspondiente, por el contrario si es mayor a 0 muestre la fila correspondiente a este valor (el rango AJ2:AJ74 es la suma de los datos en las filas anteriores).

Gracias!1

1 Respuesta

Respuesta
1

H o la : Te anexo la macro

Sub Ocultar_Filas()
'---
'   Por.Dante Amor
'---
    Application.ScreenUpdating = False
    Rows("2:74").EntireRow.Hidden = False
    For i = 2 To 74
        If Cells(i, "AJ") = 0 Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next
End Sub

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas