Can you remove redundant date entry?
 

Hi

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

Has anyone got a clue as to how this is done

--
simoncottl
-----------------------------------------------------------------------
simoncottle's Profile: http://www.excelforum.com/member.php...fo&userid=3312
View this thread: http://www.excelforum.com/showthread.php?threadid=52932

Can you remove redundant date entry?
 

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

Can you remove redundant date entry?
 

Can you help

At the moment the macro you suggest does not differentiate betwee
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 wan
it removes all the data regardless of whether it is out of date or no

--
simoncottl
-----------------------------------------------------------------------
simoncottle's Profile: http://www.excelforum.com/member.php...fo&userid=3312
View this thread: http://www.excelforum.com/showthread.php?threadid=52932