como sumar libros de una carpeta

"jam" escribió en el mensaje news:

nececito ayuda de como sumar las celdas a30 por ejemplo de todos las hojas
de calculo que esten en una carpeta . muchas gracias

Prueba con el siguiente código, pero ten en cuenta que para que funcione es necesario que la celda a sumar de todos los libros se encuentre en una hoja llamada Hoja1


Sub ConsolidarLibrosEnCarpeta()
'Nota: todos los libros tienen que tener una hoja llamada Hoja1, cuya celda A1 será la que se consolide. _
La consolidación se producirá en la celda E1 de la hoja Hoja1 del libro donde esté éste código, _
a no ser que se modifique el código para especificar el nombre de las hojas.
Dim mtr() As String, n As Long
With Application.FileSearch
.NewSearch
.LookIn = "C:\Datos\Excel" 'Ruta
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
ReDim mtr(1 To .FoundFiles.Count)
For n = 1 To .FoundFiles.Count
mtr(n) = "'" & Left(.FoundFiles(n), InStrRev(.FoundFiles(n), "\")) & "[" & Mid(.FoundFiles(n), InStrRev(.FoundFiles(n), "\") + 1) & "]Hoja1" & "'!R30C1"
Next n
End If
End With
[Hoja1!E1].Consolidate Sources:=mtr, Function:=xlSum 'La consolidación se hará en Hoja1!E1
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel