userformda kayıt silme

[bulentcigali]

iyi çalışmalar,
ekte gönderdiğim uygulamada bir sayfadaki kayıtı sildiğimde sıra numarasını değiştiremedim yardımlarınız için şimdiden tşk.ler

 

[Levent Menteşoğlu]

Sil butonundaki kodu aşağıdaki ile değiştirerek deneyin.

Private Sub CommandButton3_Click()
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sat = ListBox1.ListIndex + 2
Range("b" & sat & ":c" & sat).Delete
[a65536].End(3).ClearContents
UserForm_Initialize
CommandButton2_Click
MsgBox "SEÇİLEN VERİ SİLİNMİŞTİR"
End Sub

 

[bulentcigali]

çok teşekkür ederim leventm,
ekte sunduğum excel "personel" adlı sayfada bir sorunum daha var sizi yoruyorum ama ne yapayım çok teşekkür ederim,iyi akşamlar