Need Help Coding ComboBoxes

To whom it may concern,

I am currently attempting to create an order form which allows the user to select a product using Combo-box's. I like this because they can begin to type the name of the product and have it auto populate, rather than searching a drop down menu for ages. I am also using a VLOOKUP based on what is selected in the Combo-Box to generate the item number. My issue right now is I cannot easily navigate between combo-boxes using enter or tab. Please understand this is my first day using developer tools so I am fairly behind the eight ball. The boxes function just like they should ( I have 21 of them in cells B14:B34 ). When I use the combo-box in cell B14 and begin typing my product name, it populates it perfect, however instead of just being able to hit enter to move to the next combo-box in B15, I have to use my mouse to click into the box to make it work correctly. I have used some different codes I found online. Some of them allowed me to hit enter to go to the next combo-box, however, the autofill would stop working. Does anyone out there have a solution?

Your help is greatly appreciated

Kev_,

Couldn't you use a similar line of coding, but force the enter/tab to lose focus making it shift to combobox-2? Kinda like a mouse click?

Hey Kev,

Yes they are linked to the cells below them, and I was trying to activate a range because I have no clue what I am doing. However, I have managed to make this work by using the tab key with the following code throughout each combobox;

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox1.Index), Shift
End If

End Sub

Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox2.Index), Shift
End If

End Sub

Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox3.Index), Shift
End If

End Sub

Private Sub ComboBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox4.Index), Shift
End If

End Sub

Private Sub ComboBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox5.Index), Shift
End If

End Sub

Private Sub ComboBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox6.Index), Shift
End If

End Sub

Private Sub ComboBox7_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox7.Index), Shift
End If

End Sub

Private Sub ComboBox8_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox8.Index), Shift
End If

End Sub

Private Sub ComboBox9_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox9.Index), Shift
End If

End Sub

Private Sub ComboBox10_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox10.Index), Shift
End If

End Sub

Private Sub ComboBox11_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox11.Index), Shift
End If

End Sub

Private Sub ComboBox12_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox12.Index), Shift
End If

End Sub

Private Sub ComboBox13_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox13.Index), Shift
End If

End Sub

Private Sub ComboBox14_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox14.Index), Shift
End If

End Sub

Private Sub ComboBox15_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox15.Index), Shift
End If

End Sub

Private Sub ComboBox16_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox16.Index), Shift
End If

End Sub

Private Sub ComboBox17_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox17.Index), Shift
End If

End Sub

Private Sub ComboBox18_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox18.Index), Shift
End If

End Sub

Private Sub ComboBox19_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox19.Index), Shift
End If

End Sub

Private Sub ComboBox20_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox20.Index), Shift
End If

End Sub

Private Sub ComboBox21_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox21.Index), Shift
End If

End Sub

Private Sub NavOle(ByRef OleActive As OLEObject, Shift As Integer)

If Shift = 1 Then
If OleActive.Index = 1 Then
Me.OLEObjects(Me.OLEObjects.Count).Activate
Else
Me.OLEObjects(OleActive.Index - 1).Activate
End If
Else
If OleActive.Index = Me.OLEObjects.Count Then
Me.OLEObjects(1).Activate
Else
Me.OLEObjects(OleActive.Index + 1).Activate
End If
End If

End Sub

Hi.
Just an aged gents view.
You would be better familiarising yourself with 'userforms' they make coding a whole lot easier.
Also when used on the 'sheet' ActiveX also tends to be unpredictably if you intend placing the app on various other computers.
torachan.