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

Respuesta
1

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas