ComboBox Dropdown Open Automatically

[JarekM]

Hi, I have a problem regarding combobox. I would like it so when I select an item in list1 from combobox1, then it would automatically setfocus on combobox2 and the dropdown menu would open.

Here is a code that I tried, but doesn't work, when I hit enter, it only focuses on the combobox1:

Private Sub ComboBox1_KeyPress(ByVal KeyCode As MSForms.ReturnInteger)
'Cancel = True
    If ComboBox1.ListIndex > -1 Then
        If KeyCode = 13 Then
            ComboBox2.SetFocus
            ComboBox2.DropDown
        End If
    End If
End Sub

Can someone help resolve this problem.
Thanks.

 

[Saurabhj]

Hi, use KeyDown event.

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
     If ComboBox1.ListIndex > -1 Then
        If KeyCode = 13 Then
            ComboBox2.SetFocus
            ComboBox2.DropDown
       End If
    End If
End Sub

 

[JarekM]

Hi, use KeyDown event.

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
     If ComboBox1.ListIndex > -1 Then
        If KeyCode = 13 Then
            ComboBox2.SetFocus
            ComboBox2.DropDown
       End If
    End If
End Sub

Thank you, it works finally.

 

[Saurabhj]

Great. Thanks for the feedback.