tarih karşılaştırma ve uyarı hakkında (halloldu arkadaşlar)

[ahmetozbey]

halloldu arkadaşlar

 

[ahmetozbey]

ekdeki örneğe göre uyarı mesajı işini hallettim ama butona tıkladığım zaman görüyorum mesajı. butona tıklamadan yani o sayfa açıldığı zaman kodların otomatik çalışmasını ve koşula uyan tarih varsa mesaj gelmesini istiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağdaki kodu kullanabilirsiniz. Dosyanız açıldığı zaman çalışacaktır.

Sub AUTO_OPEN()
Say = WorksheetFunction.CountIf([A6:A65536], Date)
If Say > 0 Then
MsgBox "BUGÜN " & Say & " ADET ÖDEMENİZ VAR.", vbCritical
Else
MsgBox "BUGÜN HİÇ ÖDEMENİZ YOK.", vbInformation
End If
End Sub