Selección de Columnas Impares

3 envíos / 0 nuevos
Último envío
zento23
Imagen de zento23
Offline
última acción: Hace 9 años 10 meses
alta: 22/10/2009 - 18:07
Puntos: 35
Selección de Columnas Impares

Hola a todos, quisiera saber como puedo hacer en una macro para seleccionar columnas impares (o pares) con un FOR; es decir, yo quiero seleccionarlas para luego eliminarlas, pero no quiero estar haciendo esto:

- Range("B:B,C:C,.......Z:Z,....").Select

pues tomaría mucho tiempo y no estaría cumpliendo el objetivo de la macro, quizás se pueda utilizar el comando: Columns("C").Select, pero usa Letras no números, por eso no sabría como hacer. Por favor, si me pudieran ayudar les agradeceré bastante.

Saludos.

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 11 horas 59 segs
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10365
Re: Selección de Columnas Impares

Estabas en el buen camino. Columns sí admite números, lo que ocurre es que además entiende las letras

Columns(7).Select 'selecciona la columna 7.

Así que pon el contador de tu bucle dentro de columns

Columns(contador).select

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

 

Data Tools Suite
datos y tablas con Excel

zento23
Imagen de zento23
Offline
última acción: Hace 9 años 10 meses
alta: 22/10/2009 - 18:07
Puntos: 35
Re: Selección de Columnas Impares

Gracias, ya encontré la forma de hacerlo, es así:

For i = 1 To 4
Sheets(i).Select

 
Z = 6 'Columna de inicio
k = 33 'Numero de columnas a eliminar
  For j = Z To k + Z
  'Empieza en la columna 3, tu puedes variar eso
     Columns(j).Delete Shift:=xlToLeft
  Next j

 
Next i
 
Digamos que tengo cuatro hojas en las que quiero hacer la misma operación, la cual es eliminar las columnas impares, con el código de arriba indicado se puedo lograr esto.