VBA Hide Function not working

[caabdul]

Hello all gurus

I have macro that needs to hide all rows that have column A date outside given date range but it is not working.

Here is macro

Please Login or Register  to view this content.

Kindly check

[alansidman]

Here's an alternative VBA

Please Login or Register  to view this content.

[caabdul]

Hi Alansidman

2 questions about your code:
1- If there are 5000 Rows, will your code be fast?
2- If those 5000 Rows are already hidden and are outside given date range, will this code unhide those?

Regards

[alansidman]

1. Don't know. Time it if that is an issue for you.
2. this code will not unhide anything.

[caabdul]

Actually I want to hide all dates that are outside given range.

Strange thing is that this code is working on all other sheets, but on this sheet it just hides Row 8 whatever I do.

[alansidman]

Suggest you add a line of code at the beginning to unhide all hidden lines and then run your code to hide those lines that meet your criteria.

Strange thing is that this code is working on all other sheets,

Which code are you referring to? The word "this" does not tell me which code.

[jindon]

Try this

Please Login or Register  to view this content.

Actually I want to unhide all dates that are outside given range.

Code fixed

[caabdul]

Hi Jindon

Many thanks, your code works.

But it is still big confusion why my code is not working. Hope somebody can look into it.

Regards

[jindon]

1) Wrong range, 2) Not resetting existing filter

Please Login or Register  to view this content.

[caabdul]

Which code are you referring to? The word "this" does not tell me which code.

My Code given at start

[caabdul]

1) Wrong range

I want to filter starting from Row 10

1) Wrong range, 2) Not resetting existing filter

Please check attached file. It is working with same code as I gave in first post.

[jindon]

I want to filter starting from Row 10

Your original code says

Please Login or Register  to view this content.

???

[caabdul]

That is typo, but replacing it with 10 doesn't help

[jindon]

As I already mentioned, add one line

Please Login or Register  to view this content.

[caabdul]

Ah, at last it worked.

But if you check my second file "RowHide-Working.xlsm" it is working without adding "activesheet.autofiltermode = false" code. What is happening there?

[jindon]

You have no such code attached to the workbook.

If it works, perhaps it is not filtered yet.

[caabdul]

Code is attached to file as macro.

Now

when I added "activesheet.autofiltermode = false" code to macro of non-working file, it started working. Then I removed this code and that file is still working.

Now what we can make of it?

[jindon]

Then what's the problem?

You are uploading the code that has a typo, and the 2nd file with the different range code???

So, I don't see the cause of the error.

[caabdul]

I don't know but "activesheet.autofiltermode = false" did the trick. It enabled the sheet to accept my macro and after that macro worked even when I removed this small code.

Anyways, many thanks for your help.