"ADDING DAILY VALUE TO MONTHLY VALUE"


Posted by DALE MINKEL on February 13, 2002 1:06 PM

: OKAY, HERE'S THE SCENARIO..
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim OldValue
If Target.Address <> "$B$1" Then Exit Sub
OldValue = Range("B2").Value
Range("B2").Value = OldValue + Target.Value
End Sub

Posted by Barrie Davidson on February 13, 2002 2:47 PM

Dale, the above code worked for me. What problems did you have?

BarrieBarrie Davidson

Posted by Richard Winfield on February 13, 2002 3:00 PM

Code worked for me too. I wonder if possibly he still has iteration checked and set at 1?

Rick



Posted by Richard Winfield on February 13, 2002 3:13 PM

Well I tried that and it didn't seem to make any difference. VBA still worked correctly.

Rick