Multiple Column Combibox

[sassriverrat]

Good Morning,

I have a combibox in a userform that I'd like to tweak. I used to pull data from just one column to display in the box, but now I was hoping to have two columns of data (separated by a space) displaying. I've written a basic piece of code below but it didn't work. Hoping someone could help.

    ComboBox2.List = [Ports!B3:B102].Value & " " & [Ports!G3:G102].Value

 

[Fluff]

How about

        Me.ComboBox2.List = Application.Index(Sheets("Ports").Range("B3:G102").Value2, Evaluate("row(1:100)"), Array(1, 6))

 

[sassriverrat]

How about

        Me.ComboBox2.List = Application.Index(Sheets("Ports").Range("B3:G102").Value2, Evaluate("row(1:100)"), Array(1, 6))

Unfortunately two things happened:
1. It didn't work- Still only saw "B" column
2. It kicked an error in the combibox_change sub that highlight the code below
9-subscript out of range (and in the below code, I tried changing .value to .value2

Private Sub ComboBox2_Change()'On Error GoTo Helper
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Sheets("Voyage Specifics").Range("C8").Value = ComboBox2.Value
    Sheets("Developer").Range("C2:D2").Value = ComboBox2.Value
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'Error Clearing Code
Exit Sub
Helper:
    resp = MsgBox("We're sorry to see you've encountered an error." & vbCrLf & vbCrLf & "To proceed, we recommend you contact the Developer " & _
    "with error codes [1039] and " & "[" & Err.Number & "-" & Err.Description & "]." & vbCrLf & vbCrLf & "To attempt to patch your problem at least " & _
    "temporarily, we recommend you click [Yes] to see help directions. Would you like to continue?", vbYesNoCancel, name)
        If resp = vbYes Then
            UserForm18.Show
            'MsgBox ("Success")
        ElseIf resp = vbNo Then
            Exit Sub
        ElseIf resp = vbCancel Then
            Exit Sub
        End If
End Sub

 

[Fluff]

Have you set the combobox columncount property to 2?

 

[sassriverrat]

Have you set the combobox columncount property to 2?

How might I go about doing that? I think I'm missing something....

 

[Fluff]

Select the combobox & then in the properties window change ColumnCount to 2

 

[sassriverrat]

Select the combobox & then in the properties window change ColumnCount to 2

It worked!

Thank you again @Fluff !

 

[Fluff]

You're welcome & thanks for the feedback