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

Funciona perfectamente (cambiando el <> "" por = "")

Muchísimas gracias,

Tubok

"Mauro Jesús" escribió en el mensaje
news:OXbnI$
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

ah!, es verdad, no se de donde saque el <> pero debe ser con
"Mauro Jesús" escribió en el mensaje
news:OXbnI$

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

cambia la línea
Selection.EntireRow.Hidden = True
por
Selection.EntireRow.Delete

Saludos!

escribió en el mensaje
news:
Buen día,

Como puedo hacer esto para eliminar columnas... no deseo imprimirlas,
solo eliminar las que se encuentren vacías.

Un saludo.
Jorge


Tubok ha escrito:

Funciona perfectamente (cambiando el <> "" por = "")

Muchísimas gracias,

Tubok

"Mauro Jesús" escribió en el mensaje
news:OXbnI$
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
>
>

Buen día,

Como puedo hacer esto para eliminar columnas... no deseo imprimirlas,
solo eliminar las que se encuentren vacías.

Un saludo.
Jorge


Tubok ha escrito:

Funciona perfectamente (cambiando el <> "" por = "")

Muchísimas gracias,

Tubok

"Mauro Jesús" escribió en el mensaje
news:OXbnI$
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
>
>