VBA Code to AutoFilter with dynamic Criteria

[drgorantla]

Hello Everyone,

I have tried the following code which is not working for me.
I believe there are multiple mistakes
Can someone help me please?

I am trying to Auto filter one column at a time based on the cell value in the header.
Hopefully I can see all the filtered data without the need to scroll up.

Please Login or Register  to view this content.

[jindon]

Perhaps

Please Login or Register  to view this content.

[drgorantla]

Hi jindon,
Thanks a lot, your modifications are helping.
I understood where I went wrong.
Your modifications are filtering the first column based on the active cell value but when i run the same code second time its not filtering the cell values in the header of the next column
I guess the AutoFilter Field should not be static here?
Can you please have a look again?

Thanks

[jindon]

Not clear about what you are trying to do.
How do you want to filter?

[drgorantla]

I apologize for not being clear.
If we start with column D in the first row
Auto filter criteria for Column D should be based on the active cell value (Value of cell D1)
After filtering is complete the code should move to the next cell in the header, ie cell E1
If we run the code again then Auto Filter should filter column E based on the cell value in E1 and move the next cell in the header

Is this possible?

thanks

[jindon]

One column at a time?
I mean,
1) filter one column and clear the filter and the 2nd column etc
or
2) filter 1st column and 2nd column and 3rd column till the last column altogether?
1) you can see the last last column only filtered after the macro
2) there is no filtered data after the macro in uploaded data.

[mohadin]

A very goof morning
Could it be something like this perhaps

Please Login or Register  to view this content.

[drgorantla]

Hi Jindon,
Yes, one column at a time, but when we go to the next column I may need to filter the already filtered data
We do not want to clear the previous column filter.
We should be able to stop filtering columns when ever we want
I do not need to run the code until the last column always but I might have to if the situation demands
Auto Filter field should be the first cell in the column and the criteria should be that cells value
Is it possible?

thanks

[jindon]

Then you can not do it via AutoFilter.
AdvancedFilter

Please Login or Register  to view this content.

Edit: typo

[mohadin]

Any way!!
May be

Please Login or Register  to view this content.

[drgorantla]

Hello mohadin,
I apologize if my request is confusing.
Your code is taking the criterial from cell adjacent to the column we are trying to filter
If we are filtering Column D then Criterial should not be (Row, Col + i)
Is it possible to get rid of the message box so that i can run the code with keyboard shortcut for every column?

I have learned something today from your code

Thanks a lot