Macro para eliminar columnas

Sub OcultaColumnasVacias
For i = 3 To 9 '3= columna C, 9=columna I
If ActiveSheet.Cells(1,i) = "" Then
ActiveSheet.Cells(1,i).Select
Selection.EntireColumn.Delete
End If
Next i
End Sub


Saludos!

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

Tengo columnas de la C a la I de las cuales quiero eliminar las que en
la primer celda no haya datos.

Me pueden, por favor, ayudar ?

Un saludo.
Jorge

Carlos,

El caso es que no se cuando estará vacía cual columna.
Primero debo encontrarla en ese rango.
Tienes el código ??

Muchas gracias por tu apoyo.
Un saludo.
Jorge

Hola...

No estoy seguro de haber entendido, pero supongo lo siguiente, quieres
eliminar todas las columnas (de C a I )en donde la primer celda (de arriba a
abajo) esté vacía

puedes grabar una macro de la siguiente manera

Activa la grabadora de macros
Selecciona las celdas de C a I, en la fila donde deseas verificar si hay
datos o no (primer fila)
En el menu Edicion / Ir A... / Especial, selecciona celdas en blanco
En el menú Edicion / Eliminar / toda la columna

Termina de grabar, ahora ya tienes una macro que elimina todas las columnas
de C a I, donde la primer celda esté en blanco

Saludos
Carlos Durán





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

Tengo columnas de la C a la I de las cuales quiero eliminar las que en
la primer celda no haya datos.

Me pueden, por favor, ayudar ?

Un saludo.
Jorge

Carlos,

Funciona perfectamente !!!
Muchas gracias !!!
Un saludo.
Jorge



Carlos Durán Urenda ha escrito:

Hola...

No estoy seguro de haber entendido, pero supongo lo siguiente, quieres
eliminar todas las columnas (de C a I )en donde la primer celda (de arriba a
abajo) esté vacía

puedes grabar una macro de la siguiente manera

Activa la grabadora de macros
Selecciona las celdas de C a I, en la fila donde deseas verificar si hay
datos o no (primer fila)
En el menu Edicion / Ir A... / Especial, selecciona celdas en blanco
En el menú Edicion / Eliminar / toda la columna

Termina de grabar, ahora ya tienes una macro que elimina todas las columnas
de C a I, donde la primer celda esté en blanco

Saludos
Carlos Durán





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

Tengo columnas de la C a la I de las cuales quiero eliminar las que en
la primer celda no haya datos.

Me pueden, por favor, ayudar ?

Un saludo.
Jorge

Hola
Precisamente el comando Edicion / Ir A... / Especial / Celdas en blanco, se
encarga de determinar cuales celdas estan vacias

lo que no estoy seguro es si deseas determinar cuales columnas estan
completamente vacias o cuales columnas tienen la primer celda vacia, si es
el segundo caso, la respuesta que te habia dado te debe servir, de lo
contrario confirmamelo para ver como armamos el codigo


Saludos
Carlos Durán


escribió en el mensaje
news:
Carlos,

El caso es que no se cuando estará vacía cual columna.
Primero debo encontrarla en ese rango.
Tienes el código ??

Muchas gracias por tu apoyo.
Un saludo.
Jorge