Geçmiş tarihlerde ödenmeyen borçları uyarı olarak vermek

[sdegirmenci]

Merhaba;
Ekteki örnek dosyam üzerinde açıkladığım gibi, yine bu forumdan aldığım bir kodu kendi tabloma uyarlamaya çalıştım, ancak geçmiş tarihle birlikte aynı satırdaki "b" harfinide dikkate alarak uyarı vermesini istiyorum,yardımcı olabilirseniz sevinirim. Saygılarımla

 

[Orion1]

Dosyanız ektedir.

Sub Düğme3_Tıklat()
Dim trh As Range
For Each trh In Sheets("Sayfa1").Range("C4:C" & Sheets("Sayfa1").Cells(65536, "C").End(xlUp).Row)

    If trh.Value < Sheets("Sayfa1").Range("A2").Value And trh.Value <> 0 _
    And UCase(Sheets("Sayfa1").Range("D" & trh.Row).Value) = "B" Then
    
        MsgBox Sheets("Sayfa1").Range("C" & trh.Row) & "  tarihli   " & Sheets("Sayfa1").[A3].Value & _
        " Yüklenicisinin " & Format(Sheets("Sayfa1").Range("B" & trh.Row).Value, "#,##0") & _
        " nolu poliçe tutarı ödenmemiştir...!!", vbCritical, "UYARI"
    End If
Next
End Sub

 

[sdegirmenci]

Hocam İlginize çok teşekkür ederim,
Aynı kodu yazdım ama ""UCase"" terimini bilemediğimizden Yoktu,Tekrar teşekkür ediyorum.
And UCase (Range("D" & trh.Row).Value) = "B" Then

 

[sdegirmenci]

Sayın Evren Hocam;
Bu kodun çalıştığı sayfa adını "sayfa1" kabul edelim. Başka bir sayfada atanan düğme ile bu kodu çalıştırabilirmiyiz.

 

[Orion1]

Sayın Evren Hocam;
Bu kodun çalıştığı sayfa adını "sayfa1" kabul edelim. Başka bir sayfada atanan düğme ile bu kodu çalıştırabilirmiyiz.

Dosyayı güncelledim .2 nolu mesajdan indirebilirisniz.

 

[sdegirmenci]

Hocam Süpersiniz,
çok teşekkür ediyorum işleriniz kolay gelsin.