Snasui Excel Forum

Code: Select all

Function CountCcolor(range_data As Range, criteria As Range, _
    c As Integer) As Long
    Dim datax As Range
    Dim xcolor As Long
    xcolor = criteria.Interior.ColorIndex
    For Each datax In range_data
        If datax.Interior.ColorIndex = xcolor Then
            If c = 1 Then
                CountCcolor = CountCcolor + 1
            ElseIf c = 2 Then
                If IsNumeric(datax) Then
                    CountCcolor = CountCcolor + 1
                End If
            End If
        End If
    Next datax
End Function