Can I do the following: Cell1+Cell2=NewCell1?

[spk4life]

I want to be able to have somewhat of an automatic calculator. I want to keep score of certain data into only one cell. For example.

Cell 1 starts off at 0. When I input 5 on cell 2, it adds it to cell 1 and cell 1 becomes 5. If I then input 10 on cell 2, it would add it to cell 1 again and cell 1 would be 15. Cell 2 would stay blank all the time adding whatever number I input, into cell 1.

 

[My Aswer Is This]

You are not able to create a formula to do that or it would result in a circular loop.
You could put this script into your sheet as a sheet change event.
To install this code:

Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window
Then when you entered a number into cell "A2" it would add that number to cell "A1"
Cell "A2" would retain the number previously entered. We cannot change the value in cell "A2" back to nothing or that would create a script loop.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Cells(1, 1).Value = Cells(1, 1).Value + Cells(2, 1).Value
End If
End Sub

 

[spk4life]

That works! Thank you.

How can I modify the code to use cells A2 and B2?

 

[My Aswer Is This]

So your wanting:
A2=B2+A2

Is that correct?

 

[My Aswer Is This]

If my previous post is correct try this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Cells(2, 1).Value = Cells(2, 2).Value + Cells(2, 1).Value
End If
End Sub

 

[spk4life]

So let's say that column A will have a list of participants who are getting scored. Column B will be their current score. Column C will be the score added to their current score.

 

[spk4life]

Sort of like this:

https://goo.gl/photos/pNfqHnxemWKMgjg46

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo J
If Not Intersect(Target, Range("C:C")) Is Nothing Then
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + Target.Value
End If

Exit Sub
J:
MsgBox "Invalid Value"
End Sub

 

[spk4life]

Worked Great!

Thank you!

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Worked Great!

Thank you!