Add a range to a combobox with multiple columns

[IraAI]

Hello, Im trying to add a range to a combobox with multiple columns. But for the life of me, i can't seem to get the second column to display.

I've tried to via the follwing code too but no luck:
For i = 1 To rngLstVC.Rows.Count
.AddItem rngLstVC(i, 1)
.List(.ListCount - 1, 1) = rngLstVC(i, 2)
Next

I've also tried creating a name range "VCTable".. (they all work but all only display the first column).
With frmSupplierMgt.cbSupplierType1
.ColumnCount =2
.List = ThisWorkbook.Sheets("Codes").Range("VCTable").Value
.BoundColumn = 1
.ColumnWidths = "20;100"
End With

This is the result i keep getting.. I need both values in the drop down but then the columnbound =1 to display in the combo box on selection.

Appreciate any help.

 

[HighAndWilder]

Hello, Im trying to add a range to a combobox with multiple columns. But for the life of me, i can't seem to get the second column to display.

View attachment 122205

I've tried to via the follwing code too but no luck:
For i = 1 To rngLstVC.Rows.Count
.AddItem rngLstVC(i, 1)
.List(.ListCount - 1, 1) = rngLstVC(i, 2)
Next

I've also tried creating a name range "VCTable".. (they all work but all only display the first column).
With frmSupplierMgt.cbSupplierType1
.ColumnCount =2
.List = ThisWorkbook.Sheets("Codes").Range("VCTable").Value
.BoundColumn = 1
.ColumnWidths = "20;100"
End With

This is the result i keep getting.. I need both values in the drop down but then the columnbound =1 to display in the combo box on selection.

View attachment 122206

View attachment 122208

Appreciate any help.

Wecome to Mr Excel

Do any of these methods work for you?

Private Sub UserForm_Initialize()
Dim i As Integer
  
  With Me.ComboBox1
  
    .ColumnCount = 3
    
    .ColumnWidths = "40,40,40"
    
    .BoundColumn = 1
  
    For i = 1 To 10
    
      .AddItem
      .List(.ListCount - 1, 0) = "One"
      .List(.ListCount - 1, 1) = "Two"
      .List(.ListCount - 1, 2) = "Three"

    Next i

  End With
  
  With Me.ComboBox2
    
    .ColumnCount = 3
    
    .ColumnWidths = "40,40,40"
    
    .BoundColumn = 1
    
    .RowSource = Worksheets("Sheet1").Range("A1:C10").Address
  
  End With
  
  With Me.ComboBox3
    
    .ColumnCount = 3
    
    .ColumnWidths = "40,40,40"
    
    .BoundColumn = 1
    
    .RowSource = Range("combolistdata").Address
    
  End With
  
  With Me.ComboBox4
    
    .ColumnCount = 3
    
    .ColumnWidths = "40,40,40"
    
    .BoundColumn = 1
    
    .RowSource = Worksheets("Sheet1").Range("A1:C" & Cells(Rows.Count, "A").End(xlUp).Row).Address
    
  End With
  

End Sub

 

[IraAI]

With Me.ComboBox1 .ColumnCount = 3 .ColumnWidths = "40,40,40" .BoundColumn = 1 For i = 1 To 10 .AddItem .List(.ListCount - 1, 0) = "One" .List(.ListCount - 1, 1) = "Two" .List(.ListCount - 1, 2) = "Three" Next i End With With Me.ComboBox2 .ColumnCount = 3 .ColumnWidths = "40,40,40" .BoundColumn = 1 .RowSource = Worksheets("Sheet1").Range("A1:C10").Address End With With Me.ComboBox3 .ColumnCount = 3 .ColumnWidths = "40,40,40" .BoundColumn = 1 .RowSource = Range("combolistdata").Address End With With Me.ComboBox4 .ColumnCount = 3 .ColumnWidths = "40,40,40" .BoundColumn = 1 .RowSource = Worksheets("Sheet1").Range("A1:C" & Cells(Rows.Count, "A").End(xlUp).Row).Address End With

I tried all of them.. and they all failed.. and then i got to the last option.. i changed it to the 2 columns that i needed.. and IT WORKED!
Legend thankyou. I can sleep tonight.

With Me.cbSupplierType1

.ColumnCount = 2

.ColumnWidths = "40,100"

.BoundColumn = 1

.RowSource = Worksheets("Codes").Range("A3:B" & Cells(Rows.Count, "A").End(xlUp).Row).Address

End With

 

[HighAndWilder]

I tried all of them.. and they all failed.. and then i got to the last option.. i changed it to the 2 columns that i needed.. and IT WORKED!
Legend thankyou. I can sleep tonight.
View attachment 122211
With Me.cbSupplierType1

.ColumnCount = 2

.ColumnWidths = "40,100"

.BoundColumn = 1

.RowSource = Worksheets("Codes").Range("A3:B" & Cells(Rows.Count, "A").End(xlUp).Row).Address

End With

I posted various option just to show you what is possible.

Do you want to display the Supplier Type text in the box to the right of each combobox?

Don't ever lose sleep over an Excel problem when you have Mr Excel.

 

[IraAI]

I posted various option just to show you what is possible.

Do you want to display the Supplier Type text in the box to the right of each combobox?

Don't ever lose sleep over an Excel problem when you have Mr Excel.

Yes, that's all working now too.. thankyou so much.