Buenos días,

Favor me podrían ayudar si hay alguna macro que me permita seleccionar varias celdas  que yo escoja y la suma total poder pegarlo en otra celda que yo elija , quedo atento a su conocimiento.

Sube tu archivo y pon el ejemplo sobre el mismo

Selecciona las celdas a sumar y la celda de destino, la celda de destino debe ser la última que se seleccione, permite cualquier número de celdas y rangos.

Sub SumarRangos()
Dim Total As Double, Rangos As Variant, Celda As Range
Rangos = Split(Selection.Address, ",")
For x = 0 To UBound(Rangos) - 1
   For Each Celda In Range(Rangos(x))
      Total = Total + Celda
   Next
Next
Range(Rangos(UBound(Rangos))) = Total
End Sub

Editado el el 20 de enero1 año por Antoni

hace 39 minutos , Antoni dijo:

Selecciona las celdas a sumar y la celda de destino, la celda de destino debe ser la última que se seleccione, permite cualquier número de celdas y rangos.

Sub SumarRangos()
Dim Total As Double, Rangos As Variant, Celda As Range
Rangos = Split(Selection.Address, ",")
For x = 0 To UBound(Rangos) - 1
   For Each Celda In Range(Rangos(x))
      Total = Total + Celda
   Next
Next
Range(Rangos(UBound(Rangos))) = Total
End Sub

GRACIAS, ERES UN GENIO !!!!!

Editado el el 20 de enero1 año por Tilin2023