Excel freeze when I delete multiple rows (visible rows after filtering)

Hello,

I use auto filter to filter rows.
I need to copy them to a target sheet and delete them from the source sheet.

The macro freeze on the last row ("rngCopyRangeVisible.EntireRow.Delete").

Is there a better way to do it and avoid freezing ?

Thank you for your help

Please Login or Register  to view this content.

Originally Posted by Snoopy2003

The macro freeze on the last row ("rngCopyRangeVisible.EntireRow.Delete").

I don't see anything wrong with the limited code you posted. When you say "freeze", what exactly happens?

If there was a code problem, you should get an error message. Does that happen, and if yes, what does it say?

Is your worksheet password protected?

Hello,

Thank you for your answer.

The visible range includes ~2000 rows.

When executing the "delete rows" command I get "not responding" message and after some time (10-15) seconds it disappear and the macro continue to run.

How can I avoid this ?

Thank you for your help

Originally Posted by Snoopy2003

Hello,

Thank you for your answer.

The visible range includes ~2000 rows.

When executing the "delete rows" command I get "not responding" message and after some time (10-15) seconds it disappear and the macro continue to run.

How can I avoid this ?

Thank you for your help

It sounds like it is just slow and not actually "freezing".

If you are deleting a lot of rows and have a lot of formulas, you may want to try this....

Please Login or Register  to view this content.

Hello,

Thank you for your answer.
I tried to run it with no screen updating and in manual mode but I still get "not responding".

Can I go over the visible rows delete them in a loop ?
If I will sort my rows and delete a range will run faster ?

I tried to add "do events" before the delete command but it did not solve it.

Do you have any other ideas in order to avoid the "not responding" ?

Thank you for your help

Can you post your workbook and I will take a look at it? (remove\change any sensitive info.)

Hello,

Thank you for your help.
I will try to solve it by sorting sheet and perform 1 delete command.
If it will not work I will upload an example file.

Thank you for your support