Macro que extraiga existencias que se encuentran en varios archivo.(Va dirigida a Dante Amor)
Buenas noches Dante, ahora te molesto por lo siguiente, por favor se podría armar una macro en excel 2003 para abrir archivos y copiar el código, la denominación y la existencias, y trasportar dichos datos a una planilla con todos los resultados?.
Te explico que yo arme en el disco local "C" una carpeta denominada "Stock" dentro de la misma otra denominada "Artículos", donde almaceno todos los artículos por archivos separados (Ej. Articulo1, Articulo2, Articulo3.....) la macro debería tomar el código del articulo, la denominación y la existencia, estos tres datos están ubicados en las celdas A2:C2, para todos los articulo son las misma celda, la otro carpeta se denomina "Datos" donde se encuentra la planilla de existencia de donde tendría que ejecutarse la macro, y el primer dato a insertar seria en la celda A9, y Cuando la macro termine de recorrer todos los archivos ubicados en la carpeta de Artículos se detenga.
C:\Stock\Artículos
C:\Stock\Datos
Desde ya muchas gracias
JC
1 respuesta
Agrega la siguiente macro en tu archivo planilla.
Faltó que mencionaras cómo se llaman las hojas de los archivos Articulo1, Articulo2, Articulo3, etc.
En la macro estoy poniendo que se llaman "Hoja1", si tienen otro nombre, cambia en la macro donde diga "Hoja1" por el nombre de la hoja. Todos los libros deberán tener una hoja con el mismo nombre.
Sub valores()
'Por.Dante Amor
Set h1 = ActiveSheet
h1.Range(h1.[a8], h1.[a8].SpecialCells(11)).Offset(1).Delete xlShiftUp
ruta = "c:\stock\articulos"
arch = Dir(ruta & "\*.xls*")
f = 9
Do Until arch = ""
With h1.Cells(f, "a").Resize(, 3)
.Formula = "=if('" & ruta & "\[" & arch & "]Hoja1'!a2="""", """", '" & ruta & "\[" & arch & "]Hoja1'!a2)"
.Value = .Value
End With
arch = Dir
f = f + 1
Loop
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
