Help Needed Changing Inefficient Code into Loops

[thesteve]

Hi I'm still new to VBA but I've learned a lot. In a huge project I'm working on I have a ton of blocks that look like

Please Login or Register  to view this content.

There are cases for 7 and 8 that follow the same pattern. There is nothing beyond 9.

I'd love to turn these into smaller footprint loops. Can anyone show me how to turn the above into a working loop? From there I feel as if I could apply it all over the place, I just would love to see an example that works to start in a context I'm familiar with.

Thanks so much!

[StephenR]

Here is one approach. I've only done the first coupe of lines but I hope you can see the logic for the rest.

Please Login or Register  to view this content.

[thesteve]

ill try and implement and see how it goes! thanks for the time and help

[StephenR]

OK so ignore previous code - which is wrong -you might be able to add another loop and reduce the whole thing to this:

Please Login or Register  to view this content.

[Olly]

Adding in the columns as well as the rows, adjusting the size of row hiding depending on target value, and making sure everything gets unhidden as well as hidden, we end up with:

Please Login or Register  to view this content.

[Norie]

Perhaps this.

Please Login or Register  to view this content.