Generate E-mail from within Excel based on conditional format outcome.

[wbow]

Hi,
Origianlly posted in MS Office forum;

I have a created a spreadsheet [Excel 2003]for a non-technical user which lists engineers, who they report to and a listing of their qualification along with the qualification expiry dates.

I have used conditional formatting to change the colours of the dates when they are 6 months from exipry [amber] and expired [red].

I have been asked if it is possible to e-mail each record where either of the two conditions above are met, to whom they report to from within Excel.

Can anyone suggest a method [VBA maybe?] to achieve this?
Many thanks.

 

[SkipVought]

Oh yes, the already sent. Thanks!

 If r.Offset(0, i - 1).Value > [S2] AND r.Offset(0, i).Value = 0 Then

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[wbow]

GS_Card GS_Alert_Sent CCN1 CCN1_Alert_Sent CCLP1 CCLP1_Alert_Sent CKR1 CKR1_Alert_Sent
31/03/09 10/08/09 16/03/13 10/08/09 11/05/13 10/08/09
31/03/09 10/08/09 13/03/13 10/08/09 13/03/13 10/08/09
31/03/09 10/08/09 24/09/09 10/08/09 11/01/10 10/08/09
31/03/09 10/08/09 25/01/10 10/08/09 25/01/10 10/08/09
31/03/09 10/08/09 04/01/10 10/08/09
31/03/09 10/08/09 28/08/12 10/08/09 28/08/12 10/08/09
31/03/09 10/08/09 24/02/09 10/08/09 24/02/09 10/08/09
31/03/09 10/08/09 29/11/11 10/08/09 29/11/11 10/08/09
31/03/09 10/08/09 31/05/12 10/08/09 01/06/12 10/08/09
31/03/09 10/08/09 22/10/11 10/08/09 21/05/12 10/08/09
31/03/09 10/08/09 04/11/11 10/08/09
31/03/09 10/08/09 07/11/11 10/08/09
31/03/09 10/08/09 20/04/10 10/08/09 20/04/10 10/08/09
31/03/09 10/08/09 15/03/10 10/08/09
31/03/09 10/08/09 06/03/11 10/08/09 06/03/11 10/08/09
31/03/09 10/08/09 21/06/12 10/08/09 21/06/12 10/08/09
31/03/09 10/08/09 04/05/12 10/08/09 04/05/12 10/08/09
31/03/09 10/08/09 12/07/12 10/08/09 12/07/12 10/08/09
31/03/09 10/08/09 15/03/12 10/08/09 12/03/13 10/08/09
31/03/09 10/08/09 05/06/13 10/08/09 05/06/13 10/08/09
31/03/09 10/08/09 20/06/12 10/08/09 20/06/12 10/08/09
31/03/09 10/08/09 04/07/13 10/08/09 02/09/10 10/08/09
31/03/09 10/08/09 25/01/13 10/08/09 25/01/13 10/08/09
31/03/09 10/08/09 18/10/12 10/08/09 18/10/12 10/08/09
31/03/09 10/08/09 11/11/11 10/08/09
31/03/09 10/08/09 31/01/13 10/08/09
31/03/09 10/08/09 21/09/09 10/08/09 21/09/09 10/08/09
31/03/09 10/08/09 02/04/09 10/08/09 02/04/09 10/08/09









































Hi Skip,
Amended the line of code to;
If r.Offset(0, i - 1).Value > [S2] AND r.Offset(0, i).Value = 0 Then Still getting a date inserted into Alert_Sent for every qualification date

WBOW