VBA: If Any Cell in a Range is Yellow Then Do Not Change Color.

[mykulpasskwa]

Hi, I have different ranges of cells where once a cell goes over a limit then that cell changes yellow. Once one cell changes yellow in the range I don't want the cells after to change yellow. The ColorIndex of every other cell is 24 if that's helpful. For example, in a range of F4:F7 if the limit is reached in F5 then that should change yellow (6) but F6 and F7 should stay blue (24). This is what I have so far:

                    For Each oneCell In Range("F" & f & ":F" & X)
                        If oneCell.Interior.ColorIndex = 6 Then 'Do Nothing
                            Else: If counter >= giresult Then ws.Range("F" & X).Interior.ColorIndex = 6
                        End If
                    Next

 

[mikerickson]

If oneCell.Interior.ColorIndex = 6 Then 
    'Do Nothing
Else
    If counter >= giresult Then 
        ws.Range("F" & X).Interior.ColorIndex = 6
        Exit For
    End If
End If

 

[mykulpasskwa]

I wasn't able to get that to work properly, but after fiddling around with it for a while I came up with this and it seems to do the trick.

Edit: Sorry, let me rephrase, I wasn't able to get that exact code to work but after adding the

Range("F" & f & ":F" & X).Select

your code worked perfectly! Thank you!

        For Each oneCell In Range("F" & f & ":F" & X).Cells(f, 0)
            If oneCell.Interior.ColorIndex = 6 Then
                    'Do Nothing
                Else
                    If counter >= giresult Then
                        Range("F" & f & ":F" & X).Select
                        ws.Range("F" & X).Interior.ColorIndex = 6
                        Exit For
                    End If
                End If
            Next