How to select a certain item in a drop-down list using VBA?

[jkalpus]

If I select a certain item in a drop-down list, is there a way to populate a certain item in another cell that has a drop-down list?For instance, let's say I have a drop down list in A1 which lists RED, GREEN, BLUE. If I select RED in A1, if B1 has a drop-down list which lists 1,2,3, can I have 1 automatically selected in B2 when RED is selected in A1? Many thanks in advance ...

 

[Fazza]

When you select RED in A1, you want 1 entered via VBA in cell B1.

Private Sub Worksheet_Change(ByVal Target As Range)


    If Target.Cells(1).Address = "$A$1" Then
        If Target.Cells(1).Value2 = "RED" Then
            Application.EnableEvents = False
            Me.Range("B1").Value2 = 1
            Application.EnableEvents = True
        End If
    End If


End Sub

 

[jkalpus]

When you select RED in A1, you want 1 entered via VBA in cell B1.

Private Sub Worksheet_Change(ByVal Target As Range)


    If Target.Cells(1).Address = "$A$1" Then
        If Target.Cells(1).Value2 = "RED" Then
            Application.EnableEvents = False
            Me.Range("B1").Value2 = 1
            Application.EnableEvents = True
        End If
    End If


End Sub

Thanks, Fazza, for your speedy reply!
Not, exactly, what I was looking for.

I need a selection in one drop-down list, say "RED", to populate with let's say the FIRST selection (whatever that may be) in another drop-down list.

For example, if A1 has a drop-down list of RED, GREEN, BLUE, when I select RED in A1, I want that action to select the FIRST (or SECOND, or THIRD) element in a drop-down list in B1. So, if I change the values in the drop-down list in B1, I want that action to select the NEW first (or SECOND or THIRD, etc.) element in that drop-down list. I hope this clarifies what I would like.

Thank you a LOT in advance! jk

 

[Fazza]

Yes, I understand this question too.

Suggest you set up defined names for the input lists to the data validation - such as tblCOLORS & tblORDINALS - then some INDEX/MATCH, or if they are adjacent VLOOKUP, formulas. Whatever works, it should be straightforward enough.