Excel is skipping Rows as it works through my code.

[CMOT Dibbler]

I have found and doctored this code to do what I needed.

BeginRow = 2
EndRow = 30000
checkcol = 4

For Rowcnt = BeginRow To EndRow

If Cells(Rowcnt, checkcol).Value = "Closed" Then
Cells(Rowcnt, checkcol).EntireRow.Delete

End If

Next Rowcnt

It works exactly as I needed it to, apart from the fact it misses Rows I need deleted. I could repeat it, and this does remove more, but not all, so I would need to repeat it many many times as there are thousands of rows.

I cant work out why it misses the ones it does & then finds some of them on each consecutive pass.

Any ideas?

[Greg M]

Hi there,

You need to work "from the bottom of the range to the top", otherwise the rows you delete will make keeping track of the current row number difficult.

I haven't tested this fully but I think it will do what you need. Try replacing:

Please Login or Register  to view this content.

with:

Please Login or Register  to view this content.

Hope this helps,

Greg M

[Norie]

Whenever deleting rows you should loop from the top to the bottom.

Please Login or Register  to view this content.

[CMOT Dibbler]

Thanks all, I can see why that would be the case in hindsight. Issue fixed.

[Greg M]

Hi again,

Many thanks for your very prompt feedback and also for the Reputation increase - much appreciated!

You're welcome - glad I was able to help.

Best regards,

Greg M

[Rick Rothstein]

Whenever deleting rows you should loop from the top to the bottom.

Typo: Norie meant to write "...the bottom to the top" (the posted code correctly showed this).