השוואת תאריכים במאקרו

[נע ונד]

שלום רב
אני לא מצליח להשוות שני תאריכים במקרו פשוט (החלדתי קצת ... )
העתקתי את המקרו לתוך החוברת, לנוחיות הבודקים (הדגשתי בצהוב את השורה הבעייתית)
מטרת המקרו: אם התאריך בתא B33 קודם להיום ? יש להקרין הודעה מתאימה
.
מצ"ב קובץ
אופיס 2016
Win 10 64

תודה לכל המסייעים

 

[מיכאל אבידן]

שלום רב
אני לא מצליח להשוות שני תאריכים במקרו פשוט (החלדתי קצת ... )
העתקתי את המקרו לתוך החוברת, לנוחיות הבודקים (הדגשתי בצהוב את השורה הבעייתית)
מטרת המקרו: אם התאריך בתא B33 קודם להיום ? יש להקרין הודעה מתאימה
.
מצ"ב קובץ
אופיס 2016
Win 10 64

תודה לכל המסייעים

נסה, אולי:

Sub CheckForHide()
    If Sheets("South").[B33] < Date Then MsgBox "Ask for a new file", 0, "Answer Box"
End Sub

 

[נע ונד]

נסה, אולי:

Sub CheckForHide()
    If Sheets("South").[B33] < Date Then MsgBox "Ask for a new file", 0, "Answer Box"
End Sub

תודה רבה מיקי
אחת לתקופה (די ארוכה), אני נזקק לסיוע
אתה תמיד כאן, מקצועי ב 100%, ומסייע בחפץ לב
מאוד מודה לך