Can you remove redundant date entry?

[simoncottle]

Hi

I want to write a macro which allowed me to automatically remove data which had expired past today's date?

Has anyone got a clue as to how this is done?

[Toppers]

this compares dates in column A and removes rows where the date is less than
Today's date

For r = 100 To 2 Step -1
If Cells(r, "A") < Date Then Rows(r).Delete
Next r

I am assuming you mean expiry dates earlier than today.

HTH

"simoncottle" wrote:

>
> Hi
>
> I want to write a macro which allowed me to automatically remove data
> which had expired past today's date?
>
> Has anyone got a clue as to how this is done?
>
>
> --
> simoncottle
> ------------------------------------------------------------------------
> simoncottle's Profile: http://www.excelforum.com/member.php...o&userid=33122
> View this thread: http://www.excelforum.com/showthread...hreadid=529323
>
>

[simoncottle]

Can you help

At the moment the macro you suggest does not differentiate between dates, do i have to have my dates in a particular format?

Cheers Simon

PS even if I use the clear contents command which is more what I want it removes all the data regardless of whether it is out of date or not