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

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

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