Userform Listbox Conditional on Previous Selection

**royUK** · 06-07-2011, 02:43 AM

Try replacing your code with this & see if it is what you want

Private Sub cmdOK_Click()
    Dim ws As Worksheet
    Set ws = Worksheets("Output")
    ws.Cells(1, 1).Value = Me.listMNGR.Value
    Unload Me
End Sub

Private Sub listMNGR_Click()
    Dim lCol As Long
    lCol = Me.listMNGR.ListIndex + 4
    With ThisWorkbook.Sheets("combolists")
        output1.listMC.List = .Range(.Cells(2, lCol), .Cells(2, lCol).End(xlDown)).Value
    End With
    Me.Hide
    output1.Show
End Sub


Private Sub UserForm_Initialize()

    Dim cell As Range
    With ThisWorkbook.Sheets("combolists")
        listMNGR.List = .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Value
    End With
End Sub

**gsurge** · 06-07-2011, 09:01 AM

Thanks but the code does not populate the second list box (blank)

Its not exactly what i need to do. So first, I would like the trigger to remain on the cmdOK button, instead of the listMNGR_Click.

Also, I would like it to pull the corresponding list for the second list box depending on the first list box value chosen. I have updated the example sheet with more lists to choose from. I am assuming this will require some sort of indirect/dynamic syntax to reference the correct column, as it will change according the the selection in the first box. For the time being, I would like to retrieve the "MC" list for each name, not the "CG"