ocultar fila con condicional

hola, 'anonimo' !

Necesito ocultar las filas de una hoja, sujetas a la siguiente condicion
por ejemplo si en la fila 4 la celda AB4 >0, se oculta si no se muestra y asi las demas filas
fila 30, AB30>0, se oculta, si no se muestra.-

1) toma nota que al modificar las propiedades de un rango por codigo, se pierde el beneficio del deshacer, undo, ctrl+Z :-((

2) tambien deberas decidir si las siguientes lineas las usas [p.e.] en el evento '_calculate' de *esa* hoja...
o las dejas en una macro que sea ejecutada a voluntad/discrecion/necesidad/... -?-

Dim Celda As Range
For Each Celda In Range("ab4,ab30")
Celda.EntireRow.Hidden = Celda = 0
Next

3) si necesitas incluir otras celdas... [ya sabes cual linea modificar] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola [de nuevo], 'anonimo' ! [fe de erratas, disculpa] :))

por ejemplo si en la fila 4 la celda AB4 >0, se oculta si no se muestra y asi las demas filas
fila 30, AB30>0, se oculta, si no se muestra.-

Dim Celda As Range
For Each Celda In Range("ab4,ab30")
Celda.EntireRow.Hidden = Celda = 0
Next

modifica: Celda = 0
por: -> Celda > 0

saludos,
hector.

1º gracias, trabajo con los datos que me diste y te comento
Abrazo
Richard

"Héctor Miguel" escribió:

hola [de nuevo], 'anonimo' ! [fe de erratas, disculpa] :))

>> por ejemplo si en la fila 4 la celda AB4 >0, se oculta si no se muestra y asi las demas filas
>> fila 30, AB30>0, se oculta, si no se muestra.-

> Dim Celda As Range
> For Each Celda In Range("ab4,ab30")
> Celda.EntireRow.Hidden = Celda = 0
> Next

modifica: Celda = 0
por: -> Celda > 0

saludos,
hector.

"Rew" escribió:

1º gracias, trabajo con los datos que me diste y te comento
Abrazo
Richard

"Héctor Miguel" escribió:

> hola [de nuevo], 'anonimo' ! [fe de erratas, disculpa] :))
>
> >> por ejemplo si en la fila 4 la celda AB4 >0, se oculta si no se muestra y asi las demas filas
> >> fila 30, AB30>0, se oculta, si no se muestra.-
>
> > Dim Celda As Range
> > For Each Celda In Range("ab4,ab30")
> > Celda.EntireRow.Hidden = Celda = 0
> > Next
>
> modifica: Celda = 0
> por: -> Celda > 0
>
> saludos,
> hector.
>
>
>

Hola Hector,

Algo debo estar haciendo mal con tu fórmula, con esta fórmula funciona solo
para una línea

Private Sub Worksheet_Change(ByVal Target As Range)
With Rows(20)
If Range("C15") = 0 Then _
.Hidden = True Else _
.Hidden = False
End With
End Sub

Sobre esta base, que es lo que debo cambiar, para que me lo haga en todas
las filas de una hoja de trabajo.-

Gracias de nuevo.-
SDS
Richard