Moving from cell to combo bo

[clunes7]

Hi Guys
I need some help if possible. I would like some code that would move from a cell E6 to a combo box attached to cell c8 by pushing the tab or enter key so that i can start typing and the combo box is active. Is this possible.
Cheers clayton

 

[AlphaFrog]

To install the code...

• Right-click on the sheet tab
• Select View Code from the pop-up context menu
• Paste the code from below in the worksheet's code module
• Change the ComboBox1 reference in the code to the name of your combobox if different.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static Target_Was_E6 As Boolean
    If Target_Was_E6 Then Me.ComboBox1.Activate
    Target_Was_E6 = Target.Address(0, 0) = "E6"
End Sub

 

[clunes7]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static Target_Was_E6 As Boolean If Target_Was_E6 Then Me.ComboBox1.Activate Target_Was_E6 = Target.Address(0, 0) = "E6" End Sub

To install the code...

• Right-click on the sheet tab
• Select View Code from the pop-up context menu
• Paste the code from below in the worksheet's code module
• Change the ComboBox1 reference in the code to the name of your combobox if different.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static Target_Was_E6 As Boolean
    If Target_Was_E6 Then Me.ComboBox1.Activate
    Target_Was_E6 = Target.Address(0, 0) = "E6"
End Sub

Thank you so much for this code but if you could help further that would be much appreciated. How can I add to this code so that the sequence continues from e8 to c10 and e10 to c12 etc. I have 20 combo boxes that I would like to jump to.
Thanks again for your time
Clayton

 

[AlphaFrog]

Add more Case lines of code as needed.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static Target_Was As String
    Select Case Target_Was
        Case "E6": Me.ComboBox1.Activate
        Case "E8": Me.ComboBox2.Activate
        Case "E10": Me.ComboBox3.Activate
        Case "E12": Me.ComboBox4.Activate
    End Select
    Target_Was = Target.Address(0, 0)
End Sub

 

[clunes7]

Add more Case lines of code as needed.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static Target_Was As String
    Select Case Target_Was
        Case "E6": Me.ComboBox1.Activate
        Case "E8": Me.ComboBox2.Activate
        Case "E10": Me.ComboBox3.Activate
        Case "E12": Me.ComboBox4.Activate
    End Select
    Target_Was = Target.Address(0, 0)
End Sub

Awesome thank you so much