I have a listbox that contains a multi column list, which is setup to transfer selected items to worksheet. It work fine by the way.The current procedure transfers item to worksheet with adjacent columns. I'm looking for a way to change code to transfer to non-adjacent columns. see my code
[VBA]Private Sub cmdOK_Click() ' Multi-Column ListBox Transfer
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
Set rStartCell = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
For iListCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iListCount) = True Then 'User has selected
ListBox1.Selected(iListCount) = False
iRow = iRow + 1
For iColCount = 0 To Range("PARTS").Columns.Count - 1
rStartCell.Cells(iRow, iColCount + 1).Value = _
ListBox1.List(iListCount, iColCount)
Next iColCount
End If
Next iListCount
Set rStartCell = Nothing
Unload Me
Range("D6").Select
End Sub
[/VBA]