Adding values based on cell colour

[Stewie]

Hi, I am trying to calculate value of cells with a specific colour - red.


I understand excel uses vba for this function - can you advise please, i have no experience of using code,


Regards,
Stewie

[vijaydm]

Hi

Please use below UDF
based on cells..
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)


Application.Volatile
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

[vijaydm]

any doubts .. please send me the attachment i will help u