|
Hola amigo, para eso tendrías que hacer una función Personal. Aquí te hice una que talvez te sirva. Puedes modificar el rango de la celda a sumar.
Function SumarCeldas(cell)
Dim ValorDato As Double
Dim Addr As String
Dim Wksht As Object
Application.Volatile
Addr = cell.Range("A1").Address
For Each Wksht In cell.Parent.Parent.Worksheets
If Wksht.Name = cell.Parent.Name And _
Addr = Application.Caller.Address Then
' Evitar la referencia circular
Else
ValorDato = ValorDato + Wksht.Range(Addr).Value
End If
Next Wksht
SumarCeldas = ValorDato
End Function
Esta función la puedes llamar desde cualquier celda de la siguiente forma:
=SumarCeldas(A1)
Y listo, te suma todos los datos que esten en la celda A1 de las hojas. No importa si mueves o eliminas hojas, la función siempre se recalculará.
Espero te sirva, saludos
jcgonzalez3165@univision.com
jcgonzalez3165@gmail.com
|
