MACRO PARA OCULTAR FILAS

31/12/2003 - 03:06 por dorian+ | Informe spam
hola a todos !!

alguien me podría dar una mano con una planilla que utilizo para control de egresos e ingresos ?

\ en la primer hoja del libro hay un resumen de las cuentas\ cada fila se corresponde con una de ellas\ me gustaría que TODA la fila quedara oculta si en la columna importe el valor es cero y que solo se hiciera visible cuando tuviera un importe distinto de este valor (que lo toma automaticamente de las otras hojas del libro)\ desde ya les agradezco la ayuda que me puedan dar\ espero haber sido claro\ saludos\ dorian+
 

Leer las respuestas

#1 Héctor Miguel
31/12/2003 - 11:54 | Informe spam
hola, dorian !

... resumen de las cuentas ... cada fila se corresponde con una de ellas
... que TODA la fila quedara oculta si en la columna importe el valor es cero
... visible cuando tuviera un importe distinto [...]



'suponiendo' que la primera celda con 'importes' fuera 'E5', copia las siguientes lineas
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Dim Celda As Range
For Each Celda In Range(Range("e5"), Range("e65536").End(xlUp))
If Celda <> 0 Then Celda.EntireRow.Hidden = False Else Celda.EntireRow.Hidden = True
Next
End Sub

nota: si son 'demasiadas' celdas las que 'van ocasionando' ['una por una'] un 're-calculo' en la hoja...
podria ser 'necesario' establecer el modo de calculo [del libro] en 'manual' y usar {F9} para 're-calcular'

saludos,
hector.

Preguntas similares