listboxta çoklu seçimleri alma

[crpzz37]

listboxıma verileri rowsource ile almaktayım multiselect özelliği ile seçmiş olduğum verileri sayfa2 ye aktarmak istiyorum nasıl yapabilirim

 

[PLİNT]

Merhaba
Şöyle olabilir.

Private Sub CommandButton1_Click()
For a = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(a) = True Then
x = Sayfa2.Cells(Rows.Count, 1).End(3).Row + 1
For b = 0 To ListBox1.ColumnCount - 1
Sayfa2.Cells(x, b + 1) = ListBox1.List(a, b)
Next: End If: Next
If b = Empty Then
MsgBox "seçim yapmadınız"
Else
MsgBox "işlem tamam"
End If
End Sub