Enter cell value based on cell colour.

[DeanRobinson]

Hi all, was wondering if someone could help, im after a code to enter a cell value based on the cells colour,

So what i want the code to do is look at range B:B and if it see cell colour Red change the value of the cell to DDR.

 

[austin350s10]

Try:

Sub test23()

For Each c In Range("B:B")
    If c.InteriorColor = xlRed Then
        c.Value = "DDR"
    End If
Next c
End Sub

You may need to use the actual color code instead of xlRed....

 

[DeanRobinson]

That spot on thank you

 

[DeanRobinson]

Thanks again, final code used was

 For Each c In Range("B:B")
    If c.Interior.ColorIndex = 3 Then
        c.Value = "DDR"
    End If
    Next c