Satır Sil

[Ahmet Sami]

Arkadaşlar sizden istediğim yardım, E9 daki veri nin TEBLİGKAYIT sayfasında bulunarak bulunduğu satırın silinmesi silerken de o seri numarayı gösterip sileyimmi diye uyarması dosyayı ekledim.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub satirsil59()
Dim k As Range, sh As Worksheet, deg As Variant
Set sh = Sheets("TEBLİGKAYIT")
Sheets("ANASAYFA").Select
Set k = sh.Range("D2:D" & Rows.Count).Find(Range("E9").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    deg = k.Value
   If MsgBox(k.Value & vbLf & "Silinsinmi?", vbYesNo, "SATIR SİL") = vbNo Then
        MsgBox "[ " & k.Value & " ] Silinmedi!", vbCritical, "UYARI"
    Else
        k.EntireRow.Delete
        MsgBox "[ " & deg & " ] Silindi.", vbOKOnly, "SİLİNDİ"
    End If
Else
    MsgBox "[ " & Range("E9").Value & " ] bulunmadı!!", vbCritical, "UYARI"
End If
End Sub

 

[Ahmet Sami]

Çok teşekkür ederim. Emeğinize sağlık

 

[Orion1]

Çok teşekkür ederim. Emeğinize sağlık

Rica ederim.
İyi çalışmalar.