Excel Double Click/Enter Listbox

[RJ1969]

Hello Everyone,

I have a listbox1 in the userform and I want to be able to use either the double clicking from the mouse or use an "enter" key.
I already have a code for double click but I need to add the enter key code with it.
Please help. Thank you.

Please Login or Register  to view this content.

[mjr veverka]

Try this event:

Please Login or Register  to view this content.

[RJ1969]

sorry, it did not work.
received a debugged error:
on this code:

UserForm1.TextBox1.Value = UserForm1.ListBox1.Value

[mjr veverka]

it did not work.
received a debugged error:

1. Maybe your UserForm has a different name, should be UserForm1 - see enclosure "Book1.xls"
2. Have you selected the appropriate references in the vba editor ? - see pictures (new excels can have a higher numbering)
3. From contextual help vba:
"The KeyDown and KeyUp events do not occur under the following circumstances:
- The user presses enter on a form with a command button whose Default property is set to True.
- The user presses esc on a form with a command button whose Cancel property is set to True."

[RJ1969]

Hi Porucha,
Ok.. I did change the userform name. Is there anyway to add a tabbing with the code so that that I can tab it and press enter?

[mjr veverka]

You don't need doing it programmatically (TAB or SHIFT+TAB):

1. Right click on the project of UserForm and select "Tab Order" and set objects sequence

or

2. From Ms contextual help: "Set the tab order using the "TabIndex" property
a. Identify the tab order you want to use for the form.
The tab index of the first control in the tab order is 0; the tab index of the second is 1, and so on
b. Select a control in the tab order
c. In the Properties window, select the TabIndex property
d. Enter the appropriate number to identify the control's position in the tab order"

but if you will programmatically use "TabIndex" property:

e.g.:

Please Login or Register  to view this content.

[RJ1969]

Hi Porucha,
So far this is what I have in the userform. I can double click it and I can use a down arrow then press enter.
I have a textbox1 where I type "app" for applesauce and it will filter whatever that has "app" from the listbox1 but when I press tab it does not highlight the item when I tab it.
thanks.

Please Login or Register  to view this content.

[mjr veverka]

1. I can double click it and I can use a down arrow then press enter.
2. I have a textbox1 where I type "app" for applesauce
3. and it will filter whatever that has "app" from the listbox1
4. but when I press tab it does not highlight the item when I tab it.

To 2. and 3.
a) simply typing any text in 'textbox' does not filter 'listboxes', you must have suitable code

To 4.
a) if you have one, then if you type something in 'textbox' and the list in 'listbox' will be filtered, what should be highlighted there ?
b) if in 'textbox' you have typed e.g. "appl" and on the filtered list you have: "applesauce", "application", "apple", etc. and you press tab key, how does code know that what you want to highlight ... "appl" <==> "applesauce", "application", "apple" ?

Please provide your sample file.

Additionally:

Please Login or Register  to view this content.

1. "If KeyCode = 13" <==> if you press enter
2. "ListBox1.ListIndex - 1" <==> "ListBox1.ListIndex" it is a number, Long type, if equal "3" then "ListBox1.ListIndex - 1" = "2", and "2" is always TRUE. This is needless/superfluous in this place.

Please Login or Register  to view this content.

Should be

Please Login or Register  to view this content.

Sorry for bad english

And yet sample code to filtering the list from field 'textbox':

Please Login or Register  to view this content.