Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]() |
#2
![]() |
|||
|
|||
![]()
Hi blue
i did this for a workbook to remind people of when their first aid certificate refresher is due by using the following two methods 1) set up conditional formatting on the worksheet containing the people's names and the dates of the refresher so that a refresher a month is advance changes to greeen, a week in advance it changes to yellow and on the day & post it changes to red ... this was just done using format / conditional formatting 2) set up a Workbook_Open macro which, when the workbook was opened, checked to see if anyone was due for a refresher the following day, the code used was: Sub workbook_open() Dim pname As String Dim cur_date As Date cur_date = Format(Now(), "dd/mm/yyyy") For Each cell In Range("ExpiryDate") If cell = cur_date + 1 Then cell.Select pname = ActiveCell.Offset(0, -3).Range("A1") MsgBox pname & " is due for a refresher course tomorrow", vbInformation, "Refresher Course" End If Next End Sub --- if this sounds like what you're after and you'ld like any more details on how to do either of these steps please feel free to post back. Cheers JulieD "blue" wrote in message ... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
copyright and worksheet protection | Excel Discussion (Misc queries) | |||
Executing macro for all worksheet from a different worksheet | New Users to Excel | |||
Reference Data in Moved Worksheet | Setting up and Configuration of Excel | |||
Linking items GREATER THAN O on another worksheet in the same Work | Excel Discussion (Misc queries) | |||
Worksheet name and Backward compatibility | Excel Discussion (Misc queries) |