Soru Yaklaşan Tarihi "MSGBox" ile hatırlatma

[Bahattin Sungur]

Merhaba arkadaşlar,

Macro konusunda yeniyim, daha önce biraz uğraştım baktım olmuyor bıraktım. Bu yüzden yardımınıza ihtiyacım var.

20 25 araç ve tüm detaylı bilgilerinin yazıldığı bir tablom var. Her aracın muayene tarihide yazıyor ama sürekli atladığımdan muayene tarihleri kaçıyor.

Amacım msgbox ile bir hatırlatıcı yapmak, amatörce bir çalışma yaptım.

Sub Hedef_Test_Et()
    muayenetarihi = Range("L9").Value
    bugün = Range("N1").Value
    If bugün + 60 > muayenetarihi Then
        MsgBox ("Muayene tarihi yaklaşan araçlarınız var. Kalan Gün: " & muayenetarihi - bugün), vbOKOnly
    Else
        Exit Sub
    End If
End Sub

Amacım kod tarihleri okuyacak ve önümüzeki 60 gün içinde yaklaşan muayene varsa ben dosyayı açtığımda karşıma msgbox açıp, yaklaşan muayene var tarzı bir hatırlatma yapacak. tek tek hangisi olduğunu söylemesi gerekmez. kac gun kaldıgıda onemlı degil. sadece "kardeşim dikkat et bak, senın araçlardan birinin muayenesi yaklaşıyor ama sen bul uğraşamam ben o kadarıyla" diyen bir macroya ihtiyacım var.

Yardımlarınız için şimdiden teşekkürler.

 

[dEdE]

Dener misiniz?

Sub Hedef_Test_Et()
    muayenetarihi = Range("L9").Value
    bugün = Date
    If muayenetarihi - bugün <= 60 Then
        MsgBox ("Muayene tarihi yaklaşan araçlarınız var. Kalan Gün: " & muayenetarihi - bugün), vbOKOnly
    End If
End Sub

 

[Korhan Ayhan]

İnceleyiniz.

Uyarı Mesajı

Arkadaşlar merhaba, Belirlenen tarihe 60 gün kala uyarı mesajı almak istersem bunu makrosuz yapabilir miyim? yok makrosuz olmaz ise bana en başından nasıl yapılabilir yardımcı olursanız memnun olurum. Teşekkürler

www.excel.web.tr

 

[dEdE]

İki kişi emek vermiş cevap yazmış.
Olumlu ya da olumsuz dönüş yapan yok.
Acaba yanlış bir şey mi yazdık?

 

[Bahattin Sungur]

Dener misiniz?

Sub Hedef_Test_Et()
    muayenetarihi = Range("L9").Value
    bugün = Date
    If muayenetarihi - bugün <= 60 Then
        MsgBox ("Muayene tarihi yaklaşan araçlarınız var. Kalan Gün: " & muayenetarihi - bugün), vbOKOnly
    End If
End Sub

tesekkürler

 

[Bahattin Sungur]

İki kişi emek vermiş cevap yazmış.
Olumlu ya da olumsuz dönüş yapan yok.
Acaba yanlış bir şey mi yazdık?

Kusura bakmayın daha yeni açabildim forumu. :/