EĞER %80DEN KÜÇÜKSE HATA VERSİN İSTİYORUM AMA YAPAMIYORUM

[alihanduman]

Merhaba İlk görseldeki gibi ayın ürünü seçildiğinde "Dağılım yapılcak %" stünündan %80'in altında seçildiğinde "En az %80 dağılım yapabilirsin" uyarısı vermesini istiyorum ama başaramadım yardımcı olurmusunuz.

p508mvp.png

ff

www.hizliresim.com

nm12s6b.png

ff

www.hizliresim.com

lna63kp.png

ff

www.hizliresim.com

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne uygulayıp deneyiniz. Paylaştığınız görsellerde sütun bilgileri gözükmüyor. Ayın Ürünü seçeneğinin E sütununda olduğunu ve yüzdelerin D sütununda olduğunu varsaydım.

Siz kendinize göre adresleri revize edersiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If Cells(Target.Row, "E") = "Ayın Ürünü" Then
        Application.EnableEvents = False
        If Target < 0.8 Then
            MsgBox "En az %80 dağılım yapabilirsin!", vbCritical
            Target.ClearContents
            Target.Select
        End If
        Application.EnableEvents = True
    End If
End Sub