Deleting rows in more faster way

Hi experts,

I would like to ask if there is more faster procedure than my code below?

Please Login or Register  to view this content.

The workbook have 15000 rows and the record on the sample code most likely have results of 3000 rows.

Is it more faster if i will filter first those records (within the date range) then delete those not needed than
loop through all rows to compare the dates.

(I asked this question because I'm currently running this module and I'm not done yet. :D
I'll try this after but hoping I can get quick answer here.)

Thanks in advance.

Hi, thisisgerald,

turning off ScreenUpdating and turning Calculation to manual may speed up your macro.

Have you thought about using the Autofilter to narrow down the lines to be deleted?

Ciao,
Holger

Hi, Gerald,

sadly not on hand (most of the examples are on a different computer I canīt get to right now). If you work with dates on the Autofilter you should convert the Dates to Longs before passing them as criteria. And having made a choice you could either delete all chosen lines or work through them using a Column and SpecialCells(xlCellTypeVisible).

There arenīt no events included behind the sheet because then you could use Application.EnableEvents = False at the start and Application.EnableEvents = True at the end to stop the event handler to take action.

If you need help on your actual file Iīd ask you to attach a small sample where the action can be fulfilled.

Ciao,
Holger

Hi, Gerald,

please try this code on a copy of the sheet or in the sample:

Please Login or Register  to view this content.

Right now the header may be removed as no check is done to get the number of rows provided by the Autofilter.

Ciao,
Holger

Hi, Gerald,

the error you encountered is most certainly due to the different ways a date is set up on my computers (Day Month Year separated by .) to yours. Please try the altered code (AFAIR DateSerial should return the value in the way more suitable for international purposes and programming in VBA):

Please Login or Register  to view this content.

Ciao,
Holger