Hallo,

in my UserForm I use a combobox that takes the focus, when the Form
opens. By using shortcut Ctl+D a dropdown is executed so the user is
able to select entries by using the arrow-keys.

Now I would like the programm to act as follows: If the user presses
the return or enter-key the form should close.
How can I reach that?

Thanks in advance.
Leo

How about:
Private Sub ComboBox1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = 13 Then UserForm1.Hide
End Sub

Did you do your shortcut with:
Private Sub ComboBox1_KeyPress( _
ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 4 Then UserForm1.ComboBox1.DropDown
End Sub ' ?
If not, how, please. Tnx D-C

eoleo wrote:
in my UserForm I use a combobox that takes the focus, when the Form
opens. By using shortcut Ctl+D a dropdown is executed so the user is
able to select entries by using the arrow-keys.

Now I would like the programm to act as follows: If the user presses
the return or enter-key the form should close.
How can I reach that?

Thanks in advance.
Leo


----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----

Thanks, works fine!

Leo

On 3 Okt., 21:14, Dave D-C wrote:
How about:
Private Sub ComboBox1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = 13 Then UserForm1.Hide
End Sub

Did you do your shortcut with:
Private Sub ComboBox1_KeyPress( _
ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 4 Then UserForm1.ComboBox1.DropDown
End Sub ' ?
If not, how, please. Tnx D-C

eoleo wrote:
in my UserForm I use a combobox that takes the focus, when the Form
opens. By using shortcut Ctl+D a dropdown is executed so the user is
able to select entries by using the arrow-keys.

Now I would like the programm to act as follows: If the user presses
the return or enter-key the form should close.
How can I reach that?

Thanks in advance.
Leo

----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----http://www.newsfeeds.comThe #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----