add to existing value

[fatdog]

I need to allow people to enter values that are then added to a single cell to maintain a running total, but i want to keep it as simple as possible for the user so they don't need to add values manually to avoid potential user error

a simplified example, if 10 was in a cell already, one person may need to submit a value of 4, another user 6, and at the end of the day i would expect to see a single cell containing the number 20

if a1 contains a value, is it possible to have it setup so someone can enter a value into b1 then that value will be added to the number currently in a1 and then b1 is then cleared ready for the next person

or alternatively could someone enter a value into cell a1 directly and it be added to the current value rather than clearing and replacing whats already in there

any tips would be greatly appreciated

 

[Peter_SSs]

sorry didn't think that was relevant

If you need code altered to suit your particular circumstances and are not able to do it yourself, then your particular circumstanced are definitely relevant.


There would be two changes to my code, marked red below

Set Bchanged = Intersect(Target, Range("K14:K25"))


With Bcell.Offset(, -2)

 

[footoo]

or alternatively could someone enter a value into cell a1 directly and it be added to the current value rather than clearing and replacing whats already in there

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range, x, y
Set cell = Intersect(Target, [A1])
If cell Is Nothing Then Exit Sub
With Application
    .EnableEvents = False
    x = cell
    .Undo
    y = cell
    On Error Resume Next
    cell = x + y
    On Error GoTo 0
    .EnableEvents = True
End With
End Sub

 

[Peter_SSs]

@footoo
Are you answering the current question or the 5 year old one?

 

[footoo]

@footoo
Are you answering the current question or the 5 year old one?

The 5 year old one. Didn't notice it was 5 years old.

 

[Peter_SSs]

The 5 year old one. Didn't notice it was 5 years old.

Happens to most of us occasionally.

 

[Luigi802]

Thank you, I will try that when I get back to work Sunday night!

 

[Luigi802]

Starting with your original code:

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

What lines exactly do I change? Sorry, like I said I'm not really good with Macros

 

[Peter_SSs]

Starting with your original code:

That seems like you are addressing VoG from post #2. VoG has not participated in the forum from quite some time.

What lines exactly do I change?

In post #11 I suggested two changes to my code from post #4, not VoG's code. Have you tried that?

 

[Luigi802]

If you need code altered to suit your particular circumstances and are not able to do it yourself, then your particular circumstanced are definitely relevant.


There would be two changes to my code, marked red below

Set Bchanged = Intersect(Target, Range("K14:K25"))


With Bcell.Offset(, -2)

Sorry I know this is an old post, but I have a need for this again and don't have my original document. I see your 2 code changes, but I'm not sure where to put that code, or what exactly to change in your code here:
This was to do this on a range of cells in a table i.e. whenever I change any cell in column Table21[Amount] it will add it to the total in that same cell "or adjacent cell"

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