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

Katılım
9 Eylül 2004
Mesajlar
243
Excel Vers. ve Dili
Office2003Trk
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,249
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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
 
Üst