Date MsgBox

[Manfred UK]

Hi,

I have a column of dates in a worksheet. I would like to be able to have a MsgBox display if one of those dates is equal to today. I would also like another MsgBox to display if it has gone past a date in the range with a different message.

I'm still learning the basics of VBA and i'm pretty sure I would need an IF statement but I have no idea how to write it!

The sheet name is "Visas" and the range of dates is "F12:F31".

If anyone could help, I'd be most grateful.

Manfred

[adyteo]

For the first part, you can use the attached file.

For the second part (past due) I am not sure I fully understand the request.
Attachment 303575

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[Jim885]

Somewhat very similar to John's code;

Please Login or Register  to view this content.

[Jim885]

Or this, if you want to show the date (rather than the cell reference) in the message box;

Please Login or Register  to view this content.

[adyteo]

I would suggest to exit the sub once a Msgbox is popped up to avoid a series of message boxes showing for each date. Maybe a summary at the end of how many dates are either past due or today.

[Manfred UK]

Wow!

adyteo, John, Jim - Thanks very much, that's great! Works perfectly!

I've got a lot of learning to do!

[Jim885]

I would suggest to exit the sub once a Msgbox is popped up to avoid a series of message boxes showing for each date. Maybe a summary at the end of how many dates are either past due or today.

In line with that idea, here's what is needed;

Please Login or Register  to view this content.