Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Update cell using vba
Using Excel 2003:
What I would like to do is type a number into a cell and then when I hit enter I would like vba to update that number through a formula. I know I could just add another column but if possible I would like to do it the way mentioned. Pete Provencher |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Update cell using vba
I'd use the other cell--just because it might make it easier to update the cell
when I make a typing change. But if you want, rightclick on the worksheet tab that should behave this way. Select View Code and paste this into the code window: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("a:a")) Is Nothing Then Exit Sub On Error GoTo ErrHandler: If IsNumeric(Target.Value) = False Then Exit Sub End If Application.EnableEvents = False Target.Value = Target.Value * 2 + 3 + Target.Value ^ 4 ErrHandler: Application.EnableEvents = True End Sub I check column A -- you may want to change this. And I bet my formula isn't what you wanted. Pete Provencher wrote: Using Excel 2003: What I would like to do is type a number into a cell and then when I hit enter I would like vba to update that number through a formula. I know I could just add another column but if possible I would like to do it the way mentioned. Pete Provencher -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Update cell using vba
Thanks. It worked for what I needed.
Pete Provencher "Dave Peterson" wrote in message ... I'd use the other cell--just because it might make it easier to update the cell when I make a typing change. But if you want, rightclick on the worksheet tab that should behave this way. Select View Code and paste this into the code window: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("a:a")) Is Nothing Then Exit Sub On Error GoTo ErrHandler: If IsNumeric(Target.Value) = False Then Exit Sub End If Application.EnableEvents = False Target.Value = Target.Value * 2 + 3 + Target.Value ^ 4 ErrHandler: Application.EnableEvents = True End Sub I check column A -- you may want to change this. And I bet my formula isn't what you wanted. Pete Provencher wrote: Using Excel 2003: What I would like to do is type a number into a cell and then when I hit enter I would like vba to update that number through a formula. I know I could just add another column but if possible I would like to do it the way mentioned. Pete Provencher -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Data Validation lists update orginal cell with list update | Excel Worksheet Functions | |||
Update Excel cell in formula not refreshing answer cell | Excel Discussion (Misc queries) | |||
auto-hide rows, cell format (# and @), update cell refs, shade cel | Excel Discussion (Misc queries) | |||
Populating Last Saved Date in Cell AND also update that same cell in Header | Excel Discussion (Misc queries) | |||
Copy cell format to cell on another worksht and update automatical | Excel Worksheet Functions |