veja se é isso: Function CountCcolor(range_data As Range, criteria As Range, criteria2 As String) As Long Dim datax As Range Dim xcolor As Long Dim x...