I can not get my listbox to populate range correctly

[rharri1972]

I have a listbox on userform1 with a listbox1.
I am trying to reference worksheet "Customers_List" range A1:D30.
It will only show A1:A30 and this is after I put A1:D30 in rowsource in the property box but I don't know if I should have code in the form or listbox or not.
Very confused. I haven't even referenced the sheet for it to be pulling Colum A...

any help?

 

[jolivanes]

Change as required.

Private Sub UserForm_Initialize()
Dim lr As Long
lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row    '<----- Change sheet reference
    With ListBox1
        .ColumnCount = 4
        .ColumnWidths = "20;20;20;20"    '<----- Change to desired column widths
        .RowSource = "A1:D" & lr
    End With
End Sub

 

[rharri1972]

Change as required.

Private Sub UserForm_Initialize()
Dim lr As Long
lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row    '<----- Change sheet reference
    With ListBox1
        .ColumnCount = 4
        .ColumnWidths = "20;20;20;20"    '<----- Change to desired column widths
        .RowSource = "A1:D" & lr
    End With
End Sub

Thank you Jolivanes. Works perfectly.

 

[rharri1972]

Thank you Jolivanes. Works perfectly. Should I enter anything into the rowsource property box to link it just to that worksheet? The reason I ask is that, the listbox is pulling information from the "Customers List" worksheet and I notice if the worksheet tab changes positions, meaning, the Customers List was the second tab in the workbook, the listbox takes information from whatever worksheet is in that second position.

 

[jolivanes]

Try so

Private Sub UserForm_Initialize()
Dim lr As Long
lr = Sheets("Customer List").Cells(Rows.Count, 1).End(xlUp).Row    '<----- Change sheet reference
    With ListBox1
        .ColumnCount = 4
        .ColumnWidths = "20;20;20;20"    '<----- Change to desired column widths
        .List = Worksheets("Customer List").Range("A1").CurrentRegion.Value
    End With
End Sub