Update Excel Cell Value

[Dancaw]

Hi,

Is it possible to update an existing cell value when i add the new value it adds it to the existing valve I imput?

Example

Paul A1 = 55 I Over type 55 with say 16, when i press enter i want it to say 71 and not 16, is it doable?

Cheers

Dan

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

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

then try entering numbers in A1.

 

[Dancaw]

Hi,

Thank you for a Super Quick Response,

How do i change the code to work on a range of cells eg

AN1: AN20

Tried doing "AN1":"AN20" and "AN1:20" but no luck.

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("AN1:AN20")) Is Nothing Then
    x = Target.Value
    Application.EnableEvents = False
    Application.Undo
    Target.Value = Target.Value + x
    Application.EnableEvents = True
End If
End Sub