Macro para copiar datos de varios libros y pegarlos en un libro nuevo. Libros origen contienen buscarv y lista desplegables
Necesito una macro que me permita copiar los datos de 10 libros de excel a un libro nuevo. Los libros donde están la data contienen fórmulas de buscarv y listas desplegables, es decir el libro se alimenta de otro libro.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub CopiarRangos()
'Por.Dante Amor
'copia rangos de hojas de libros en un libro
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
'l1.Sheets.Add
Set h1 = l1.Sheets("Hoja1")
'
rutaini = l1.Path & "\"
'rutaini = "C:\trabajo"
On Error Resume Next
Set nav = CreateObject("shell.application")
carp = nav.browseforfolder(0, "SELECCIONA CARPETA", 0, rutaini).items.Item.Path
If carp = "" Then Exit Sub
On Error GoTo 0
ChDir carp
'
archi = Dir("*.xls*")
'j = 2
Do While archi <> ""
Set l2 = Workbooks.Open(archi)
Set h2 = l2.Sheets(1)
u = h2.Range("A" & Rows.Count).End(xlUp).Row
j = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Range("A2:A" & u).Copy
h1.Range("A" & j).PasteSpecial xlValues
h2.Range("G2:L" & u).Copy
h1.Range("G" & j).PasteSpecial xlValues
l2.Close False
archi = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "Hojas concentradas"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
