Copy selected items from Listbox to multiple ranges

[sharky12345]

How can I either change this or amend it so that it also pastes to Sheets("Stock") from D4 down?


If ListBox2.Selected(i) = True Then Worksheets("Issued").Range("B65536").End(xlUp).Offset(1, 0).Value = ListBox2.List(I)

Posted elsewhere too;

http://www.mrexcel.com/forum/excel-questions/880652-copy-selected-items-listbox-multiple-ranges.html

[mancubus]

assuming there is only one table in sheet stock and D4 is not blank



If ListBox2.Selected(i) = True Then
Worksheets("Issued").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = ListBox2.List(i)
Worksheets("Stock").Range("D" & Rows.Count).End(xlUp).Offset(1).Value = ListBox2.List(i)
End If