Copiar celdas de manera horizontal

Hola mira yo te pregunte el otro día por una macro que tenia que desplazar lo que estaba abajo ... Bueno al final me resulto y muchas gracias pero ahora tengo otro problema necesito copiar de manera horizontal y no se como hacerlo.. Te adjunto la macro: sub macro1()
dim numero
numero = range("a1")
range("a7:c100").select
selection.clearcontents
selection.clearformats
range("a2:c5").select
selection.copy
for i=1 to numero - 1
range("a" & (5*i + 2)).select
activesheet.paste
next
end sub
Esta copia hacia abajo yo necesito lo mismo pero de manera horizontal osea lo que no se es como hacer variar las letras de las columnas como para abajo es con números es más fácil ero para el lado no se como variar las letras
espero se entienda la pregunta... Gracias por tu tiempo
saludos

1 Respuesta

Respuesta
1
Usa la misma técnica:
Por ejemplo
'Seleccionas el grupo que quieres y copias
Columns("C:F").Select
    Selection.Copy
'Marcas la columna justo anterior al grupo
   Columns("B:B").Select
'y pegas lo que habias copiado.
    Selection.Insert Shift:=xlToRight
Lo único es saber las columnas que quieres copiar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas