Filter Code is really slow, please Help...

**lanziniad** · 12-12-2011, 11:19 PM

Hello,

And thank you in advance...

I have a small issue with my Filter vba code. What I am trying to do is compare one worksheet column with another worksheet column and if any of the 1st worksheet column values are not found in the 2nd worksheet column those rows in the 1st worksheet will be hidden.

Now I believe the coding works, but it is just to darn slow, and the screen flickers (Im using screenupdating.false as well) and it even goes black, not sure why? Any help would be appreciated.

***Correction: This code does not infact work, when it is ran it just hides all rows with values in them. So I am going to need some help here if anyone could spare some of their knowledge.

Thank You

My code:

<code>

Sub FilterSheet()
Dim x As Integer
x = 2
Application.ScreenUpdating = False
Do While Cells(x, 9) <> ""
If Worksheets("Sheet1").Cells(x, 9).Value = Worksheets("Sheet2").Cells(x, 6).Value Then
Else
Worksheets("Sheet1").Rows(x).Hidden = True
End If
x = x + 1
Loop
Application.ScreenUpdating = True
End Sub

<code>

**dilipandey** · 12-13-2011, 01:05 AM

Hi lanziniad,

Changing below code may help:-

Please Login or Register  to view this content.

Removed Else condition from above, also would appreciate if you post the sample file having this code to test further.

Regards,
DILIPandey

<click on below 'star' if this helps >

**lanziniad** · 12-13-2011, 01:08 AM

Thanks for your reply.

I will upload a copy in just a few minutes..

**lanziniad** · 12-13-2011, 01:30 AM

Here is the sample workbook

**lanziniad** · 12-13-2011, 01:32 AM

If I remove the else statement it will hide all the rows still, I need it to only hide the rows that contain values that are not in sheet 2

**lanziniad** · 12-13-2011, 01:45 PM

Hello forum,
Just wondering if anyone had any thoughts or suggestions on this problem.
Thank you.

**lanziniad** · 12-13-2011, 03:12 PM

Hello Forum,

Not sure why that last attachment was so big, I remade the workbook and it is quite a bit smaller, sorry....

**dilipandey** · 12-14-2011, 12:58 AM

Hi lanziniad,

Attached the file back with a query plus resolution, kindly look into the same.

In the Hide (y/n) column you should get your desired results, else will be happy to explain. Thanks.

Regards,
DILIPandey

<click on below 'star' if this helps >