Displaying Multiple columns in a Listbox on Userform initialization

[pimp_mentality]

Good Day Guys.

I currently use the following line of code to populate listbox1 when the userform is open

ListBox1.List = Sheets("PI").Range("Names2", Sheets("PI").Cells(Rows.Count, "B").End(xlUp)).Value

The thing is, this code only displays data in column B.

For the purposes of this project I would like data from columns B, E, F, H (in that order) to be displayed when the Userform is opened. To accomplish this I tried the following with zero success:

ListBox1.List = Sheets("PI").Range("Names2", Sheets("PI").Cells(Rows.Count, "B", "E", "F" and "H").End(xlUp)).Value

I would appreciate assistance re modifying the above code to accomplish this.

 

[Takae]

Hope this helps.

Private Sub UserForm_Initialize()
    Dim i As Long
    With ListBox1
        For i = 2 To Sheets("PI").cells(Rows.count, 2).End(xlUp).row
            .AddItem ""
            .list(.ListCount - 1, 0) = cells(i, 2)
            .list(.ListCount - 1, 1) = cells(i, 5)
            .list(.ListCount - 1, 2) = cells(i, 6)
            .list(.ListCount - 1, 3) = cells(i, 8)
        Next i
    End With
End Sub

 

[My Aswer Is This]

Try this:

Private Sub UserForm_Initialize()
'B,E,F,H
Dim i As Long
Dim b As Long
Dim c As Long
b = 0
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "100;100;100;100"
Dim Del As Variant
Del = Array(2, 5, 6, 8)
    For c = 0 To 3
    For i = 1 To Sheets("PI").Cells(Rows.Count, Del(c)).End(xlUp).Row
        With ListBox1
            .AddItem
            .List(b, c) = Sheets("PI").Cells(i, Del(c)).Value
            
                b = b + 1
        End With
    
    Next
    b = 0
    
    Next
End Sub