Sumace una misma celda de varios libros
Tengo varios libros de excel dentro de una carpeta, quiero crear otro libro "Resumen", que realize la suma de todos los libros hoja2 celda k27, existe alguna macro?
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución con esta macro y estas instrucciones:
En un archivo nuevo de excel pega esta macro y guardas el archivo en la misma carpeta donde están los otros.
Una vez grabado en la misma carpeta, lo abres y ejecutas la macro y te pintará en la celda A1 la suma de todas las celdas K27
Sub proceso()
'por luismondelo
ruta = ActiveWorkbook.Path & "\"
mio = ActiveWorkbook.Name
ChDir ruta
archi = Dir("*.xls*")
Do While archi <> ""
If archi = mio Then GoTo salto
Workbooks.Open archi
otro = ActiveWorkbook.Name
suma = suma + Sheets("hoja2").Range("k27")
Workbooks(otro).Close False
salto:
archi = Dir()
Loop
Range("a1").Value = suma
End Sub
