ListBox Column Width - Auto Resize according to text length that we get from the cell ?

You might use something like this to Auto-Size the listbox.

Please Login or Register  to view this content.

I'm not sure what you mean by "not proper". Also the code I posted doesn't do anything with ColumnWidth. It is for a single column List box.
All one has to do is add the Declaration of SizeBox, add the code creating SizeBox and the two routines MatchToListBox and AutoSizeListbox.
Then call AutosizeListbox when ever you need it.

A modification would make it applicable for a multi-column list box. The basic notion is to use a hidden text box to get the width needed to fit the Listbox contents.
This does one single column, but it could be adapted for each column of a multi-column box.

How many columns does your listbox have?

6 or 7 columns of 99 characters makes for a pretty wide listbox.

After work, I'll put something together.

This will resize the column widths of a multi-column list box (or single column) to match the contents.
AutoColumnWidths's first argument is the ListBox whose column is to be resized.
It will set the column widths to fit the contents. (Hidden columns will not be unhidden.)
If the ResizeListBox argument is True, the Listbox will be expanded or contracted to fit the width of the visible column.s
If ReszeListBox is false, the column widths will be resized, but the listbox will remain the same size. Its possible that a horizontal scroll bar will show.
If you want the sub to resize only some columns, the columns to be resized can be listed

ResizeColumnWidths ListBox1, True, 0, 1, 3, 4, 8

Will fit columns 0, 1, 3, 4 and 8 of ListBox1 to match their contents and then resize the Listbox to fit .

Please Login or Register  to view this content.

The user form in the attachment doesn't have any controls.
The code in the user form looks like the form should have controls, TextBox_Find, Label_ClearFind, ListBox_Results and CommandButton_Close.

But no controls.

Sure, here is a the workbook I used for testing the routine.

Each sub in the Userform code module starts with a comment saying whether it is a needed routine or for demo purposes.
You can select a column number with the option buttons and select a row from the listbox. The text box and command button will put that value in the list in the indicated cells. This allows the addition or removal of "Very long strings for testing and demo purposes".

There is also a check box that determines if the resize effects the whole listbox or just the column widths.

There are two command buttons at the bottom "Resize all columns" and "resize columns 1 & 3". The code they call shows how to resize only specific columns.

Originally Posted by diquintino

Hello, in this code would it be possible to include the columnhead in the measure for the autosize?
Ex.:
NumberOfPages | (as columnhead)
16 | (as values)

Administrative Note:

Welcome to the forum.

We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original.

Please see Forum Rule #4 about hijacking and start a new thread for your query.

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread