Necesito un comando que me permita copiar un mismo rango de distintas hojas y pegarlas en otro libro

Tengo varios libros, y de esos libros necesito copiar siempre el mismo rango de celda, exactamente C2:F366, necesito que vayan uno debajo del otro, y que se copie en un libro nuevo.

1 respuesta

Respuesta
2

[Hola 

Te paso la macro

Sub CopiarUnRango()
'Por.Dante Amor
'Act Adriel ortiz
'
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    '
    ruta = "C:\carpeta\"
    ChDir ruta
    hoja = "Hoja1" ' hoja para extraer datos de cada libro
    archi = Dir("*.xls*")
    Set l1 = ThisWorkbook
    Set h1 = l1.Sheets(1)
    '
    On Error Resume Next
    Do While archi <> ""
        Workbooks.Open archi
        u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets(hoja).Range("C2:F366").Copy
        h1.Range("A" & u).PasteSpecial Paste:=xlPasteValues
        Workbooks(archi).Close
        archi = Dir()
    Loop
    MsgBox "Fin"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas