Time is up

[Ralph M]

I have a spread sheet with a date for each day of the year in Col "A"
IE: Row 1 01/01/02, Row 2 01/02/02, ETC.
I have in Column Q "Occurences" which are entered as 1, in Column R, I have an If Function that says "If Q10 is > 0 Then A10 + 60, (This counts out 60 days from the date it was entered) at which time I want to remove the occurence with a -1 to take it away. I have entered a "0" in the "Occurence" Column as a reminder on the date (60 days) it is to be removed. What I want to do is have the program when it opens look at column Q and if there is a "0" and the date is => the date in Col "A",(on the 60th day), Display a MsgBox as a reminder to remove the Occurence. All I need help with is how to write the code for "If Col Q = 0 Then.... look at column "A" and see if it's => the today's date.

 

[Barrie Davidson]

Ralph, would this work for you?

<PRE>
Dim ZeroOccurrences As Long

ZeroOccurrences = Application.WorksheetFunction.CountIf(Range("Q:Q"), "=0")
If ZeroOccurrences <> 0 Then
MsgBox ("Remember to remove occurences with value of zero")
End If

</PRE>

Regards,

 

[Ralph M]

Barrie,
I need it to check Column Q for the "0", but I also need it to check for the date in Column A to see if it's >= Today.

 

[Barrie Davidson]

Do you have any information in column R or can I use it for the macro?

 

[Ralph M]

Barrie,
In my posting I explained that I am using R for the date in column A + 60 days.

 

[Barrie Davidson]

What column could I use (needs to be blank)?