Soru Hücreye Limitin üzerinde rakam girildiğinde açıklama uyarısı

[bulentkars]

Arkadaşlar Merhaba,

Bu tabloda "B24" Satırına 150.000 TL > Üzerinde rakam girildiği zaman
"B12" hücresi eğer Açılış Müşterisi Seçili ise uyarı verecek ve "B20" Satırına açıklama girilmesini isteyecek.

B12 satırında sadece ilk 2 seçenek için bu kontrolu yapmak istiyorum, 2 seçenek dışında yapılan seçimlerde kontrol zorunluğu olmayacak.

Sadece limiti 150.000 tl üzerinde ise kontrol olacak altında bir rakam ise kontrol yapmayacak.

Örnek Tablo ekte. yardımcı olabilirseniz sevinirim.

 

[AdemCan]

Merhaba, Talep sayfasının kod kısmına paylaştığım kodları ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$B$24" Then Exit Sub

If Target.Value > 150000 Then
    cevap = MsgBox("Talep edilen limit için 150.000 TL 'den fazla bir değer yazdınız. Yazdığınız değer doğru ise Evet seçeneğini tıklayınız!", vbYesNo, "")
    
    If cevap = vbYes Then

        If Target.Value > 150000 And Range("B12") = "Açılış Müşterisi" And Range("B20").Value = "" Then
            MsgBox "Lütfen seçili alana açıklama yazınız!", , ""
            With Range("B20")
                .Activate
                .Interior.Color = vbYellow
            End With
        Else
            Range("B20").Interior.Color = xlNone
        End If

        If Target.Value > 150000 And Range("B12") = "Risk Limiti Yetersiz" And Range("B18").Value = "" And Range("B19").Value = "" Then
            MsgBox "Lütfen seçili alana açıklama yazınız!", , ""
            With Range("B18:B19")
                .Activate
                .Interior.Color = vbYellow
            End With
        Else
            Range("B18:B19").Interior.Color = xlNone
        End If
        
    End If
    
End If

End Sub

 

[bulentkars]

Ademcan Bey Merhaba,

Açıklama kısmına metin yazıldığında tekrar uyarı veriyor. kodda istediğim eğer açıklamaları hücreleri dolu ise uyarı vermeyecek.

 

[AdemCan]

Merhaba, kodu güncelledim tekrar dener misiniz?

 

[bulentkars]

Merhaba, kodu güncelledim tekrar dener misiniz?

Ademcan Bey,

Çok çok teşekkür ederim. Elinize sağlık

 

[AdemCan]

Rica ederim.