Display different list in a list box when specific drop down chosen

if A,B and C are named ranges it is easy just use.

Private Sub ComboBox1_Change()
Dim selected As Range
Dim name As String
name = Me.ComboBox1.Text
Me.ListBox1.Clear
For Each selected In Range(name).Cells
Me.ListBox1.AddItem selected.Text
Next selected
End Sub

if not you will have to do a match (to find the combobox text on the spreadsheet and use that location to defign the selected range

Hi Leon V

Thanks for your help, and yes, I think in my case, I will need to do a match to pull the list from spreadsheet (sound like easier with this form). What will be the coding suggestion in this case?

Actually maybe I need to explain a bit more on what I need to do here

Supply Chain/Delivery -- this is one of the item in dropdown menu, once this select then below show on the listbox
Delivery Delays
Driver Experience
Accuracy of order - misfill
Accuracy of order - shortship/overship
Condition of packaging
Returns - delay in pick up
Returns - toner recycling

Pricing -- this is another item from the dropdown menu, if this choose, listbox will show below list instead of the above
Pre-login
Post-login
Contract discrepancy
Pricing discrepancy
Vendor pricing increase

Ideally initial userform when first open, the lisbox is empty.

Is that somewhat possible?




Thanks
Leo (lwwc)

the following assumes that your bold text is column headers

Private Sub ComboBox1_Change()
Dim selected As Range
Dim name As String
Dim found As Range
name = Me.ComboBox1.Text
Me.ListBox1.Clear
Set found = Range("1:1").Find(name)
If found Is Nothing Then MsgBox "combobox input not found!": Exit Sub
For Each selected In Range(Cells(2, found.Column).Address, found.End(xlDown).Address).Cells
    Me.ListBox1.AddItem selected.Text
Next selected
End Sub

and this version assumes they are row headers.

Private Sub ComboBox1_Change()
Dim selected As Range
Dim name As String
Dim found As Range
name = Me.ComboBox1.Text
Me.ListBox1.Clear
Set found = Range("A:A").Find(name)
If found Is Nothing Then MsgBox "combobox input not found!": Exit Sub
For Each selected In Range(Cells(found.Row, 2).Address, found.End(xlToRight).Address).Cells
    Me.ListBox1.AddItem selected.Text
Next selected
End Sub

{Set found = Range("1:1").Find(name)} searches row 1 for the combobox selection.
{For Each selected In Range(Cells(2, found.Column).Address, found.End(xlDown).Address).Cells} starts a loop to go through each cell bellow the found header
The code should be placed in the userform code module.

Edit: see attached for example.