I'm loading rows of data into an array from a filtered range based on what Year is selected from a dropdown box. When I transpose the array into the listbox, the row data is vertical in the first column, second row data is in the second column and so on. I need the array to transpose the row horizontally across the listbox, i.e. 1 row, multiple columns, not stick the row data into one column in the listbox.
Code
ReDim arrA(1 To nRow)
x = 0
For Each FYvalue In nsnRng
If FYvalue = FY Then
rRow = FYvalue.Row
x = x + 1
arrA(x) = shtList.Range("A" & rRow, "J" & rRow).Value
End If
Next FYvalue
ReDim Preserve arrA(1 To x)
With uf_Profile.slData
.Clear
.ColumnWidths = "25;40;75;300;45;60;50;65;120;60"
.ColumnCount = 16 'how many columns are in the listbox
.List = Application.Transpose(arrA)