Macro que extraiga el valor de A1 de libros con distintos nombres.
Hola espero me puedan ayudar.Necesito un macro que extraiga el valor de la celda A1 de los libros origen VIC01.xls, VIC02.xls, VIC03.xls, VICXX.xls, y pegue en la columna A el valor de la celda copiada y en la columna B el nombre del libro esto en el libro ORIGEN.xls, . Todos los libros se encuentran en el mismo directorio. Gracias espero me puedan ayudar.
1 Respuesta
Respuesta de Dante Amor
1
Ejecuta la siguiente macro en el libro Origen en la hoja en la que quieres los resultados.
Sub agrupar()
'Por.DAM
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
u = h1.Range("B" & Rows.Count).End(xlUp).Row
If u < 2 Then u = 2
ruta = l1.Path
h1.Range("A2:B" & u).ClearContents
ChDir ruta
archi = Dir("VIC*.xls*")
f = 2
Do While archi <> ""
Set l2 = Workbooks.Open(archi)
h1.Cells(f, "A") = ActiveSheet.Range("A1")
h1.Cells(f, "B") = archi
f = f + 1
l2.Close False
archi = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "Se leyeron " & f - 2 & " libros", vbInformation, "PROCESO TERMINADO"
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
¡Gracias! Dante Amor.
EXCELENTE Aportacion, Sabia que me iva a resolver pero no pense que tan RAPIDO Y PRECISO.
SALUDOS
