msg box to display if date expired

**baz0912** · 06-06-2008, 11:34 AM

Hi,

I have a tracking system in excel where I've got a planned and an actual date for each stage in a project so each stage has to be done in order.

At several points in the project, meetings are set up accordingly: in the Second Tuesday of every 4 week period. So at the start of the project a provisional date is set up for each meeting.

I want a message box to display if the date is after that date like "Please review meeting date" , if that scheduled meeting has been missed.

Is there a way of doing this using VBA?

Please see attached sheet with more details.

Any help would be much appreciated

Many thanks
Harry

**royUK** · 06-06-2008, 12:05 PM

place this code in the WorkBook_Open event and it will check the dates each time the workbook is opened

Please Login or Register  to view this content.

Or you could do this with Conditional Formatting & no VBA

**baz0912** · 06-07-2008, 11:45 AM

Roy,

Thanks for the feed back. I couldn't actually get this to work. I copied the code into a new module.

Ideally I'd like the message to show at all times when the dates change, instead of clicking a button.

Data validation was a possibility but you have to be clicking on the cell for the message to show?

Did you say there is a way of doing it with conditional formatting? If so how would I do it? There are about 6 cells which I want messages showing at the same time if the date in that cell goes over due.

Many thanks
Harry

**royUK** · 06-07-2008, 12:26 PM

The code that i gave you goes in the Workbook_Open event so that it is triggered when the workbook opens.

You could use conditional Formatting to hihlight cells with a different colour if a date has passed.

This example highlights the adjacent cell when the date is passed, also displays a message in a cell.