Change Font Color Index of row hidden by a Filter

Hi Jeffrey,
Your code does not work. I want to change all cells in the range not just the visible cells. Thanks for trying.
Chris

I don't think that it can be done without clearing the filters. I think that I've found a way to capture the existing filter criteria so that it can easily be re-applied, but it is stretching my coding skills, so might take a while.

Hopefully someone else will post a simpler, alternative method that will work before I lose the little sanity that I have left

This is the best suggestion that I can come up with.

The first procedure below reads the filters that are applied to the activesheet and saves them to an array. The second procudure re-applies the filters.
The theory being that you should be able to run the first procedure, then your code to change the font, followed by the second procedure.

A couple of things to note:-

The array holding the filter criteria will be lost if any code encounters an unhandled error. This means your font code as well, not just these procedures.
I've only tested the code with some basic filters, so there are most likely things that I haven't allowed for. Use with caution. Would be best to duplicate your workbook for testing in order to preserve the original.

Please Login or Register  to view this content.

Maybe another member can improve this.

You could loop through the range

Please Login or Register  to view this content.

Thanks, Fluff! I don't think that I could have over-complicated the task any more if I tried

Note to self:- Next time, try the obvious instead of assuming that it will not work or has already been tried!

KISS is always best, but we're guilty of over thinking things at times
However I'm sure you enjoyed creating that code

Originally Posted by davesexcel

I'm not exactly sure what is going on, but looking at the code, would it not be just the same to set the range to that font, there would be no reason to loop

Nope, that's what the OP posted & it doesn't work

@Chris Tuttle
Thanks for the Rep