Insertar la función suma con una macro.

[Benito Bartolomé]

Hola a todos;

He creado una macro que suma toda la columna "G" de una tabla"Tabla1" y arroja el resultado en la celda activa.

Macro:

Sub añadirTotalTabla()
 ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
End Sub

Lo que no sé como programar es que el resultado se aloje en la última fila activa sin necesidad que yo seleccione manualmente dicha celda.

Adjunto macro.

Saludos y buena semana a todos.

Libro1.xlsm

[Benito Bartolomé]

Lo he intentado así y parece que va. 

Adjunto código y me dais vuestro parecer.

Sub añadirTotalTabla()
uf = ActiveSheet.Cells(Rows.Count, "G").End(xlUp).Row + 1
Cells(uf, 7) = "=SUM(R[-5]C:R[-1]C)"
End Sub

Saludos.

[Gerson Pineda]

Hola

Las tablas estructuradas ya traen esa caracteristica, una vez la activas automaticamente toma la ultima fila para el total, ademas no solo SUMA se puede usar, no todo es macros o Vba

Mira la imagen

 

Saludos

[Benito Bartolomé]

Gracias Gerson, desconocía esta función.  Lo tendré en cuenta. 

Muy amable y muy  agradecido. 

 

[Antoni]

Lo mismo con VBA:

ActiveSheet.ListObjects("Tabla1").ShowTotals = True

 

[Benito Bartolomé]

Bo día Antoni;

Gracias por responder. 

Veo que con la macro también se puede hacer.

Un abrazo e agradecido como sempre.

Bo nadal MAESTRO.