Copiar rango de columna y pegar en rango de fila

Dios les bendiga, tengo el siguiente rango de celdas en columna las cuales quiero pegar en un rango de celdas en otra hoja pero en fila, en la hoja 1 tengo el siguiente rango a2:a46 y quiero pegar tanto el rango y el formato de relleno de celda en el siguiente rango de celdas en fila en la hoja 2: L2:BD2

1 respuesta

Respuesta
1

Entrá al Editor de macros, insertá un módulo y allí copiá esto:

Sub Transponer()
'x Elsamatilde
'copia rgo A2:A46
 Range("A2:A46").Copy
'pega con formatos y traspuesto en L2 de Hoja2
 Sheets("Hoja2").Select
 Range("L2").Select
 Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
 False, Transpose:=True
 Application.CutCopyMode = False
 Range("L2").Select
End Sub

PD) Podés ejecutarlo desde el mismo Editor, con un botón o atajo de teclado. En la sección Macros de mi sitio dejo explicados estos temas.

Sdos y no olvides finalizar la consulta.

Dios le bendiga gracias por su respuesta es lo que estoy buscando si lo quiero hacer para otras hojas es decir si tengo hoja1, hoja2, hoja3 ..... hoja150 como quedaría para que se pegue el formato para cada rango de empezando desde l2:bd2, l3:bd3, l4:bd4 ... l151:bd151

De antemano gracias.

Nuevas consultas en nuevas entradas por favor. Una vez que finalices ésta podes dejar otra en el tablón y con mucho gusto te seguiré asistiendo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas