MACRO PARA SUMAR LAS CELDAS QUE YO SELECCIONE Y PODER PEGAR EL RESULTADO EN LA QUE YO INDIQUE

[Tilin2023]

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.

[JSDJSD]

Sube tu archivo y pon el ejemplo sobre el mismo

[Antoni]

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 enero por Antoni

[Tilin2023]

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 enero por Tilin2023