Assigning a sub to a specific keybordkey

[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

 

[Charles]

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

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