Add text based on Cell Color

[CJ_D]

I need help with a macro. I need a macro that will put an "X" in either the "Pass" column or in the "Fail" column based to the color of the cells in columns C, D and E.

IE. If the color in Cell C.8 is green, put an X in the Pass column. If the color is red, put an X in the fail column.

Thank you in advance.

Using office 365. Windows

 

[My Aswer Is This]

Try this:
Assuming your cell colors are actually VbRed or VbGreen
This does not work if you cell color is determined by Conditional formatting.
And your post said:
based to the color of the cells in columns C, D and E.
you did not say what happens if c is red and D is green.
And must we check C D and E
This script only checks column C

Sub Check_For_Color()
'Modified 3/4/2020 3:23:38 PM EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
For i = 8 To Lastrow
If Cells(i, "C").Interior.Color = vbGreen Then Cells(i, "G").Value = "X"
If Cells(i, "C").Interior.Color = vbRed Then Cells(i, "H").Value = "X"
Next
Application.ScreenUpdating = True
End Sub

 

[Fluff]

@My Aswer Is This
If you make this change to your code, it will handle CF colours as well

Sub Check_For_Color()
'Modified 3/4/2020 3:23:38 PM EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
For i = 8 To Lastrow
If Cells(i, "C").DisplayFormat.Interior.Color = vbGreen Then Cells(i, "G").Value = "X"
If Cells(i, "C").DisplayFormat.Interior.Color = vbRed Then Cells(i, "H").Value = "X"
Next
Application.ScreenUpdating = True
End Sub