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 de Adriel Ortiz Mangia
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
Tienes pendiente valorar esta respuesta manito arriba para finalizar
