I am trying to make a list of 8 combo boxes that all have the same dropdown. the list next to it will all be dependent on waht you selected in the first lift.
Here is the code I am using:
Private Sub UserForm_Initialize()
Dim MyArray As Variant
MyArray = Range("categories")
ComboBox1.List = MyArray
ComboBox2.List = MyArray
ComboBox3.List = MyArray
Dim iCtr As Long
End Sub
Private Sub ComboBox1_Change()
Me.ComboBox9 = ""
Select Case Me.ComboBox1
Case "Cat1"
Me.ComboBox9.RowSource = "Cat1"
Case "Cat2"
Me.ComboBox9.RowSource = "Cat2"
Case "Cat3"
Me.ComboBox9.RowSource = "Cat3"
Case "Cat4"
Me.ComboBox9.RowSource = "Cat4"
Case Else
'do nothing
End Select
End Sub
but its giving me an error. i get the same dropdown in the first row of boxes, but the second row does not give me a dropdown based on waht i selected, it just throws the debug error. what am i missing? thanks!
Bookmarks