copiar columnas

hola, 'anonimo/a' !

... intento... mediante codigo... escoger presionando un boton la columna A de la hoja 1 y pegarla en la columna A de la hoja 2
... se vuelve a presionar el mismo boton y ahora se selecciona la columna C de la hoja 1 y se pega en la misma columna A de la hoja 2
y asi sucesivamente hasta que se terminen los columnas con informacion.
El recorrido de las columnas en la hoja 1 es pasando una ( A, C, E, G, Etc.)

no se que tipo de boton estes pensando en utilizar, ni en cual de las hojas estaria incrustado -?-
el siguiente ejemplo es una macro normal desde un modulo de codigo estandar
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Copia_columnas_saltadas()
Static Col As Byte
Dim nCol As Byte
With Worksheets("hoja1")
nCol = .Range("iv1").End(xlToLeft).Column
If Col < 1 Or Col + 2 > nCol Then Col = 1 Else Col = Col + 2
.Columns(Col).Copy Destination:=Worksheets("hoja2").Range("a1")
End With
End Sub

On 25 oct, 21:27, "Héctor Miguel"
wrote:

hola, 'anonimo/a' !

> ... intento... mediante codigo... escoger presionando un boton la columna A de la hoja 1 y pegarla en la columna A de la hoja 2
> ... se vuelve a presionar el mismo boton y ahora se selecciona la columna C de la hoja 1 y se pega en la misma columna A de la hoja 2
> y asi sucesivamente hasta que se terminen los columnas con informacion.
> El recorrido de las columnas en la hoja 1 es pasando una ( A, C, E, G, Etc.)

no se que tipo de boton estes pensando en utilizar, ni en cual de las hojas estaria incrustado -?-
el siguiente ejemplo es una macro normal desde un modulo de codigo estandar
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Copia_columnas_saltadas()
Static Col As Byte
Dim nCol As Byte
With Worksheets("hoja1")
nCol = .Range("iv1").End(xlToLeft).Column
If Col < 1 Or Col + 2 > nCol Then Col = 1 Else Col = Col + 2
.Columns(Col).Copy Destination:=Worksheets("hoja2").Range("a1")
End With
End Sub

Gracias por tu ayuda Hector Miguel

Mira el boton a usar es el de los formularios, y va a estar en la hoja
2, el tema es que tengo una programación semanal por 6 meses y lo que
quiero es poder pasar la columna de cada semana a una hoja de resumen
presionando este boton.

Espero que este clara mi explicación.