ExcelBanter - Adding the changes to only one Cell

ExcelBanter (https://www.excelbanter.com/)

- Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)

- - Adding the changes to only one Cell (https://www.excelbanter.com/excel-worksheet-functions/160882-adding-changes-only-one-cell.html)

Adding the changes to only one Cell

I am trying to add any changes to E4 to F4 as a running total. I want F4 to
keep adding to itself any thing put in E4.

Thanks for any help with this.

Tray

Adding the changes to only one Cell

Right click sheet tabview codeinsert this
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$E$4" And IsNumeric(target) Then _
Range("f4").Value = Range("f4") + target
Application.EnableEvents = True
End Sub

And, if you want e4 to change when you change e4

Option Explicit
Dim oldvalue As Double

Private Sub Worksheet_Change(ByVal target As Excel.Range)
If target.Address = "$E$4" Then
On Error GoTo fixit
Application.EnableEvents = False
If target.Value = 0 Then oldvalue = 0
target.Value = 1 * target.Value + oldvalue
oldvalue = target.Value
fixit:
Application.EnableEvents = True
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tgivin" wrote in message
...
I am trying to add any changes to E4 to F4 as a running total. I want F4 to
keep adding to itself any thing put in E4.

Thanks for any help with this.

Tray

Adding the changes to only one Cell

Exactly what I needed. Thanks

"Don Guillett" wrote:

Right click sheet tabview codeinsert this
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$E$4" And IsNumeric(target) Then _
Range("f4").Value = Range("f4") + target
Application.EnableEvents = True
End Sub

And, if you want e4 to change when you change e4

Option Explicit
Dim oldvalue As Double

Private Sub Worksheet_Change(ByVal target As Excel.Range)
If target.Address = "$E$4" Then
On Error GoTo fixit
Application.EnableEvents = False
If target.Value = 0 Then oldvalue = 0
target.Value = 1 * target.Value + oldvalue
oldvalue = target.Value
fixit:
Application.EnableEvents = True
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tgivin" wrote in message
...
I am trying to add any changes to E4 to F4 as a running total. I want F4 to
keep adding to itself any thing put in E4.

Thanks for any help with this.

Tray

Adding the changes to only one Cell

Just be warned.............you will have no "paper trail" for error checking.

Gord Dibben MS Excel MVP

On Thu, 4 Oct 2007 07:18:00 -0700, tgivin
wrote:

Exactly what I needed. Thanks

"Don Guillett" wrote:

Right click sheet tabview codeinsert this
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$E$4" And IsNumeric(target) Then _
Range("f4").Value = Range("f4") + target
Application.EnableEvents = True
End Sub

And, if you want e4 to change when you change e4

Option Explicit
Dim oldvalue As Double

Private Sub Worksheet_Change(ByVal target As Excel.Range)
If target.Address = "$E$4" Then
On Error GoTo fixit
Application.EnableEvents = False
If target.Value = 0 Then oldvalue = 0
target.Value = 1 * target.Value + oldvalue
oldvalue = target.Value
fixit:
Application.EnableEvents = True
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tgivin" wrote in message
...
I am trying to add any changes to E4 to F4 as a running total. I want F4 to
keep adding to itself any thing put in E4.

Thanks for any help with this.

Tray