VBA if function based on colors

[lcaindoy]

Hope you could help me.

I saw the below code in the internet, however, I don't know why it's not working for me.

Function CheckColor1(range)
If range.Interior.Color = RGB(256, 256, 0) Then
CheckColor1 = "***"
Else
CheckColor1 = ""
End If
End Function

Inputs:
1. I have set of data and one column (Let's say J column) has blank, yellow, and other colors in a set of range (J7 to J500)
2. I have tried the above formula but its not working.

Output:
1. Based on the color on each cell, I want to make a markings.
If yellow, it will note "***"
If other, it will be blank
2. output is on column K

Please let me know if you need further info.

 

[lcaindoy]

To me, it looks like it should work as it is. You would use it like:

=CheckColor1(A1)

and if A1 is yellow (again, assuming 256, 256, 0 is yellow) it should put "***" in the cell the formula is in, which I would assume would be B1.

It's still not working, I've tried doing it on a new file like nothing is there. It is still not working.

 

[jproffer]

I put EXACTLY what you have in a standard (not worksheet, not workbook) code module and in the same workbook, I used it like this:

Book1
	A	B
1		***
2
3		***
4
5		***
Sheet1

Cell Formulas
Range	Formula
B1	=checkcolor1(A1)

and that's what I got.