Sum in VBA
The answers that you have so far "hard code" th erange to be summed
The example below adds some flexibility, although for the example I left out
error handling - you can do that :)
I have data in column C starting at line 4, my "test" adds the total
Option Explicit
Public Sub Test()
AddTotals 4, "C"
End Sub
Public Sub AddTotals(lFirstRow As Long, sColumn As String)
With Cells(lFirstRow, sColumn).End(xlDown).Offset(1, 0)
.FormulaR1C1 = "=SUM(R[-1]C:R" & lFirstRow & "C)"
End With
End Sub
"Susan Hayes" wrote:
Hello
How can I sum up for example A4 through A16 and have the total appear in A17, i.e., A17 = SUM(A4:A16)
What is the VBA syntax to get the above.
Thank you,
Jen T.
|