> ... ocultar filas... cuando sus valores son cero
> ... que se habran automaticamente si reciben algun valor superior a cero.
suponiendo que el rango es: 'D16:D26' ->copia las siguientes lineas<-...
=== en el modulo de codigo de 'esa' hoja ===
Private Sub Worksheet_Calculate()
Dim Celda As Range
Application.ScreenUpdating = False
For Each Celda In Range("d16:d26")
Celda.EntireRow.Hidden = (Celda = 0)
Next
End Sub
si requieres 'invertir el ocultamiento'... modifica a ... = (Celda <> 0)
si tu rango pudiera ser [de]creciente... cambia a... In Range([d16], [d65536].End(xlUp))
saludos,
hector.
> ... me sirvio... para los fines que buscaba.
> Te lo agradezco, y espero poder retribuir tu ayuda cuando necesites.
gracias a ti [por el 'feed-back' y por el ofrecimiento]
'en el camino andamos'
saludos,
hector.