Finding no-fill cells

[cmeier7]

Hello, I want to determine if certain cells are filled or not filled. I also need to assign a white fill to another cell based on if the cell is white or not filled. I have:

ElseIf Sheets(n).Cells(b, 7).Interior.ColorIndex = 2 Or 0 Then
        With Sheets("Results_STEEL").Cells(r, c)
            .Interior.ColorIndex = 2
        End With

It works with white (ci of 2) but the code does not recognize 0 as a color index. How should I go about doing this? Thanks in advance.

-cmeier7

 

[VoG]

Try

ElseIf Sheets(n).Cells(b, 7).Interior.ColorIndex = 2 Or Sheets(n).Cells(b, 7).Interior.ColorIndex = xlNone Then

 

[cmeier7]

Excel still does not recognize a no fill as = x1None.

If Sheets(n).Cells(b, 3).Interior.ColorIndex = 15 Then
        GoTo Continue01
    ElseIf Sheets(n).Cells(b, 3).Interior.ColorIndex = 2 Or x1None Then
        With Sheets("Results_STEEL").Cells(r, c)
            .Interior.ColorIndex = 2
        End With
    Else
        MsgBox ("One of the cells being analyzed is a different color than 25% gray or white.  Please check this and try again.")
        Exit Sub
    End If

If it comes to a no-fill cell, it continues to produce the message box. Yet I still want it to make the fill white.

 

[VoG]

It is xlNone not x1None