Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum in VBA
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum in VBA
Had you tried this in vba you would have gotten an error msg. Then select
the word sum and use f1 to find out how. Sub sumem() MsgBox Sum("g5:g10") End Sub -- Don Guillett SalesAid Software "Susan Hayes" wrote in message ... 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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum in VBA
Here is the code:
ActiveSheet.Range("A17") = Application.Sum(ActiveSheet.Range("A1:A16")) This inserts the total. Not a formula. HTH "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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sum in VBA
Sorry I got the range wong. It should read
ActiveSheet.Range("A17") = Application.Sum(ActiveSheet.Range("A4:A16")) Oops... "Jim Thomlinson" wrote: Here is the code: ActiveSheet.Range("A17") = Application.Sum(ActiveSheet.Range("A1:A16")) This inserts the total. Not a formula. HTH "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. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|