userform farklı silme işlemi

[erzen]

Ekteki dosyada silmek istediğim satırı excel sayfasından silmesini istemiyorum. Sil tuşuna basıldığında kaydı farklı bir hale getirip tekrar arama yaptığımda silme işlemi uygulanan kişi userformda kişinin kaydı silinmiştir şeklinde uyarı olmasını istiyorum nasıl yapabiliriz. Daha sonra eski halinede getirilebilinmesi gerekiyor.
Teşekkürler

 

[Mahmut Kök]

Ekli dosyaya bakabilirsiniz. Farklı bir şeyler de yapılabilir. Yaptığım şekli ile sizin çalışmanıza uygun değilse belirtirseniz, daha farklı bir çözüm bulabiliriz.

 

[erzen]

Cevabınız için teşekkürler. SİLİNDİ yazısı yerine herhangi bir değer olduğunda mesaj vermesini nasıl sağlayabiliriz.

 

[Mahmut Kök]

Cevabınız için teşekkürler. SİLİNDİ yazısı yerine herhangi bir değer olduğunda mesaj vermesini nasıl sağlayabiliriz.

SİLİNDİ yazmasın, başka bir şey yazsın diyorsanız; kodlardaki SİLİNDİ yazısını istediğiniz herhangi bir değerle değiştirebilirsiniz.

'If Cells(bul.Row, "e") = "SİLİNDİ" Then
'Yukarıdaki kod yerine aağıdakini kullanabilirsiniz.
 
 
If Cells(bul.Row, "e") <> empty Then

Yukarıdaki şekilde değişiklik yaparsanız, E sütununda herhangi bir değer gördüğünde SİLİNMİŞTİR uyarısını verir.