Selección de Columnas Impares

3 envíos / 0 nuevos
Último envío
zento23
Imagen de zento23
Offline
última acción: Hace 14 años 5 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 1 día 22 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
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

 

------
Ya sé Excel, pero necesito más.

zento23
Imagen de zento23
Offline
última acción: Hace 14 años 5 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.