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
Verileri diziye aktardıktan sonra ne yapmak istediğiniz size kalmış. 🙂