Populate list box

[0 Agios]

I have this code that shows columns "A".
I want to add "C" "D"

Private Sub UserForm_Initialize()
Dim arrlist As Variant
Dim LR As Long
With Worksheets("Data")
LR = .Range("A" & Rows.Count).End(xlUp).Row
'Set RNGP = .Range("A3:A30" & LR)
Set RNGP = .Range("A1:A20" & LR)

arrlist = RNGP.Value
ListBox1.List = WorksheetFunction.Transpose(arrlist)
End With
End Sub


Thanks

 

[Norie]

How many rows are there in each column?

Also, do you actually want to add the values, concatenate them or put use a 3 column listbox to display the values from all 3 columns?

Set rng = Worksheets("Data").Range("A1:A" & LR)
 
Listbox1.ColumnCount = 3
 
For Each cl In rng.Cells
 
       Listbox1.Additem cl.Value
       Listbox1.List(Listbox1.ListCount, 1) = cl.Offset(,2).Value
       Listbox1.List(Listbox1.ListCount, 2) = cl.Offset(,3).Value
Next cl

 

[0 Agios]

How many rows are there in each column?

Also, do you actually want to add the values, concatenate them or put use a 3 column listbox to display the values from all 3 columns?

Set rng = Worksheets("Data").Range("A1:A" & LR)
 
Listbox1.ColumnCount = 3
 
For Each cl In rng.Cells
 
       Listbox1.Additem cl.Value
       Listbox1.List(Listbox1.ListCount, 1) = cl.Offset(,2).Value
       Listbox1.List(Listbox1.ListCount, 2) = cl.Offset(,3).Value
Next cl

Thanks Norie
I want to avoid concatenate, I tried this code and it doesnot work. I tried changing thing but I just cant get itto work.

 

[Norie]

Change Listbox1.ListCount to Listbox1.ListCount -1.