Slow Code for Hiding Rows

[Simon Austin]

Hi All.

I have some code which looks for the word "Out" in column "L" and hides the row if it finds it. This is running from row 24 to 160 and takes about a minute to run. I've tried two different solutions, neither really quicker than the other. If anyone has a more efficient method of doing this I'd appreciate your input!

Thanks

Simon

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[karan]

Hi Simon,

Code:
Dim Counter As Integer
For Counter = 24 To 160
Rows(Counter).Select
If Cells(Counter, 12).Value = "Out" Then Selection.EntireRow.Hidden = True
Next Counter

In this case, there is no need to select the row each time (Rows(Counter).Select). You can try using this code. It should be fast.

Please Login or Register  to view this content.

Another way to achieve this would be to use Custom Filter --> Not Equal To --> "Out". This would be the fastest way to do it.

Regards,
Karan

[antoka05]

Try with this code (may be faster):

Please Login or Register  to view this content.

Regards,
Antonio

[Simon Austin]

Awesome, thanks Karan and Antonio.

Antonio's code has it running super fast now!!

Simon