listboxtan arama sonucu kayıt silerken yanlış kayıt silmesi

[chakistes]

merhaba arkadaşlar örnek dosyada olduğu gibi comboboxtan gelen seçeneklerden her hangi birini seçip textboxta arama yaptıktan sonra listboxtaki kaydı seçip silmek istediğimde yanlış kayıt siliyor.

 

[chakistes]

arama kutusuna okul no seçili iken 397 yaz sil değinde yanlış kayıt silecek yada örnek resimde olduğu gibi baba adı osman seç sonra ekranda tek osman ismi kalacak sil dediğinde yanlış kayıt siliyor

 

[halit3]

Kodu bu şekliyle denermisiniz.

Private Sub CommandButton29_Click()
Dim i As Integer
If ListBox1.ListIndex = -1 Then Exit Sub
sat = ListBox1.List(ListBox1.ListIndex, 0)
Cevap = MsgBox(Sheets("sayfa1").Cells(sat, 1).Value & " isimli öğrenciyi silmek istiyor musunuz?", vbYesNo)
If Cevap = vbYes Then
Sheets("sayfa1").Rows(sat).Delete Shift:=xlUp
sirala1_Click
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End If
End Sub

 

[chakistes]

teşekkür ederim yardımın için kod işe yaradı.

 

[halit3]

teşekkür ederim yardımın için kod işe yaradı.

Teşekkürler iyi çalışmalar