Problem overdue dates

hello guys,

im trying to get an overview ( tracking system) to see all overdues
but when I try the code somehow I get a mixture of overdue records and
not overdue records
Does anyone see the failure?
thx

Please Login or Register  to view this content.

Hello Crombes,

Past due can be flagged in 2 ways. (1) The year is earlier than this year, Or (2) The month is earlier than the current month.

To test for these condition's change the IF statement in your loop to...

If Year(Now()) > Year(Cells(r, 8)) OR Month(Cells(r, 8)) < Month(Now())
Then Rows(r).Delete
_________________________________________________________________

Hope this helps,
Leith Ross

Thanks leith,

but this is not working , maybe some more info
it is a tracking system for calibration of measurement tools
an example: a vernier should be calibrated on 21/03/05
but this is not happened so this date will not change untill
the calibration is done .
I would like to see all tools that overdue ( not calibrated
compared to today's date )

can you help me ?

thx

Hello Crombes,

I don't know how you have your data setup, but I would have the worksheet setup with at least 4 coulmns: Instrument, Last Cal., Next Cal. Due, Tech. It then becomes very easy to determine when the calibration was done last and due next. Can you post an example of how you data is arranged on the worksheet? There maybe a better approach to this problem.

Thanks,
Leith Ross

Originally Posted by Leith Ross

Hello Crombes,

I don't know how you have your data setup, but I would have the worksheet setup with at least 4 coulmns: Instrument, Last Cal., Next Cal. Due, Tech. It then becomes very easy to determine when the calibration was done last and due next. Can you post an example of how you data is arranged on the worksheet? There maybe a better approach to this problem.

Thanks,
Leith Ross

Hi Leith ,
please find enclosed the zipped file
i'm still working on this file , but i would take a copy of the "overzichtslijst" sheet
and copy it on the "overduelijst"sheet and delete all OK calibrations
Should you have any other brillant ideas for this file , please feel free