Dynamic SUM Range Formula

Asked Jun 19 '20 at 19:35

Active Jun 19 '20 at 23:12

Viewed 15 times

I am trying to get the SUM of the LAST 15 rows every time i add more data

Sub SumRange()

'Range("A1", .End(xlDown), Range("ActiveCell").End(xlUp)).Select
Dim upperrang As Long
Dim lowerring As Variant
Dim midpnt As Long
Dim blue As Variant

upperrang = Range("C1").End(xlDown).Select
lowerring = ActiveCell.Address


midpnt = Range("C1").End(xlDown).Offset(-15, 0).Select
blue = ActiveCell.Address
Range("D24").Value = blue

Range("D26").Formula = "=SUM(blue:lowerring)"

End Sub

The output on cell D26 is #NAME?

edited Jun 19 '20 at 23:12

asked Jun 19 '20 at 19:35

OnTheHunt

`testi`, which you declared as `Long`, can't be assigned the string `"=SUM..."` – BigBen Jun 19 '20 at 19:36
1

You will also need to escape the string to put in variables. – Warcupine Jun 19 '20 at 19:38
^^^ Then, `Range("D20").Formula = testi`. – BigBen Jun 19 '20 at 19:39

Dynamic SUM Range Formula

0 Answers0