Article: Fill MultiColumn Listbox With Worksheet Range

[Ken Puls]

You can view the page at http://www.excelguru.ca/forums/conte...orksheet-Range

[Kubiszynb]

Nice examples. Just thought I would mention that you can pick up & hide Column data by setting the Column Width to 0. You can also pull Worksheet data directly into a Variant array, so using your Code:

Private Sub UserForm_Initialize()

    Dim lb As msforms.ListBox
    
    ' // alternative method to pick up Worksheet data
    Dim ar As Variant
    ar = Worksheets("Sheet1").Range("A2:C5").Cells
    
    'Place the array in the listbox
    Set lb = Me.ListBox1
    With lb
        .ColumnCount = 3
        
        ' // pick up & hide the first Column of data
        .ColumnWidths = "0;80;100"
        .List = ar
    End With
    
End Sub

Cheers, Mark

[Kprajath]

Thanks Mr.Ken, the post was really good. Requesting to kindly give some more knowledge on how to control the range of list box for normal screen display (Not user forms). On a screen for display of some Company Data, i select name of the Company and various info are displayed alongwith list of Suppliers. In some cases, the list of Suppliers may change as per additions/deletions. i need to display this information in the listbox from row 1 to actual last row of the sheet for suppliers list. Thanks in advance.