Saludos!

He leído de consultas similares, pero en este caso las columnas a seleccionar tienen intervalos de cada 3 columnas (Seleccionar columna 1, 4, 7, 10... etc) en hojas de hasta 500 columnas con información. Posterior pegar estas columnas en otra hoja quedando contiguas. 

¿Tendría que seleccionar cada nombre de columna? Range ("A:A", "D:D", "G:G"... Etc ). Adjunto archivo ejemplo.

Mil gracias.

Elasticidad de Precios Feb 2021.xlsx

Si puedo, mañana le hecho un vistazo.

Hace 7 horas, MVelazquez dijo:

¿Tendría que seleccionar cada nombre de columna? Range ("A:A", "D:D", "G:G"... Etc )

Hola

Te dejo 2 alternativas como solución

Copiar columnas intercaladas_GP.xlsm

 

Saludos 

Otra más:

Sub CopiarColumnasDe3En3()
Application.ScreenUpdating = False
Sheets("POS QTY").Cells.Clear
For x = 1 To Sheets("BD").Range("A1").End(xlToRight).Column Step 3
   columna = columna + 1
   Sheets("BD").Columns(x).Copy Sheets("POS QTY").Columns(columna)
Next
End Sub

 

Antoni & Gerson, muchas gracias. Ambas soluciones lo resuelven perfectamente.

Saludos.