Excel Double Click/Enter Listbox

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.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  TextBox1.Value = ListBox1.Value
End Sub

Try this event:

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        UserForm1.TextBox1.Value = UserForm1.ListBox1.Value
    End If
End Sub

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

UserForm1.TextBox1.Value = UserForm1.ListBox1.Value

Originally Posted by RJ1969

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."

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?

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.:

    'some code
    UserForm1.ActiveControl.TabIndex
    'some code
    UserForm1.Controls.Item(1).TabIndex = 1

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.

Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And ListBox1.ListIndex - 1 Then
TextBox1.Value = ListBox1.List(ListIndex)
End If
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  TextBox1.Value = ListBox1.Value
End Sub

Originally Posted by RJ1969

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:

If KeyCode = 13 And ListBox1.ListIndex - 1 Then

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.

TextBox1.Value = ListBox1.List(ListIndex)

Should be

TextBox1.Value = ListBox1.List(ListBox1.ListIndex)

Sorry for bad english

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

Private Sub TextBox1_Change()
    Call Filter_List(UserForm1.TextBox1.Text)
End Sub

Sub Filter_List(some_text As String)
Dim i As Long, j As Long
Dim temporary_art_table() As Variant

    With UserForm1
        If some_text <> "" Then
            .ListBox1.Clear
            For i = 1 To UBound(art_table, 1)
                If LCase(art_table(i, 1)) Like "*" & LCase(some_text) & "*" Then
                    j = j + 1
                    ReDim Preserve temporary_art_table(1, j)
                    temporary_art_table(1, j) = art_table(i, 1)
                End If
            Next
            If j > 0 Then
                .ListBox1.Column() = temporary_art_table
            End If
        End If
    End With
End Sub