Thread
:
Adding the changes to only one Cell
View Single Post
#
4
Posted to microsoft.public.excel.worksheet.functions
Don Guillett
external usenet poster
Posts: 10,124
Adding the changes to only one Cell
Glad to help
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"tgivin" wrote in message
...
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
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett