Vba to select rows based on date and Delete

[Wither125]

Hello,

I want to delete the rows which are not <=8 days and >=8 days.

for ex: lets take today's date 29/06/2016. So now select the rows that is not <= 8 days and >8 days from 29/06/2016 on wards.
and delete the rows who's dates are not <=8 days and >8 days.

Below is pic.

date.PNG

Thank You!

Regards
Wither

[PCI]

delete the rows who's dates are not <=8 days and >8 days.
is that means
to delete rows who's dates are >8 days and <8 days.
Can you show which one to delete in your example

[Wither125]

Hello PCI,

In the below pic we should delete the rows whose dates are 6/20//2016 as its not < 8 days from today's date 6/30/2016. It is 11 days so delete it.

Delete the rows were date is 7/15/2016 as its more than 8 day's from 6/30/2016

resdate.PNG


Regards
Wither

[PCI]

Why not:
- prepare a filter => Select column A to E => Data > Filter
- make the selection
=> in column E header => Date Filters
=> is before 22 / 06 /2016
=> or is after 6/07/2016

and delete.

[Wither125]

Hello,

If i use filter i will have to specify before and after dates every time (the dates varies) and i get many files every day. So i want to create a macro.

i tried with the below code but its deleting even the rows that have 6/28/2016 and 7/4/2016. Can u pls help me with the below code and let me know were i am going wrong.

Please Login or Register  to view this content.

Thank You!

Regards
Wither

[PCI]

Several issues:
1 - When deleting rows, start by the last one and scroll up to avoid confusion for Excel in the index: if deleting cells(10,1) what is the next cells ...?
or delete all rows in one shot => see macro attached
2 - .Cells(Rows.Count, 2) is making reference to column 2 where there is no date

Please Login or Register  to view this content.

[Wither125]

Hello PCI,

sorry for replying you so late,

and thanks for briefing me were i am going wrong !

Regards
Wither