Saltar al contenido

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

publicado

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.

Featured Replies

publicado

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
publicado
  • Autor
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 !!!!!

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.