Is it possible to write an IF statement that returns a value in a cell, if another cell is coloured yellow and red?

[Sampoline]

I have some rows that are coloured in yellow or red and other rows with no fill or a different colour. I only want the yellow and red rows to return a value.

When a row has a red or yellow fill, I have a separate column that should return a value (for example: "Y"). If not yellow or red, it should leave that cell blank.

Is this possible? Perhaps VBA if required? See below for example of what I mean:

 

[kweaver]

This UDF will determine the interior color of a cell:

Function getColor(Rng As Range, ByVal ColorFormat As String) As Variant
    Dim ColorValue As Variant
    ColorValue = Cells(Rng.Row, Rng.Column).Interior.Color
    Select Case LCase(ColorFormat)
        Case "index"
            getColor = Rng.Interior.ColorIndex
        Case "rgb"
            getColor = (ColorValue Mod 256) & ", " & ((ColorValue \ 256) Mod 256) & ", " & (ColorValue \ 65536)
        Case Else
            getColor = "Only use 'Index' or 'RGB' as second argument!"
    End Select
End Function

That should help you define your IF statement doing something like: =getColor(A2,"index") and testing that for the value in question.
OR:

=IF(OR(3=GetColor(A2,"Index"),6=GetColor(A2,"index")),"Y","")

 

[Sampoline]

This UDF will determine the interior color of a cell:

Function getColor(Rng As Range, ByVal ColorFormat As String) As Variant
    Dim ColorValue As Variant
    ColorValue = Cells(Rng.Row, Rng.Column).Interior.Color
    Select Case LCase(ColorFormat)
        Case "index"
            getColor = Rng.Interior.ColorIndex
        Case "rgb"
            getColor = (ColorValue Mod 256) & ", " & ((ColorValue \ 256) Mod 256) & ", " & (ColorValue \ 65536)
        Case Else
            getColor = "Only use 'Index' or 'RGB' as second argument!"
    End Select
End Function

That should help you define your IF statement doing something like: =getColor(A2,"index") and testing that for the value in question.
OR:

=IF(OR(3=GetColor(A2,"Index"),6=GetColor(A2,"index")),"Y","")

Thankyou so much kweaver! This worked like a charm