search for a cell colour and print the cells contents in a new she

[Guest]

hello is there any way to search a worksheet (sheet 1) for cells whose font
colour is red, and then print the contents in another worksheet (sheet 2)?

eg cell a3 contains 3255 and its font colour is red,
cell a33 contains 444 and its font colour is red.

I would like to output a3 to sheet 2 a1 and a33 to sheet 2 a2.
I would like to write a procedure which looks for these red cells and output
their values.... not in red... to another worksheet

Thank you for your reply

 

[Tom Ogilvy]

In excel 2002 and excel 2003, you can use Edit=>Find to search for formats
in cells.

Turn on the macro recorder and do it manually to get the code.

Look at the FindNext command example in VBA for an example of finding
multiple occurances.

In excel earlier than 2000, you will have to loop throught the range

Sub Abc()
Dim rw as Long, cell as Range
rw = 1
for each cell in activesheet.UsedRange '( or in Selection or Range("B2:F10")
if cell.interior.colorindex = 3 then
cell.copy Worksheets("Sheet2").Cells(rw,1)
rw = rw + 1
end if
Next
End Sub

 

[Guest]

Thank you again super Tom!!