FindFormat ColorIndex Then Make A List

Thanks to all who have helped this little project of mine get this far!


Next step -

Generate a list of all the cells with a given interior color

Two Lists are needed

The first list will search for anything red on a single Sheet "INVMaster" and paste the cell contents in a list form

The second will search for anything red on 17 other sheets (though in this example I only included 2) and make a single list of the red cells found.


Right now i have been researching on it and I read that .Find won't work, that I need .FindFormat

You guys have any ideas?

Hi cwhite86,

I tend to write code that is verbose. The following code works for me. There are working copies of the code in the attached file which I refer to quite often.

Please note that .find is very particular about the inputs:
a. ws.Cells.Find and ws.Range MUST refer to the same sheet.
b. In the 'FindNext' example, ws.Columns("C") and After:=ws.Range("C1") must Match (e.g. Column 'C').

Please Login or Register  to view this content.

Similar code for your previous thread:

Please Login or Register  to view this content.

Lewis

Thanks for that, Haven't responded due to security issues on site.

Thanks again.