I have put the following code in the module of my main userform;

Sub OnKey
Application.Onkey, "{Tab}", "Update"
End Sub

Sub Update()
TextBox586.Value = Worksheets("IncStmtSummary").Range("F5")
TextBox586.Text = Format(TextBox586.Text, "$#,##0")
End Sub

I am attempting to have TextBox586 update whenever the Tab key i
pressed. It does not work. Any suggestions. Does it matter where
put the code??

Thanks

--
Message posted from http://www.ExcelForum.com

Hi

This will work
Don't use Onkey for a macro name because Excel think it is code
In your other code you have a typo ( , after Application.OnKey )

Sub OnKeySub2()
Application.OnKey "{Tab}", "Update"
End Sub

Sub Update()
MsgBox ""
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"bforster1 " wrote in message ...
I have put the following code in the module of my main userform;

Sub OnKey
Application.Onkey, "{Tab}", "Update"
End Sub

Sub Update()
TextBox586.Value = Worksheets("IncStmtSummary").Range("F5")
TextBox586.Text = Format(TextBox586.Text, "$#,##0")
End Sub

I am attempting to have TextBox586 update whenever the Tab key is
pressed. It does not work. Any suggestions. Does it matter where I
put the code??

Thanks.


---
Message posted from http://www.ExcelForum.com/

try this:

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = vbKeyTab Then
Call Update
End If
End Sub

This code must go in the codebehind the form; Update must be a Public
routine to work.

HTH

Tim

"bforster1 " wrote in message
...
I have put the following code in the module of my main userform;

Sub OnKey
Application.Onkey, "{Tab}", "Update"
End Sub

Sub Update()
TextBox586.Value = Worksheets("IncStmtSummary").Range("F5")
TextBox586.Text = Format(TextBox586.Text, "$#,##0")
End Sub

I am attempting to have TextBox586 update whenever the Tab key is
pressed. It does not work. Any suggestions. Does it matter where I
put the code??

Thanks.


---
Message posted from http://www.ExcelForum.com/

Oops

You say userform
See Tim his reply

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
Hi

This will work
Don't use Onkey for a macro name because Excel think it is code
In your other code you have a typo ( , after Application.OnKey )

Sub OnKeySub2()
Application.OnKey "{Tab}", "Update"
End Sub

Sub Update()
MsgBox ""
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"bforster1 " wrote in message ...
I have put the following code in the module of my main userform;

Sub OnKey
Application.Onkey, "{Tab}", "Update"
End Sub

Sub Update()
TextBox586.Value = Worksheets("IncStmtSummary").Range("F5")
TextBox586.Text = Format(TextBox586.Text, "$#,##0")
End Sub

I am attempting to have TextBox586 update whenever the Tab key is
pressed. It does not work. Any suggestions. Does it matter where I
put the code??

Thanks.


---
Message posted from http://www.ExcelForum.com/