Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
adding a formul to the next cell only with the next cell number | Excel Discussion (Misc queries) | |||
Adding numbers in one cell and showing total in seperate cell | Excel Discussion (Misc queries) | |||
Adding everything but last cell | Excel Discussion (Misc queries) | |||
Adding the same cell in different worksheets. Can that cell be variable? | Excel Worksheet Functions | |||
adding a formula in a cell but when cell = 0 cell is blank | Excel Worksheet Functions |