Using loops through sheets

[YasserKhalil]

Hello everybody
I have posted a thread about creating Workbooks based on range A2:A6 in sheet named (Main)
and Mr. Holger ( HaHoBe ) helped me a lot in achieving 70% of my target ..

The new Workbooks which created contains strings of all values of the range A2:A6
What I want to do : for example in the Created WB named (Example 1) as a sample to search for the string Example 1 only and delete other strings ... So as the WB to contain only the string Example 1.


Mr Holger suggested the following but I can't do that task on my own.. He said :

Use the loop through the sheets and the condition that sheet will not be deleted, add an Autofilter to that sheet, criteria would be in Column 10 as "<>*Example 1*", get the last visible row, use all visible cells in Column J in the range from Row 2 to the last visible row to delete the entire rows, disable Autofilter.


I appreciate any help

[davesexcel]

Okay, you have 277 posts over the past 5-1/2 yrs. Eventually somebody has to say, "What the heck man!, are you not learning anything?"
Why don't you tell us what you have tried to do, and then ask us for help if it didn't work.

[stnkynts]

@dave: 277 posts is nothing. Look up posts by rizmomin. We are his personal business solution team.

@OP: The solution that HaHoBe gave you is a bit more advanced. There are other ways you can accomplish what you want to do which may be more understandable. I agree with dave when he says don't be afraid to fail on your own. You have to fail before you can get it right.

HaHoBe's suggestion:

Please Login or Register  to view this content.

[YasserKhalil]

Thank you very much sir for trying to help me
I can't do anything with this advanced code ..
I can give my tries in simple code as I am not Professional like you!!

As for my task the WBs created in Results folder now is two WBs .. The first named (Example 1) it is perfect
But for (Example 2) the headers in three sheets disappeared!!
Can we use a nother method ??
Say to search for the specific string in Range("J2:J" & LR) and to delete these rows that does not contain the string..
And to count the string after deleting undesired rows .. If it is geater than 0 then everything is ok if it is equal 0 then sheet to be deleted

[YasserKhalil]

I tried the following part instead of Filter

Please Login or Register  to view this content.

But it does not work for me although I tried this part in a nother WB

[YasserKhalil]

At last I solved it
it is just a bit line to activate each worksheet

Please Login or Register  to view this content.

Thank you very much for all of you who helped me a lot to improve my vba .. Thanks a lot!
Till we meet again in a nother thread and a nother challenge .. Have a nice time everybody