Assigning a sub to a specific keybordkey

P

PO

Hi!

I have a userform in Excel (version 2000) which has a textbox (txtInvoice)
and a listbox (lstInvoices).

When the user, after typing the invoicenumber into the textbox, presses the
Enter-key (on the numerical keypad) the number should be added to the
listbox.
How do I assign the sub that does the transfer to the Enter-key?

TIA
PO
 
C

Charles

PO said:
Hi!

I have a userform in Excel (version 2000) which has a textbox (txtInvoice)
and a listbox (lstInvoices).

When the user, after typing the invoicenumber into the textbox, presses the
Enter-key (on the numerical keypad) the number should be added to the
listbox.
How do I assign the sub that does the transfer to the Enter-key?

TIA
PO
Click to expand...

PO Try this..

'''' After user enter info they press Tab or Return key the if
statement will evaluate which key and proceed''''

Private Sub txtInvoice_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer) 'tab key



If KeyCode = "9" Or KeyCode = "13" Then
''''''''Your code goes here''''''
End If
End Sub

HTH

Charles
 
Top