Forums Últimos mensajes - Powered by IBM
 

MACRO OCULTAR FILAS

30/06/2005 - 02:18 por HMS | Informe spam
Hola Amig@s.

Tengo una BD, la cual es EXPORTADA de un sistema. a EXCEL.
Quisera crear una macro que OCULTE, las filas en las que se encuentren
números, menores a 1.
Estos números se pueden ubicar en distintas columnas de la BD.

Quisiera tambien y en caso de que lo necesite, aplicar una MACRO, que me
restaure las filas ocultas.
De antemano gracias.
HMS
 

Leer las respuestas

#1 xolobero
30/06/2005 - 03:26 | Informe spam
prueba esto:


Sub OCULTAR()
Dim X As Integer
Dim RG As Range
Set RG = Range("A1").CurrentRegion
For X = RG.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountIf(RG.Rows(X), "<1") > 0
Then
RG.Rows(X).Hidden = True
End If
Next X
End Sub


Sub desOCULTAR()
Cells.EntireRow.Hidden = False
End Sub


HMS ha escrito:
Hola

Tengo una BD, la cual es EXPORTADA de un sistema. a EXCEL.
Quisera crear una macro que OCULTE, las filas en las que se encuentren
números, menores a 1.
Estos números se pueden ubicar en distintas columnas de la BD.

Quisiera tambien y en caso de que lo necesite, aplicar una MACRO, que me
restaure las filas ocultas.
De antemano gracias.
HMS

Preguntas similares