Running Totals

[Dolphinboi]

Hello All:
I work for a hotel, and every night the auditor has to fill out a hand written sheet. I want to know if there is a formula I can use to keep a running total of the month to date revenue using two columns. example

A:1= Today Revenue
B:1= Running total revenue.

Any help would be greatly appreciated.

 

[Yogi Anand]

Hi Dolphinboi:

The code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B" Then
If Not IsNumeric(Target) Then Exit Sub
Application.EnableEvents = False
[D7] = [D7] + [B7]
Application.EnableEvents = True
End If
End Sub

does work -- and Ivan's modifications mean that only when you enter a numeric in cell B7, the code updates the total in cell D7.

You have to make sure that it is entered as WorkSheet_Change code

Regards!

Yogi