ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Closing Form on pressing Enter or Return-key (https://www.excelbanter.com/excel-programming/398479-closing-form-pressing-enter-return-key.html)

[email protected]

Closing Form on pressing Enter or Return-key
 
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


Dave D-C[_3_]

Closing Form on pressing Enter or Return-key
 
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 =----

[email protected]

Closing Form on pressing Enter or Return-key
 
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 =----





All times are GMT +1. The time now is 06:53 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com