Using variable for Autofilter Criteria1

I have the following snippet from my VBA

Please Login or Register  to view this content.

I know there is something wrong here

1) If I record a macro, I get Criteria1:="1" if 1 is not filtered out, Criteria2:="2" if 2 is not filtered out and so on...

How can I get 1 through 52 in a loop so that I can have 1,2,...52 not filtered out sequentially and do tasks I subsequently want to carry out?

Is the above approach correct. I think its wrong because I set Criteria1:=i and i is an integer above

Whereas, in the recorded macro, 1 or 2 or...appear in double quotes "1", or "2",....

Can anyone help to Set Criteria1 as a variable because I want to filter out 52 times (1 first time, 2 second time, 3 third time,.....52 52nd time)

Thanks a lot in advance

Please read and adhere to these simple rules!

1. Use concise, accurate thread titles. Your post title should describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change the title of the thread, click EDIT on the original post, then click the Go Advanced button, then change the title. If two or more days have passed, the EDIT button will not appear, and you need to ask a moderator to change the title.

The file is too large to attach unfortunately. The file is 21 MB but the allowed is 10MB

Here is the code that is not working(the bold line is not working).

I shall be extremely grateful if helped

Please Login or Register  to view this content.

Then reduce the file to e.g. 1 MB.

Don't forget to remove confidential information.

We are not interested in the whole file, just a small part of it, thats shows the problem and so we could test the offered solution.

Originally Posted by ateestructural

I think its wrong because I set Criteria1:=i and i is an integer above

Hi,

Did you actually test it? That code should work as you have posted it.

I was referring to the original code. The code in post 6 merely needs to read

Please Login or Register  to view this content.

since Subtotal is not a VBA function.