Input dollar amount into a cell that updates another cell and more

[Bill]

Help!

I am racking my brain trying to figure out how to input a dollar figure into
a cell (A1)that updates another cell (A2) with the running total (easy to do)
but the hard part is when you want to add in the next dollar figure in the
same cell (A1) but you want to increase the value in A2 by this new number.

Why do I want to do this?

I have created a spreadsheet for a game and instead of using paper money I
want to be able to increase or decrease the player's dollar amount by having
the player (knows nothing about excel) input the dollar amount they want to
either increase or decrease their running total by and I want to keep it
simple for the player so they do have to add formulas when they enter the new
dollar figure.

Hope this makes sense?

 

[Peo Sjoblom]

You would need a macro or circular reference function where you would
change the iterations (I would recommend the macro)


http://www.mcgimpsey.com/excel/accumulator.html

--


Regards,


Peo Sjoblom

 

[Mike H]

Hi,

You need a macro, right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And IsNumeric(Target) Then
Application.EnableEvents = False
Range("A2").Value = Range("A2").Value + Target.Value
Application.EnableEvents = True
End If
End Sub

Mike

 

[Don Guillett]

Right click sheet tab>view code>copy/paste this. Change cell address to
suit.

Private Sub Worksheet_Change(ByVal target As Excel.Range)
With target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub

 

[Bill]

Peo you are awesome!

This exacting what I want to do and now I will teach myself how to create a
macro in order to make this work.

Thanks again,

Bill

 

[Bill]

Thanks Don

Works like charm!

Right click sheet tab>view code>copy/paste this. Change cell address to
suit.

Private Sub Worksheet_Change(ByVal target As Excel.Range)
With target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[Bill]

Thanks for your help.

 

[Bill]

Thanks Mike for your help!

Hi,

You need a macro, right click your sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And IsNumeric(Target) Then
Application.EnableEvents = False
Range("A2").Value = Range("A2").Value + Target.Value
Application.EnableEvents = True
End If
End Sub

Mike