Saltar al contenido

Insertar la función suma con una macro.

publicado

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

Featured Replies

publicado
  • Autor

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.

publicado
  • Autor

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

Muy amable y muy  agradecido. 

 

publicado

Lo mismo con VBA:

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

 

publicado
  • Autor

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.

Archivado

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