Help needed! to check for presence of cell color

[fountainwood]

I need help here!
I want to create some code that checks all the cells in a row to find if any cell has a background color and if it finds any colored cell, to then set the first column of that row to that color.

desperate!

 

[fountainwood]

I will have 2 potential colors - yellow and red and they could be in any column in the row. Possibly both colors in the same row, either color or no color.
Column 1 will never be colored initially.

If a color is present, then I would like to set column 1 to be that color - but for red to take precedence over yellow in the situation where both colors might have existed somewhere in the row.

Typically, I have about 40 columns and around 100 rows but the rows will vary up or down.

 

[fountainwood]

OK........

This works:

Dim c As Range
For Each c In Worksheets("Raw Data").UsedRange
' if deliverable cell is already set to red then no need to check rest of row
If Cells(c.Row, 1).Interior.ColorIndex <> 3 Then
If c.Interior.ColorIndex <> xlNone Then
Cells(c.Row, 1).Interior.ColorIndex = c.Interior.ColorIndex
End If
End If
Next c

The majority of my rows have no color, therefore, it would speed up the process if I could first check the entire row for no color before the need to go check each cell.

So, is there a means to check a row for any fill color without having to navigate each cell ?

 

[fountainwood]

Any thoughts?

 

[Oaktree]

If you're using Excel 2002 or later, I'd still recommend using the Application.FindFormat approach I suggested in my first post.

Just run it first for yellow and then for red, as you want red to take precedence if both are present.