Satır silindi mesajı

[ASLAN7410]

Merhaba herkese hayırlı Ramazanlar.

Ekte gönderdiğim excel dosyamın Sayfa1'in kod sayfasında aşağıdaki kodlar mevcut, kodlar A sütununda çalışıyor,
A sütununda hücrelerden bir tanesine fareyle çift tıkladığımda kod çalışıyor ve ilgili hücrenin bulunduğu satır siliniyor.

Benim istediğim örneğin A sütundaki 15.satıra fareyle çift tıkladığımda 15.satır silinecek mesajı ve sildiğimde de
15.satır silindi mesajını almak istiyorum.

Yardımcı olur musunuz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    
    soru = MsgBox("Satır silinecek.", vbYesNo + vbInformation, "A S L A N")
    If soru = vbNo Then
    Cancel = True
    MsgBox "Satır silinmekten vazgeçildi.", vbInformation, "A S L A N"
    End If
    
    If soru = vbYes Then
    Rows(Target.Row & ":" & Target.Row).Delete
    Cancel = True
    End If
    
    Application.ScreenUpdating = True
End Sub

 

[ASLAN7410]

Uzun uğraşlar sonucunda aşağıdaki gibi çözdüm, belki birinin daha işine yarar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    
    soru = MsgBox([COLOR="Red"]ActiveCell.Row[/COLOR] & ". satır silinecek.", vbYesNo + vbInformation, "A S L A N")
    If soru = vbNo Then
    Cancel = True
    MsgBox [COLOR="red"]ActiveCell.Row[/COLOR] & ". satır silinmekten vazgeçildi.", vbInformation, "A S L A N"
    End If
    
    If soru = vbYes Then
    Rows(Target.Row & ":" & Target.Row).Delete
    Cancel = True
    CreateObject("WScript.Shell").Popup [COLOR="red"]ActiveCell.Row[/COLOR] & ". satır silindi.", 1, "A S L A N", vbInformation
    End If
    
    Application.ScreenUpdating = True
End Sub