Hi,
perhaps something like this
let's say you have in col A "categories", Col B "car", Col C "train", Col D "bike"
in a userform add 2 comboboxes then add this piece of code for combobox1:
Private Sub ComboBox1_Change()
With Sheet1
Select Case Me.ComboBox1.ListIndex
Case 0
Me.ComboBox2.RowSource = Sheet1.Range("b2", Range("b65536").End(xlUp)).Address 'car
Case 1
Me.ComboBox2.RowSource = Sheet1.Range("c2", Range("c65536").End(xlUp)).Address 'train
Case 2
Me.ComboBox2.RowSource = Sheet1.Range("d2", Range("d65536").End(xlUp)).Address 'bike
End Select
ComboBox2.ListIndex = 0
End With
End Sub
and this one for userform
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = Sheet1.Range("a2", Range("a65536").End(xlUp)).Address 'categories
End Sub
or
http://www.contextures.com/xlDataVal02.html
Bookmarks