Populate other combo boxes based on previous combo boxes selection

[Pookiemeister]

Currently on a user form, I have 6 combo boxes. The first combo box gets its values from a spreadsheet. The first combo box pulls from the code below. What I am wanting to do is to have the other combo boxes remove any name that was already chosen from the previous combo box. Is this possible? Thank you.

See code below to see how its populated.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Employees!A2:A" & Range("A" & Rows.Count).End(xlUp).Row
End Sub

 

[Pookiemeister]

As you stated, changing .value to .text fixed the runtime error. So my question is, how do you know when to use .value vs .text? Is it because we used "Option Explicit" at the beginning of this program? Thank you again.

 

[Akuini]

As you stated, changing .value to .text fixed the runtime error. So my question is, how do you know when to use .value vs .text? Is it because we used "Option Explicit" at the beginning of this program? Thank you again.

It has nothing to do with "Option Explicit".
AFAIK .text and .value as the property of combobox can be used interchangeably, actually it's the first time I find this kind of problem, and as I said I still can't figure out why.
So, to be safe just use the .Text property.

 

[Pookiemeister]

@Akuini
Is there away to apply the code in the previous post to work on multiselect ListBoxes and after the selections are made, apply it to the ComboBoxes.
Let me explain this in a real world application. I have to two MultiSelect ListBoxes(ListBox1 and ListBox2). (ListBox1=PTO (Vacation)(ListBox2=SickTime). I have this line of code to populate each ListBox located in the UserForm Initialize at the very bottom. Now I just need to figure out how to update a ListBox2 when using the multiselect option in ListBox1? And then apply that to all the ComboBoxes. So the multiselect listboxes is the second set of controls the user encounters before the comboBoxes. If anyone calls in sick the day before or has a scheduled vacation, then they are selected from the designated listBox. If they are on vacation, then they are removed from listBox2 and all comboboxes that would follow. If you should have any questions, please let me know. Thank you.

With Me.ListBox1
        Call toPopulate(1)
        Call toPopulate(2)
    End With

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim ctrl As Control
 

    cmb1 = Me.ComboBox1.Value
    cmb2 = Me.ComboBox2.Value
    cmb3 = Me.ComboBox3.Value
    cmb4 = Me.ComboBox4.Value
    cmb5 = Me.ComboBox5.Value
    cmb6 = Me.ComboBox6.Value
    cmb7 = Me.ComboBox7.Value
    cmb8 = Me.ComboBox8.Value
    cmb9 = Me.ComboBox9.Value
    cmb10 = Me.ComboBox10.Value
    cmb11 = Me.ComboBox11.Value
    cmb12 = Me.ComboBox12.Value
    cmb13 = Me.ComboBox13.Value
    cmb14 = Me.ComboBox14.Value
    cmb15 = Me.ComboBox15.Value
    cmb16 = Me.ComboBox16.Value
    cmb17 = Me.ComboBox17.Value
    cmb18 = Me.ComboBox18.Value
    cmb19 = Me.ComboBox19.Value
    cmb20 = Me.ComboBox20.Value
    cmb21 = Me.ComboBox21.Value
    cmb22 = Me.ComboBox22.Value
    cmb23 = Me.ComboBox23.Value
    cmb24 = Me.ComboBox24.Value
    cmb25 = Me.ComboBox25.Value
    cmb26 = Me.ComboBox26.Value
    cmb27 = Me.ComboBox27.Value
    cmb28 = Me.ComboBox28.Value
    cmb29 = Me.ComboBox29.Value
    cmb30 = Me.ComboBox30.Value
    cmb31 = Me.ComboBox31.Value
    cmb32 = Me.ComboBox32.Value
   
    Sheets("Sheet1").Activate
    Range("A1:F1").ClearContents
    Range("A3:F3").ClearContents
    Range("A5:F8").ClearContents
    Range("A10:F15").ClearContents
    Range("B16:F18").ClearContents
   
    Set d = CreateObject("scripting.dictionary"): d.CompareMode = vbTextCompare
    Set e = CreateObject("scripting.dictionary"): e.CompareMode = vbTextCompare
   
    With Sheets("Employees")
        va = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
    End With
   
       
    With Me.ListBox1
        Call toPopulate(1)
        Call toPopulate(2)
    End With
   
End Sub

I tried to reuse the same code with a little bit of modification but it did not work.

Sub toPopulate(n As Long)
    
    Dim i As Long, l As Long
    Dim tx As String
    Dim X
    
    d.RemoveAll
    e.RemoveAll
'********************************************************************************
    For l = 1 To 2
        tx = UserForm1.Controls("ListBox" & l).Text
        If tx <> "" And l <> n Then e(tx) = Empty
    Next
    If e.Count <> 0 Then
        For Each X In va
            If Not e.Exists(X) Then d(X) = Empty
        Next
    Else
        For Each X In va
            d(X) = Empty
        Next
    End If
'*********************************************************************************
    For i = 1 To 32
        tx = UserForm1.Controls("ComboBox" & i).Text
        If tx <> "" And i <> n Then e(tx) = Empty
    Next
    
    If e.Count <> 0 Then
        For Each X In va
            If Not e.Exists(X) Then d(X) = Empty
        Next
    Else
        For Each X In va
            d(X) = Empty
        Next
    End If
    
    UserForm1.Controls("ComboBox" & n).List = d.keys
    UserForm1.Controls("ListBox" & n).List = d.keys

End Sub

 

[Akuini]

Could you upload a sample workbook?
Could you explain what you're trying to do in more detail, step by step?
What should happen when you open the userform? Populating all the combobox & listbox with same data? then what?