Borrar 2 columnas, saltear 1 y luego repetir lo mismo(en un rango)

.

Buenas noches, Rubén

De acuerdo a lo que solicitás aquí va la rutina que hace exactamente eso:

Accedé al Editor de VBA (Atajo: Alt + F11), insertá un módulo y pegá el siguiente código:

Sub BorraColumna()
'variables:
RangoBorr = "A10:AZ90" ' para cambiar rango
CantColBorr = 2 ' cantidad de columnas a borrar por ciclo
CelIni = Cells(Range(RangoBorr).Row, Range(RangoBorr).Column).Address
Repet = Range(RangoBorr).Columns.Count
Do While ColsBorr < Repet
    For Col = 1 To CantColBorr
        Range(CelIni).Offset(0, ColsBorr + Col - 1).EntireColumn.Clear
    Next
    ColsBorr = ColsBorr + CantColBorr + 1
Loop
MsgBox "Terminado. Columnas Borradas!", vbInformation, "Rutina finalizada"
End Sub

hola fernando y gracias;funciona pero hay 2 cosas;

1)le pongo para borrar desde la fila 10 y me borra desde la fila 8("d10:u90") 

2)me borra el formato de una de las columnas y debo mantenerlo porque es formato fecha

.

Qué tal, Rubén!

Efectivamente, consideré que borre todo de toda la columna:

Esta variante borra sólo el contenido dentro de las filas que indiques y mantiene los formatos:

Sub BorraColumna()
'variables:
RangoBorr = "A10:AZ90" ' para cambiar rango
CantColBorr = 2 ' cantidad de columnas a borrar por ciclo
CelIni = Cells(Range(RangoBorr).Row, Range(RangoBorr).Column).Address
FilaFin = Range(RangoBorr).Rows.Count - 1
Repet = Range(RangoBorr).Columns.Count
Do While ColsBorr < Repet
    For Col = 1 To CantColBorr
        Range(Range(CelIni). Offset(0, ColsBorr + Col - 1), Range(CelIni). Offset(FilaFin, ColsBorr + Col - 1)). ClearContents
    Next
    ColsBorr = ColsBorr + CantColBorr + 1
Loop
MsgBox "Terminado. Columnas Borradas!", vbInformation, "Rutina finalizada"
End Sub

Avisame si está OK.

Fernando,parece que quedo perfecto,dejame revisarlo bien y mañana te doy ok final,si?

.

Ok, Rubén

Ojalá esté todo bien.

Abrazo

Fernando

.

listo fernando;funciona perfecto;Millon de gracias;de donde sos en bs as?capital?(antes de perder el contacto al votarte)

.

Me alegro de que te haya funcionado.

Vivo y trabajo en Gran Buenos Aires, aunque nací y crecí en Salta (la Linda).

Abrazo!

Fer

1)¿En dónde en gran bs as(yo soy de capital)das clases de excel?

2)¿Figuras cómo experto para saber si preciso una nueva consulta así me dirijo a vos?(¿O me podes pasar un mail?

.

1) En Ramos Mejía. Y no, no me alcanza el tiempo para tomar alumnos, aunque me gustaría.

2) Si, soy "experto" aquí desde el 2001 aunque tuve que hacer una pequeña pausa de 10 años.

Así que podes encontrarme fácilmente aquí.

Saludos

Fer

.

Ok;yo era de ramos,vivía a 6 cuadras del colegio ward! Bueno, cuando tengas "tiempo" teneme en cuenta como posible alumno, jejeej, ya te valoro entonces;un abrazo y gracias por tu ayuda(seguro que en breve molestare de nuevo, jeejej)

ruben