Excel Running Totals
|
 |
|
The following is the macro that will do a running total for you.
Here is how it works.
You select the cell with the last figure in it.
Then run the Macro - You get an input box - type in the new figure - click OK
Sub runtotals()
currentfigure = ActiveCell.Value
Value = InputBox("Type in your amount to add to running total")
Value2 = Value + currentfigure
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = Value2
End Sub
You get the new total in the cell under the figure you selected.
If you want to automate this a little. Place a button on the worksheet, so all you need
to do is: Select the cell with the last figure then click the button.
If you want to get real automated, you can have it loop until you stop putting
something in the input box.
| 
