Como ocultar filas según criterio
Me preguntaba como puedo hacer para que si en la Columna "N" hay un "0" o un "-" toda la fila se esconda, la columna tiene un rango variable, yo hice y trate de usar este código pero no me funciona
Set rng = Range("N7", Range("N7").End(xlDown))
For Each celda In Range("rng")
If celda.Value <= 0 Then
ActiveCell.EntireRow.Hidden = True
Else
ActiveCell.EntireRow.Hidden = False
End If
ActiveCell.Offset(1, 0).Select
Next celdaLe agradezco mucho de antemano a quien pueda ayudarme con esto, y estaré atento por si necesitan más detalles.
2 Respuestas
Respuesta de Dante Amor
4
Te anexo la macro
Sub ocultar_filas()
Cells.Rows.Hidden = False
For i = 7 To Range("N" & Rows.Count).End(xlUp).Row
If Cells(i, "N").Value = 0 Or Cells(i, "N").Value = "-" Then
Rows(i).Hidden = True
End If
Next
MsgBox "Fin"
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
