Counting Cells with ColorFunction per month

[highlander2536]

Hi Have a sheet that counts the total number of cells in a column with specific colours
=ColorFunction(Closed!$B$1,Closed!$G$7:$G$9071,FALSE)

Each Cell has a date in it. I am able to count the total number of cells in used in any month by the date entered
=SUMPRODUCT(--(MONTH(Closed!D7:D2071)=1),(--(YEAR(Closed!D7:D2071)=2012)))

I now need to be able to combine the 2 by counting the total number of cells that are coloured RED for example in a specified month. Any suggestions

 

[Robert Mika]

The ColorFunction is not native to Excel.
Is an UDF -User Define Formula created by ..you?
Can you provide the VBA code?

 

[highlander2536]

VBA

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult

lCol = rColor.Interior.ColorIndex

If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If

ColorFunction = vResult
End Function

This was taken from another website which works perfectly for my needs for counting total colours but still need to be able to count colours by month