test

[zafer]

Private Sub CommandButton1_Click()
For A = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(A) = True Then
c = c + 1
Sheets("sayfa3").Cells(c, 1) = ListBox1.List(A, 0)
End If
Next
End Sub



Private Sub UserForm_Initialize()
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub