populate listbox with multiple column from vlookup

[willsnake]

good day,


I am seeking expert help as stated in the title


I have a code but it can only populate single column, I have been searching the net but can't find answer.


Hope you could help me...

Thank you...

Private Sub fPRNumber_AfterUpdate()
Dim ws As Worksheet
Dim x, dictDim i As Long
Dim wht As Stringwht = Worksheets("PR").Range("c11").Value
ListBox1.Value = ""
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "60;40;20;20"
Set ws = Sheets("PRData")
x = ws.Range("A1").CurrentRegion.Value
Set dict = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(x, 1)
    If x(i, 2) = wht Then
        dict.Item(x(i, 6)) = ""
    End If
Next i
ListBox1.List = dict.keys

I am targeting to populate 3 columns from sheet "PRdata" from column E,F,G,H

 

[Fluff]

Maybe

For i = 2 To UBound(x, 1)
    If x(i, 2) = wht Then
        dict.Item(x(i, 6)) = Array(x(i, 5), x(i, 6), x(i, 7),x(i,8))
    End If
Next i
ListBox1.List = Application.Index(dict.Items, 0, 0)
End Sub

 

[willsnake]

Maybe

For i = 2 To UBound(x, 1)
    If x(i, 2) = wht Then
        dict.Item(x(i, 6)) = Array(x(i, 5), x(i, 6), x(i, 7),x(i,8))
    End If
Next i
ListBox1.List = Application.Index(dict.Items, 0, 0)
End Sub

Thank you very much sir... It worked!!!!

 

[Fluff]

You're welcome