Sütunda bu günün tarihinden daha önce bir tarih varsa sayfa aktif olunca uyarsın

[sdegirmenci]

Değerli Hocalarım Merhaba;
Ekteki dosyam üzerinde açıklama yaptığım gibi teminat mektuplarını yazdığım bir sayfam var, Bu sayfada "j" sütunundaki tarihlerde bu günün tarihinden daha önce bir tarih varsa sayfa aktif olunca uyarsın istiyorum.Yardımlarınız için şimdiden çok teşekkür ederim.İşleriniz kolay gelsin.

 

[Orion1]

Dosyanız ekte.

Sub Auto_Open()
Call ikaz
End Sub
Sub ikaz()
Dim trh As Range
For Each trh In Range("J4:J" & Cells(65536, "B").End(xlUp).Row)
    If trh.Value < Range("J2").Value And trh.Value <> "" Then
        MsgBox Range("B" & trh.Row) & " Tarihli " & Range("C" & trh.Row).Value & _
        " Yüklecinisinin " & Format(Range("F" & trh.Row).Value, "#,##0.00") & _
        " YTL Tutarındaki teminat süresi dolmuştur..!!", vbCritical, "UYARI"
    End If
Next
End Sub

 

[sdegirmenci]

Kıymetli Evren Hocam;
İlginize çok teşekkür ederim,Her zamanki gibi süpersiniz.Biz yalnızca kuru kuru teşekkür ediyoruz.İşleriniz hep kolay gelsin. Hoşçakalın

 

[ex48]

Dosyanız ekte.

Sub Auto_Open()
Call ikaz
End Sub
Sub ikaz()
Dim trh As Range
For Each trh In Range("J4:J" & Cells(65536, "B").End(xlUp).Row)
    If trh.Value < Range("J2").Value And trh.Value <> "" Then
        MsgBox Range("B" & trh.Row) & " Tarihli " & Range("C" & trh.Row).Value & _
        " Yüklecinisinin " & Format(Range("F" & trh.Row).Value, "#,##0.00") & _
        " YTL Tutarındaki teminat süresi dolmuştur..!!", vbCritical, "UYARI"
    End If
Next
End Sub

Merhaba;
Kodlarınızı son kullanma tarihi geçen ilaçları görmek amacıyla kullandım, fakat süresi geçenler olarak değilde, 1-30 gün içinde süresi dolacakları görmek amacıyla düzenleyebilirmisiniz?
Bu haliyle süresi dolanlar birden fazlaysa tek tek uyarı mesajı veriyor, Mümkünse tek mesajda kritere uyanların tamamını görebilirmiyiz.
Saygılar.