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
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 de mrtool
1