Thread: How to insert a dynamic range in a UserForm into a ListBox

Hi

I made a UserForm that collects the data from the active sheet and it copys it in to the UserForm.

In here I have a ListBox where in the options menu I set the ColumnCount: 6 becouse I have 6 rows I want to be shown in the UserForm. The Columns are A:F how many rows is actualy different. Sometime the data goes from A3:F40 and sometimes it goes from A3:F5 depends on the material order. Under options for the ListBox I tryed to enter the RowSource but I can only insert it like this A3:F40 then I have a lot of empty cells.

So is it possible somehow to insert here a dynamic range that would take cells from A3 (always the beggining cell) to F - How many rowes are filled?

Create a proper Dynamic Named Range to use as the RowSource

Alternatively, you can set the range when the form loads

Option Explicit


Private Sub UserForm_Initialize()
    Dim rData As Range
    With Sheet1 '<- sheet with data on
        Set rData = .Range(.Cells(3, 1), .Cells(.Rows.Count, 6).End(xlUp))
    End With

    Me.ListBox1.List = rData.Value
End Sub

or

Private Sub UserForm_Initialize()
  lstMaterial.List = Sheets("00057-2011").cells(1).currentregion.offset(2).resize(,6).Value
End Sub

If you treat these sheets as data'warehouses' you can start in row 1.