Sumar las filas y generar una columna al final con los resultados

1 post / 0 nuevos
Gabe_19
Imagen de Gabe_19
Offline
última acción: Hace 4 meses 5 días
alta: 31/03/2020 - 17:00
Puntos: 25
Sumar las filas y generar una columna al final con los resultados

 

Hola soy nuevo con VBA, y estoy tratando de generar las sumas de las filas en una PivotTable con una Macro. El problema es que las filas se actualizan y pueden generar mas valores. Me gustaria arreglar el codigo para que me genere la suma de las filas al final de la ultima de las filas sin importar cuantas la PivotTable tenga.

Codigo: 

 

Sub Suma()

Dim Celda As Object, Rango As Range, LastCol

  LastCol = Cells(5, Columns.Count).End(xlToLeft).Select

    ActiveCell.Offset(0, 1).Value = "SUMA TOTAL"

Set Rango = Range ("D6:D16) ------------------ QUIERO CAMBIAR ESTA LINEA EN VEZ DE TENER LA SUMA DE LAS FILAS EN ESA COLUMNA, TENER LA SUMA CUANDO TERMINE EL NUMERO DE FILAS 

For Each Celda In Rango

Celda.Value = Celda.Offset(0,-2).Value + Celda.Offset(0,-1).Value ------------------------------ ESTA EN LA SUMA DE LA COLUMNA B Y C, PERO AHOARA TENGO VALORES EN LAS COLUMNAS B,C,D,E,F,G...

Next Celda

 

 

End Sub

 Gracias, 

Etiquetas: