Listbox Koşula Göre Seçili Satırı Silme

[mhrcvk]

Merhabalar,

Aşağıdaki kodda küçük bir yanlışım var ama bulamıyorum item seçili ise ve MsgBoxdaki cevap yes ise satırı sil diyorum ama çalışmıyor çok basit bir hata yapıyorum ama bulamadım

Private Sub CommandButton5_Click()
Dim i As Integer

MsgBox "BU SATIRI TAMAMEN SİLMEK İSTEDİĞİNİZE EMİN MİSİNİZ ?", vbYesNo + 16, "LÜTFEN KONTROL EDİNİZ !"

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) And vbYesNo = vbYes Then
ListBox1.RemoveItem (i)
End If
Next i
End Sub

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub CommandButton5_Click()
Dim i As Integer, sor As String

sor = MsgBox("BU SATIRI TAMAMEN SİLMEK İSTEDİĞİNİZE EMİN MİSİNİZ ?", vbYesNo + 16, "LÜTFEN KONTROL EDİNİZ !")
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) And sor = vbYes Then
ListBox1.RemoveItem (i)
End If
Next i
End Sub