Four column VBA combo box?

[scoha]

I am new to VBA combo boxes so please be gentle!

I want a combo box that presents four columns of info per row (A, C,D & E) and then the value in Column A is retained for use in other macros.

From other posts I have got my combo box (cboProj) set up with a list filling routine in the from_initialize event.

Along the lines of :

Dim cProj as Range
Dim ws as Worksheet
Set ws = Worksheets ("WorksheetName1")

For each cProj in ws.Range("LookupRangeName")
With me.cboProj
.AddItem cProj.Value
.List(.ListCount-1,1)=cProj.Offset(0,1).Value
End With
Next cProj
Me.cbo.Proj.SetFocus

but this only shows two columns of info - whats the trick?

 

[RoryA]

Set the columncount to 4, boundcolumn to 1, and if your LookupRangeName range is only one column, use:

me.cboProj.List = ws.Range("LookupRangeName").Resize(,4).Value

 

[scoha]

Thanks rorya

where would I place that line in my code sample? I am getting two columns currently - but I dont understand why as yet

 

[RoryA]

Current version:

Dim cProj as Range
Dim ws as Worksheet
Set ws = Worksheets ("WorksheetName1")
 
For each cProj in ws.Range("LookupRangeName")
With me.cboProj
' adds item and populates bound column
.AddItem cProj.Value
' populates column 2
.List(.ListCount-1,1)=cProj.Offset(0,1).Value
' no code to populate more columns so that's all you get!
End With
Next cProj
Me.cbo.Proj.SetFocus

My version:

Dim cProj as Range
Dim ws as Worksheet
Set ws = Worksheets ("WorksheetName1")
 
me.cboProj.List = ws.Range("LookupRangeName").Resize(,4).Value
Me.cbo.Proj.SetFocus

 

[mikerickson]

To skip the second column, you can set the .ColumnWidths to 0

With Me
    With .ListBox1
        .ColumnCount = 5
        .BoundColumn = 1
        .List = Range("LookupRangeName").Resize(, 5).Value
        .ColumnWidths = ";0;;;"
    End With
End With

 

[scoha]

Thanks rorya and mickerikson
It works and I now know a little more about combo boxes!

cheers