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, tengo un libro con hoja1, hoja2, hoja3 ... Hoja150 en cada hoja 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 resultado: L2:BD2, L3:BD3, L4:BD4... L151:BD151.
Gracias de antemano
1 respuesta
Sigue las Instrucciones para un botón y
ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la
macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo
siguiente:
6. Inserta una imagen en tu libro, elige del
menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de
tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu
hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: copiacolumnas
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub
copiacolumnas()
'Por.DAM
For Each h In Sheets
If h.Name <>
"resultado" Then
h.Range("A2:A46").Copy
u =
Sheets("resultado").Range("L" &
Rows.Count).End(xlUp).Row + 1
Sheets("resultado").Range("L"
& u).PasteSpecial _
Paste:=xlPasteAll,
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End If
Next
End Sub Saludos.Dante Amor
Si es lo que necesitas, por favor, podrías
finalizar la
pregunta.
No funciona la macro sale error de compilación
Prueba nuevamente con esta
Sub copiacolumnas()
'Por.DAM
For Each h In Sheets
If h.Name <> "resultado" Then
h.Range("A2:A46").Copy
u = Sheets("resultado").Range("L" & Rows.Count).End(xlUp).Row + 1
Sheets("resultado").Range("L" & u).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End If
Next
End Sub
