Populate 2 column listbox from combobox selection

[markdarb]

Good evening Excel Geniuses,

I have searched high and low for an answer to this, however, I cannot seem to find anything.

I have a Userform with a combobox with 6 team options i.e. Team 1, Team 2 etc, upon selection, two listboxes are filled with corresponding data, but I want to combine this data into one 2 column'd listbox.

The coding i have to populate the 2 listboxes is:

 </SPAN>
Private Sub cboTeam_Change()
Dim cRow As Integer</SPAN>
    cRow = 2</SPAN>
    UserForm1.lbxBrokers.Clear
    UserForm1.lbxBrokerCode.Clear
   
Do Until Sheets("Database").Cells(cRow, 11).Value = Empty</SPAN>
If Sheets("Database").Cells(cRow, 11).Value = UserForm1.cboTeam.Value Then
   
    UserForm1.lbxBrokers.AddItem Sheets("Database").Cells(cRow, 12).Value
    UserForm1.lbxBrokerCode.AddItem Sheets("Database").Cells(cRow, 13).Value
   
End If
   
    cRow = cRow + 1</SPAN>
Loop</SPAN>
End Sub</SPAN>

I would appreciate any help you could give.

Thanks
Mark</SPAN>

 

[sunnyland]

Will something like that do the trick [I have create a 2 columns listbox called lbxBrokersAndCode]

Private Sub cboTeam_Change()
Dim cRow As Integer
cRow = 2
UserForm1.lbxBrokersAndCode.Clear


Do Until Sheets("Database").Cells(cRow, 1).Value = Empty
If Sheets("Database").Cells(cRow, 1).Value = UserForm1.cboTeam.Value Then

With UserForm1.lbxBrokersAndCode
.AddItem Sheets("Database").Cells(cRow, 12).Value
.List(.ListCount - 1, 1) = Sheets("Database").Cells(cRow, 13).Value

End With
End If

cRow = cRow + 1
Loop
End Sub