SOMASES POR CORES (SOMAR CORES COM MAIS UM CONDIÇÃO DE TEXTO)

Question

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

'Realiza operações de contagem, soma e média pela cor da célula
Public Function gfTotalCor(ByVal vTipo As Integer, ByVal vInterval As Range, ByVal vColor As Range) As Double
    'Recalcula a função em qualquer alteração da planilha
    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
                'Contar
                Case 1
                    vContar = vContar + 1
                'Somar
                Case 2
                    vSomar = vSomar + vCel.Value2
                'Média
                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