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

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