Issue with comboboxes

[newbie_12]

Hi!

I have added this same bit of code in a few userform but it works as intended (ie. show all 3 columns of the combobox) only in the first userform created. In the subsequent userforms it only shows the first column. I can't seem to figure out why? Any of you have an idea?? Private Sub UserForm_Initialize()
Dim cell_Participant As Range
Dim ws1 As Worksheet
Set ws1 = Worksheets("Participant Lookup List")

For Each cell_Participant In ws1.Range("StudentID")
With Me.Comboparticipant
.AddItem cell_Participant.Value
.List(.ListCount - 1, 1) = cell_Participant.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cell_Participant.Offset(0, 2).Value
End With
Next cell_Participant
End Sub

 

[Rosen]

Did you name all subsequent combo boxes Comboparticipant?

 

[Rosen]

Also, make sure ColumnCount field is set to 3. If you add the line Me.Comboparticipant.ColumnCount = 3 before your loop, that should do the trick, in theory.

 

[newbie_12]

Did you name all subsequent combo boxes Comboparticipant?

No I did not. I named the consequent ones Comboparticipant1 and Comboparticipant2.


for userform2
rivate Sub UserForm_Initialize()
Dim cell_Participant As Range
Dim cell_status As Range
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Participant Lookup List")
Set ws2 = Worksheets("Lookup List - Other")
For Each cell_status In ws2.Range("Enrolment_Status")
With Me.Combostatus
.AddItem cell_status.Value
End With
Next cell_status

For Each cell_Participant In ws1.Range("StudentID")
With Me.Comboparticipant2
.AddItem cell_Participant.Value
.List(.ListCount - 1, 1) = cell_Participant.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cell_Participant.Offset(0, 2).Value
End With
Next cell_Participant
End Sub


And userform3
Private Sub UserForm_Initialize()
Dim cell_Participant As Range
Dim cell_covisor As Range
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Participant Lookup List")
Set ws2 = Worksheets("Lookup List - Other")
For Each cell_covisor In ws2.Range("Facilitators")
With Me.Combocovisor
.AddItem cell_covisor.Value
End With
Next cell_covisor

For Each cell_Participant In ws1.Range("StudentID")
With Me.Comboparticipant1
.AddItem cell_Participant.Value
.List(.ListCount - 1, 1) = cell_Participant.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cell_Participant.Offset(0, 2).Value
End With
Next cell_Participant
End Sub

 

[newbie_12]

Also, make sure ColumnCount field is set to 3. If you add the line Me.Comboparticipant.ColumnCount = 3 before your loop, that should do the trick, in theory.

Yes!!! that did it! Thank YOU!!!!