Can I use key press (enter) with Userform listbox

[Pisitju]

Hi everyone

I have a question about userform listbox?

I want to know about userform listbox can use key press (enter) for select data replace to click button(+)

VBA code below is code of button (+)

Private Sub CommandButton1_Click()
Dim lr As Long, i As Long

lr = Range("AE" & Rows.Count).End(3).Row + 1
If lr < 21 Then lr = 21

With ListBox1
For i = 0 To .ListCount - 1

If ListBox1.Selected(i) = True Then
Range("AE" & lr).Value = .List(i, 0)
Range("AG" & lr).Value = .List(i, 1)
Exit For
End If
Next
End With

Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
TextBox1.SetFocus
End Sub

 

[Micron]

Please post code within code tags (use vba button on posting toolbar) to maintain indentation and readability.
I don't understand how your form knows which sheet that AE refers to. Regardless, you could try pasting the code in the listbox KeyUp event. I would put this as the first line to be executed:

If KeyCode <> 13 Or Me.ListBox1.ListIndex < 0 Then Exit Sub

That way, if any key other than Enter is pressed, or if nothing in the listbox is selected the code should terminate.

 

[Pisitju]

Hi Mr.Micron

I trail to run code of you but can not use enter key (nothing happened)

Thank you for coding mr.micron

and Please help me to solve this problem.

 

[Micron]

Research how to step through code because it is seldom that "nothing happens". Code likely executes but doesn't do what you expect. This shows that if I select a listbox item and press enter, I can show the selected list value (the listbox value) in a message box:

You may need to loop through many selected items, and that would be the next step.

 

[Pisitju]

Than you mr.micon
I can press enter button

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim lr As Long, i As Long
lr = Range("AE" & Rows.Count).End(3).Row + 1
If lr < 21 Then lr = 21

With ListBox1
For i = 0 To .ListCount - 1
If ListBox1.Selected(i) = True Then
Range("AE" & lr).Value = .List(i, 0)
Range("AG" & lr).Value = .List(i, 1)
Exit For
End If
Next
End With
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
TextBox1.SetFocus
(If KeyCode <> 13 Or Me.ListBox1.ListIndex < 0 Then Exit Sub)
End Sub

Thank you for solve your problem

 

[Micron]

I repeat

Please post code within code tags (use vba button on posting toolbar) to maintain indentation and readability.

Glad I could help a bit.

 

[Pisitju]

Thank you mr.micron