Uyarı ekranı çıkması

[edward111]

Merhabalar
Basit bir formül sonucunda ulaşılan negatif sayıda uyarı verilmesi için ne yapmam gerekiyor.Örnek bir dosyayı yükledim şimdiden yardım için teşekkür ederim.

http://s4.dosya.tc/server2/bv3wep/DENEME_UYARI.xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Nasıl bir uyarı istiyorsunuz ekranda msgbox mı açılmalı yoksa
hücrenin rengi kırmızı olsa yeterli mi.

. . .

 

[edward111]

Ekranda msgbox olmasını istiyorum, koşullu biçimlendirme ile farklı renk yaptım fakat yeterli olmadı.

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, Range("A2:B1000")) Is Nothing Then Exit Sub
    If Cells(Target.Row, "C") < 0 Then
        MsgBox "Hücre Adresi: " & Cells(Target.Row, "C").Address(0, 0) & Chr(10) & _
        "Değeri sıfırdan küçük", vbCritical
    End If
    
End Sub

. . .