Help with ColumnWidths

[WrldIntlR]

Hello! First time poster, long time steal-all-your-code-r.

I have a combobox in a userform that's supposed to pull two values from two different box. One is the numeric value of a code, and the second is the text discription of that code. I want a single combo box that has the code and the value both included, which I accomplished via the following code:

For Each cCount In RefData.Range("cboOCCcode")
  With Me.cboOCCnc
    .AddItem cCount.Value
    .List(.ListCount - 1, 1) = cCount.Offset(0, 1).Value
  End With
Next cCount

Which fills the combo box nicely. Now the problem here is that unless I use the columnwidths property, I get something that looks like this:

"CODE                                         VALU"

in the combo box where VALU is the cut-off version of what VALUE should be.

When I attempt to use the ColumnWidths property, it seems like regardless what I put, I end up with only column 2 showing value.

 Me.cboOCCnc.ColumnWidths = ("1;3")

Is my current iteration, but I've used several. Any help would be greatly appreciated!

Thanks,
James

 

[WrldIntlR]

Hahah ok nevermind. I was using Inches instead of Twips (whatever those are). New question though: Is there a way to change a justification of a column within the combobox? I'd like the 1st column to be justified right and the second column justified left. Thanks!

 

[shg]

I believe the answer to that is no.

You could use a fixed-pitch font (Courier, Consolas, ...) and do it yourself.