Need help with Listbox Columnwidths property

[Porsche996GT2]

Hello all,

I'm trying to get the listbox columnwidths property to work though the syntax that MS Excel VBA Help provides does not work. Here's part of the code:

Private Sub BO_Selection_Form_Initialize()

With Me
With .BO_Listbox
.ColumnCount = 3
.ColumnWidths 36;20;200
.RowSource = BO_Select_Range
End With
End With

End Sub

Also, how do you incorporate a horizontal scrollbar in this situation?

TIA!

 

[TonyJollans]

Hi Porsche996GT2,

Try assigning it as a string value ..

[blue][tt] .ColumnWidths[/tt][red][tt] = "[/tt][/red][tt]36,20,200[/tt][red][tt]"[/tt][/red][/blue]

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at [url=http://www.vbaexpress.

 

[Porsche996GT2]

Thanks for your reply, Tony. I tried it but it doesn't seem to work...

 

[Zathras]

Assuming "BO_Select_Range" is the name of a range in your worksheet, then this should do the trick:

Private Sub UserForm_Initialize()
  With Me
    With .BO_ListBox
        .ColumnCount = 3
        .ColumnWidths = "36;20;200"
        .RowSource = "BO_Select_Range"
    End With
  End With
End Sub

 

[TonyJollans]

Hi Porsche996GT2,

Sorry. Looking at your post, it seems you must have the comma as the decimal separator and so must use the semicolon to separate the column width values. Try, instead, ..

[blue][tt] .ColumnWidths = "36[/tt][red][tt];[/tt][/red][tt]20[/tt][red][tt];[/tt][/red][tt]200"[/tt][/blue]

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at [url=http://www.vbaexpress.

 

[Porsche996GT2]

Thanks guys, finally got it to work!