counting by conditional formatting color

[tbilderbac]

I got this code:

-----------
Public Function CountByColor2(CellRange As Range, TargetCell As Range)

Dim TargetColor As Long, Count As Long, C As Range

TargetColor = TargetCell.Interior.ColorIndex
For Each C In CellRange
If C.Interior.ColorIndex = TargetColor Then Count = Count + 1
Next C
CountByColor2 = Count


End Function
------------

I created the formula:
=CountByColor2(RC[-23]:RC[-6],R[-16]C[-25])

and wanting it to count up the RED blocks: [should be 5]

 

[tbilderbac]

It is not returning the number [should be 5] it is returning #VALUE!

 

[Fluff]

Do you still have your original function, or have you deleted it?

 

[tbilderbac]

I have them both

 

[Fluff]

In that case you need to delete your original function, or rename one of them.

 

[tbilderbac]

oh I have renamed them one is CountByColor and the other is CountByColor2. Having both, do they interfere with each other? I can get rid of one if I need to.

 

[Fluff]

You can keep both of them as long as they do not have the same names.

 

[tbilderbac]

Any idea why neither of the codes are working? When I watched the video where i saw the first one it worked so easily I thought no problem??

 

[Fluff]

If you edit the cell with the formula & hit Enter, do you get any error messages?

 

[tbilderbac]

I edit the cell with the formula [=CountByColor(RC[-23]:RC[-6],R[-16]C[-25])] and hit Enter and #VALUE! shows in the cell.

 

[Fluff]

Is all the code I posted in a standard module?