Userformdan değiştir yapıldığında rakamın silinmemesi

[byfika]

Merhabalar,
Problem Userform üzerinden veri girişinde değişiklik olduğunda BUL yapılıp veri silinip DEĞİŞTİR butonuna tıklandığında sayfadan ilgili verinin silinmemesi.
İlgili rakamsal verinin silinmesi için kodda nasıl bir düzenleme yapabilirim.
Bilgi için Teşekkürler...

 

[hmtstc]

değiştiriniz.

Private Sub cmdSil_Click()
Dim sil As Control
For Each sil In frmkayit.Controls
If TypeName(sil) = "TextBox" Then
sil.Text = ""
End If
Next sil

msg = MsgBox("Adı Soyadı: " & Textbox1.Text & vbLf & "Bu veriyi silmek istediğinizden emin misiniz?", vbYesNo + vbExclamation, Başlık)
If msg = vbNo Then Exit Sub
Cells(ActiveCell.Row, 3).Select ' burada satır siliyordu, şimdi sadece o hücrenin değerini silecek.
Selection.ClearContents ' burada satır siliyordu, şimdi sadece o hücrenin değerini silecek.
MsgBox "Kayıt silindi.", , Başlık

'DİĞER İŞLEMLER
cmdTemizle_Click ' Formu Temizleme
Label41 = WorksheetFunction.Max(Sayfa1.Range("C2:C65536"), 1) + 1
End Sub

 

[byfika]

Merhabalar, Sayın Hmtstc
Cevabınız için teşekkürler. Fakat bu şekilde yapıldığında sil butonunun ana işlevi iptal oluyor. Sil kodunun amacı gerektiğinde komple satırı silmek. Yani değiştir butonu ile o satırdaki bilgileri değiştirirken sadece C sütunundaki ilgili satırdaki rakamı silmiyor ama boş olan C sütunundaki ilgili satıra rakam textbox üzerinden yazıp kayıt yapabiliyorum.. Değiştir kodundaki amaç şartlara göre bul kodu ile çağrılıp, C sütunu boşsa textbox üzerinden girilsin veya aynı textbox üzerinden silinebilsin.
Saygılarımla...

 

[hmtstc]

hocam selam,

değiştiri düzelttim. metin girilmesi durumunda değiştirmiyor ancak değiştirildi diye uyarı veriyordu. şimdi metin girişine engel koydum.
ayrıca bul butonunu otomatik hale getirdik. isim yazarken kendisi eşler, eğer bulamazsa boş bırakır.
saygılar