Delete Rows if Date in Column A is Older Than 6 Years

I've been Frankenstein'ing code together to try to delete rows based on the date in column A. If the date is older than 6 years from today then that row needs to be deleted. This is what I've come up with. It runs, but it deletes the entire spreadsheet, haha.

Please Login or Register  to view this content.

Try this.... Assuming your dates in Column A

Please Login or Register  to view this content.

Thank you for the reply. I just can't get anything to work. It really shouldn't be this difficult. :P

Not an expert myself, but wouldn't it be faster to sort and filter the records by date, then delete the visible rows instead of looping through each record?

Just a thought.

Bill

It's a good idea, and I've tried most everything short of getting a macro going. The list is just too big. Thousands and thousands of records to scroll through.

BantamPCI, here is something that I use. I gathered some code from various places plus figured some out on my own. There are three proc's here. One for turning the Autofilter on and off, one for sorting by date and the other for deleting selected records. Mine uses a date range entered by the user as opposed to being set to look back wards 6 years, but I believe that there is some good you might be able to gather from it. You'll need to make sheet name and probably some other changes. Hope it helps.

Bill

Please Login or Register  to view this content.

It is as simple as it is...... try this........ attachment.....

Great!. Always looking for something simpler and to learn from. Thanks.

Bill