Listboxtan çoklu seçme butonu

[zulfuernek]

http://dosya.co/ze46o726bpzf/kalıp_işlem_takip_-_Kopya.xlsm.html

TAMEKRAN userformunda bulunan listbox 1 kutusun altında çoklu sseçim butonuna tıklayınca listboxtan her tıkladığımı seçmesini ve tekrar tıklarsam silmesini istiyorum.

söz konusu butonda yazdıpım kod daha önce çalışıyordu ancak şimdi nedense for i hatası veriyor.

butnda geçen kod

Private Sub CommandButton8_Click() 'LİSTEDEN ÇOKLU SEÇME
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.SetFocus
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
End If
End Sub

 

[Mahmut Bayram]

kodlarınızın sonuna Next i ekleyin

 

[zulfuernek]

mahmut hocam end ıf döngüsünden sonra next i yazdım ancaak hala for i uyarısı veriyor acaba bie yerde çakışmamı var

 

[Mahmut Bayram]

Kodlarınızın başına döngüdeki değişkeni (i) yi tanımlamanız gerekmektedir.
Dim i As Integer
şeklinde.

 

[zulfuernek]

çok teşekkür ederim mahmut hocam. emeğinize sağlık.