Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

como ocultar una fila automaticamente si no posse datos?

2,514 views
Skip to first unread message

Mauricio Olea

unread,
Feb 14, 2005, 12:07:05 PM2/14/05
to
necesito ocultar filas enteras cuando sus valores son cero y que se habran
automaticamente si reciben algun valor superior a cero.
--
Gracias por todo

Héctor Miguel

unread,
Feb 14, 2005, 1:49:38 PM2/14/05
to
hola, Mauricio !

> ... 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.


Mauricio Olea

unread,
Feb 16, 2005, 7:43:07 AM2/16/05
to
Gracias Hector Miguel, tu respuesta me sirvió perfectamente para los fines
que buscaba.
Te lo agradezco, y espero poder rettribuir tu ayuda cuando necesites. mil
gracias.



Héctor Miguel

unread,
Feb 16, 2005, 9:21:23 PM2/16/05
to
hola, Mauricio !

> ... 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.


tu.ase...@gmail.com

unread,
Apr 4, 2017, 4:53:28 PM4/4/17
to
Estupendo a mi tambien me ha ayudado con una pequeña adaptacion, estupendo.

cesar...@gmail.com

unread,
Jun 28, 2018, 12:31:03 AM6/28/18
to
Lo intente pero no me resulta, puse mis filas y me da error:
"Missing ; before statement. (línea 1, archivo "macros")"
Quizás se me pasa algo, podrias darme mas detalles o una captura? gracias
0 new messages