VBA MultiSelect ListBox’da Rastgele Seçilen Verileri Elde Etmek

Private Sub MltSlctVeriAl()
 
Dim tmpArray() As Variant
Dim selCount As Integer
 
selCount = -1
 
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
selCount = selCount + 1
End If
Next
ReDim Preserve tmpArray(selCount, Me.ListBox1.ColumnCount - 1)
 
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
k = k + 1
For j = 0 To Me.ListBox1.ColumnCount - 1
tmpArray(k - 1, j) = Me.ListBox1.List(i, j)
Next
End If
Next
 
End Sub