Olá,
Estou a procura de uma fórmula que além de somar as células que contem uma cor específica, some também somente se uma segunda célula apresentar um valor especifico. Ou seja seria um "SOMASES" com um primeiro critério de cor e um segundo de texto.
Já consegui o código para a soma de cores, mas estou com problemas em conseguir um com o adicional desse critério de texto
Option Explicit
Public Function gfTotalCor(ByVal vTipo As Integer, ByVal vInterval As Range, ByVal vColor As Range) As Double
Application.Volatile
Dim vCel As Range
Dim vContar As Double
Dim vSomar As Double
For Each vCel In vInterval.Cells
If CLng(vCel.Interior.Color) = vColor.Interior.Color Then
Select Case vTipo
Case 1
vContar = vContar + 1
Case 2
vSomar = vSomar + vCel.Value2
Case 3
vContar = vContar + 1
vSomar = vSomar + vCel.Value2
End Select
End If
Next vCel
If vTipo = 3 Then
gfTotalCor = vSomar / vContar
Else
gfTotalCor = vSomar + vContar
End If
End Function