Máximos colaboradores
Popular Content
Showing content with the highest reputation on 01/20/24 in all areas
-
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 Sub2 points