Función suma

Estoy realizando una macro en la cual necesito hacer sumas, funciona bien para los datos con que realizo la macro pero al cambiar los datos ya no funciona ya que cambian la cantidad de líneas a sumar. La línea queda así.
ActiveCell.FormulaR1C1 = "=SUM(R[-23]C:R[-2]C)"
Quiero saber como ordenar una suma desde un punto como se realiza manualmente pero ya programado en la macro. Cuando se oprime la tecla de suma automáticamente me suma las líneas de arriba pero cuando se graba me hace referencias a líneas especificas, quiero que las haga como si oprimiera en ese momento la tecla suma para que siempre funcione sin importar la cantidad de líneas. Gracias
Respuesta
1
Prueba con algo así:
Sub Sumararriba()
Dim segunda As Variant
Dim primera As Variant
primera = ActiveCell.Offset(-1).End(xlUp).Address
segunda = ActiveCell.Offset(-1).Address
ActiveCell.Formula = "=SUM(" & primera & ":" & segunda & ")"
End Sub
Saludos,

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas