VBA code for if cell Background color is yellow then give me "y" if not "n"

[boldcode]

Hi all,

Here is my situation, I have two columns A and B:

Column A Column B
12 y
14 n

If cells in Column A have a background color of yellow, then in the adjacent cells in Column B give a "y" for yes they have a background color of yellow or "n" if they do not have a background color of yellow.

Thanks in advance!

BC

 

[VoG]

Try

Sub yella()
Dim LR As Long, I As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To LR
    With Range("B" & I)
        .Value = IIf(.Offset(, -1).Interior.ColorIndex = 6, "y", "n")
    End With
Next I
End Sub

 

[boldcode]

the code you sent is not working, cells with background color yellow come up with a "n"

 

[VoG]

My code will only work with cells that are coloured manually, not with Conditional Formatting.

If the cells are manually coloured, click in a yellow cell and run this

Sub ColCode()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Replace the 6 in the code I posted earlier with the returned value.

 

[boldcode]

Unfortunately my cells with the background are with Conditional formatting. Any ideas?

 

[rdw72777]

Use the same formula you used in Conditional formatting. Whatever functionality you used in Conditional formatting can be passed through VBA

 

[boldcode]

Ryan,

I am not following what you are saying, I have actually three columns:

Column A Column B Column C
11 12 n
15 14 y

The conditional formatting I have in Column B is if =$A2>$B2 then use background color yellow.

What I want is just "y" for yes they have a background color of yellow or "n" if they do not have a background color of yellow.

 

[VoG]

It would have helped if you had said exactly what you wanted, without dumming down the question, in the first place.

Sub yella()
Dim LR As Long, I As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To LR
    With Range("C" & I)
        .Value = IIf(.Offset(, -2).Value > .Offset(, -1).Value, "y", "n")
    End With
Next I
End Sub

 

[rdw72777]

Look at Vog's code and I'll try to walk you through it

Sub yella()
Dim LR As Long, I As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To LR
   If Cells(i,1).value = Cells(i,2).value then
        Cells(i,3) = "y"
   Else
        Cells(i,3).value = "n"
   Endif 
Next I
End Sub

Vog's initial formula was checking the selected cell for a background color, the above modified code (the If Statement) should test Col A vs Col B and put the correct value in C. test it out

 

[boldcode]

VoG,

I apologize, I appreciate your time. I forgot to mention an important factor to the question that's my fault.