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.
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)