Macro para ocultar filas vacías, imprimir y volverlas a mostrar

14/10/2005 - 15:45 por Tubok | Informe spam
Tengo una hoja en que se rellenan una serie de filas, comprendidas entre la
10 y la 33.
Me gustaría saber cómo tendría que hacer una macro para ocultar las filas
vacías (que estarán siempre entre la 11 y la 33), me imprima la hoja y me
vuelva a mostrar todas las filas.
Lo que no sé es cómo hacer que busque la primera fila sin datos y oculte las
filas desde esa hasta la 33.

Muchas Gracias,

Tubok
 

Leer las respuestas

#1 Mauro Jesús
14/10/2005 - 13:45 | Informe spam
Hola tubok.

agrega un modulo bas y pega este codigo:

Sub OcultaCeldasVacias
For i = 10 To 30
If ActiveSheet.Cells(i, 1) <> "" Then
ActiveSheet.Cells(i, 1).Select
Selection.EntireRow.Hidden = True
End If
Next i
End Sub


Nota:

Este código hace la comparacion unicamente sobre la columna 1 para saber si
la oculta o no
si la celda i,1 esta vacia, oculta la fila

Saludos! y espero que esto te ayude.


"Tubok" escribió en el mensaje
news:
Tengo una hoja en que se rellenan una serie de filas, comprendidas entre


la
10 y la 33.
Me gustaría saber cómo tendría que hacer una macro para ocultar las filas
vacías (que estarán siempre entre la 11 y la 33), me imprima la hoja y me
vuelva a mostrar todas las filas.
Lo que no sé es cómo hacer que busque la primera fila sin datos y oculte


las
filas desde esa hasta la 33.

Muchas Gracias,

Tubok


Preguntas similares