Eliminar columnas discontinuas

[Gallo66]

Hola:

Necesito eliminar estas columnas ("A:E, G:G, I:J, L:M, O:Q, S:T, V:W, Y:Z, AB:AC, AE:AF"), pero no lo consigo con ninguna de las macros que he visto. Por ahora he conseguido una que funcione que aquí adjunto:

Sub Eliminar_Col()
Range("A:E").Select
Selection.Delete
End Sub

pero solo elimina, lógicamente, las primeras 5 columnas porque no sé cómo se pueden añadir las otras. He intentado múltiples formatos para añadirlos a "Range" pero siempre me da error.

Muchas gracias 

[Haplox]

@Gallo66 , busca la ayuda para la función "Application.Union"

Union(Range("A:B"), Range("D:D")).ClearContents

 

[Janlui]

ESPERO Y TE SIRVA

 

Sub ELIMINA()
    Range("A:E,G:G,I:J,L:M,O:P,S:T,V:W,Y:Z,AB:AC,AE:AF").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub
 

[JSDJSD]

Hola  Gallo66, te dejo otra opción, prueba y comenta

Eliminar Columnas Prueba 1.xlsm

[Gallo66]

Estimado JSDJSD:

He aplicado tu propuesta y lo que he conseguido es que se elimine el contenido de esas columnas. Es muy interesante pero para lo que estoy intentando hacer, lo que realmente necesito es que se eliminen las columnas y que el resultado sea una hoja que contenga exclusivamente las columnas que necesito.

En cualquier caso, muchas gracias por tu rápida propuesta.

[JSDJSD]

Ok, el cambio que hay que realizar es muy simple, mañana en cuanto pueda te lo subo modificado.

[Janlui]

Ya te pude el código para que lo apliques.

[Gerson Pineda]

Hace 3 horas, Gallo66 dijo:

Estimado JSDJSD:

He aplicado tu propuesta y lo que he conseguido es que se elimine el contenido de esas columnas. Es muy interesante pero para lo que estoy intentando hacer, lo que realmente necesito es que se eliminen las columnas y que el resultado sea una hoja que contenga exclusivamente las columnas que necesito.

En cualquier caso, muchas gracias por tu rápida propuesta.

Hola

Por favor revisa las otras respuesta que te han proporcionado, tanto @Haplox como @Janlui

Y mientras @JSDJSD te envia el archivo modificado, solo es cosa de reemplazar 

Esto
.ClearContents

Por esto
.Delete 

 

Saludos 

[Antoni]

Range("A:E, G:G, I:J, L:M, O:Q, S:T, V:W, Y:Z, AB:AC, AE:AF").EntireColumn.Delete

 

[Gallo66]

Antoni:

Muchas gracias. Ya me explicaron que simplemente tenía que cambiar y escribir delete ... ahora ya me funciona. ?

[JSDJSD]

Hace 36 minutos , Gallo66 dijo:

Antoni:

Muchas gracias. Ya me explicaron que simplemente tenía que cambiar y escribir delete ... ahora ya me funciona.

Hola  Gallo66, lo que te están proponiendo el Maestro Antoni, el Maestro  Haplox, y  Janlui, son otras opciones perfectamente validas para lo que solicitas, por lo que deberías probarlas y tenerlas en cuenta, así como agradecer su colaboración mediante el corazoncillo que hay en la parte inferior derecha, tal cual lo has hecho con migo y con el Maestro  Haplox, un saludo.

Eliminar Columnas Prueba 2.xlsm