uyarı mesajı

[ayagiz44]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet, ss As Long, alan As Range, k As Range
If Not Intersect(Target, [B8:B509]) Is Nothing Then
Set sh = Sheets("Sayfa1")
ss = sh.Range("A" & Rows.Count).End(3).Row
Set alan = sh.Range("aj2:aj" & ss)
aranan = Target.Value
Set k = alan.Find(aranan, , xlValues, xlWhole)
If Not k Is Nothing Then
CreateObject("WScript.Shell").Popup "BU PERSONEL A PERSONELDİR! LÜTFEN!!! TAZMİNATI DÜZENLEMEYİNİZ...", 1
Exit Sub
End If
End If

If Not Intersect(Target, [B8:B509]) Is Nothing Then
Set sh = Sheets("Sayfa1")
ss = sh.Range("A" & Rows.Count).End(3).Row
Set alan = sh.Range("aa2:aa" & ss)
aranan = Target.Value
Set k = alan.Find(aranan, , xlValues, xlWhole)
If Not k Is Nothing Then
CreateObject("WScript.Shell").Popup "BU PERSONEL AKTİF GÖREV YAPAMAZ PERSONELDİR! LÜTFEN!!! TAZMİNATI DÜZENLEMEYİNİZ...", 1
Exit Sub
End If
End If
End Sub

Yukarıdaki Makroda ilgili sayfa üzerinde delete yaptığımda uyarı mesajını açıyor nasıl engellerim.
Selamlar...

 

[Mustafa MUTLU]

Hangi popup açılıyorsa o satırın başına ' işareti koyunuz.

 

[ayagiz44]

Uyarı mesajı

"BU PERSONEL A PERSONELDİR! LÜTFEN!!! TAZMİNATI DÜZENLEMEYİNİZ..."
Çıkıyor bahsettiğiniz ' işareti koyduğumda sorgu hata veriyor

 

[Ömer]

Merhaba,

aranan = Target.Value

satırından sonra aşağıdaki satırı ilave edin.

If aranan = "" Then Exit Sub

.

 

[ayagiz44]

Uyarı Mesajı

Hocam
Teşekkür ederim