Originally Posted by
davesexcel
What kind of list box is it?
It's a multi-select listbox. I thought it doesn't matter if I do not take selection into consideration.
Here's what I've done.
Sub module19()
Dim LR As Long, i As Long, j As Long
LR = Sheets("results").Range("A" & Rows.count).End(xlUp).row
For i = 1 To Sheets("2").ListBox3.ListCount
For j = 1 To LR
If Sheets("results").Cells(j, 2) = Sheets("2").ListBox3.List(i) Then Sheets("results").Cells(j, 2).Copy
Sheets("3").Select
Cells(j, 1).Select
ActiveSheet.Paste
Next j
Next i
End Sub
Thank you!
Bookmarks