Listbox auto fit column width

[sthiru]

Hi

I just want to know how to Autofit Column width of Listbox.

Please help!!!

Thanks
Thiru

[xladept]

This seems to get it pretty close:

Please Login or Register  to view this content.

[sthiru]

But the list box is in Userform - how to do that? - Please Help

Thanks
Thiru

[xladept]

If its name is still "ListBox1" the code should still apply - but, is it the same width as the userform - if so, then maybe you should use "UserForm1" instead??

[sthiru]

Getting Error Msg

This is the code that I have

Please Login or Register  to view this content.

Dim S As Single
S = UserForm1.OLEObjects("ListBox1").Width / 6
Columns("D:D").ColumnWidth = S * 1.077

[sthiru]

Even I change the code - it doesn't work.

Please Login or Register  to view this content.

[xladept]

Can you post a sample spreadsheet with your userform including the listbox?

[sthiru]

Please find the attached.

Thanks
Thiru

[sthiru]

Can you post a sample spreadsheet with your userform including the listbox?

Any update sir?

Thanks
Thiru

[xladept]

Hi SThiru,

Your program trashed my system the first time I brought it up but subsequently I discovered that the list box width was 585.95 or something like that - when I ran my program on it it seemed to work - but I'm not sure now what you wanted.

BTW - I posted this response, or a similar one yesterday - I have no idea why it didn't take

[sthiru]

Its ok! I have found the solution - Below is the code for the people who searching for this.

Please Login or Register  to view this content.

[xladept]

Glad you got it!

[sthiru]

Glad you got it!

Thank you xladept ;-)

[paperfold]

Autosize list/combobox columns with this function. Optionaly autosize the list/combobox itself.

Please Login or Register  to view this content.