Boa noite,

Talvez seja mais fácil fazer um código levando em consideração o(s) critério(s) de formatação condicional.
De qualquer forma, neste link há um código que conta as células coloridas por formatação condicional:

Excel: Contar Cores na Formatação Condicional

É só adaptar para SOMA.

Abraço

José,

Obrigado pela ajuda, porém o código em questão traz a quantidade de células pintadas.

O que eu preciso é que ele some os valores que constam nas células pintadas.

Att,

WS!

Como disse o colega José Carvalho, talvez o mais fácil seja um somase(s) utilizando o critério da formatação condicional

Prezado Reinaldo,

Infelizmente sou totalmente analfabeto em VBA....estou até estudando, mas não cheguei ainda nesta fase....

Se puder me ajudar, agradeço.

Obrigado,

WS!

Não por vba, mas por formulas. Todas as rotinas que já vi/desenvolvi para formatação condicional sempre apresentam problemas.
Coloque seu modelo, altere dados que julgue confidencial ou que não queira divulgar para fictícios. Assim ficará mais fácil tentar auxilia-lo.

Prezado,

Segue em anexo a planilha.

Gostaria de somar apenas o conteúdo das células que estão em azul.

Muito obrigado.

WS!

Juro que nao entendi ....

VC diz que quer somar as celulas em azul sendo que ja tem essa soma na coluna S

Explica isso novamente.

Se for o total das celulas em Azul é so somar a coluna S assim =SOMA(S4:S10)

Realmente nao entendi.

Voce pode utilizar, por exemplo =SOMASES(K6:BS6;K$4:BS4;">="&$G6;K$4:BS4;"<="&H6); contudo depois da coluna r, os valores de S4...BS4 não condizem com os valores em G

Muito bom...funcionou perfeitamente.

Muito obrigado.

Só para complementar o tópico.

Eu já usei esta função.

Function gfCelColorName(ByVal vCel As Range) As String
    Application.Volatile

    gfCelColorName = vCel.Interior.Color
End Function
Function gfSumIfColor(ByVal vInterval As Range, ByVal vColor As String) As Double
    Dim vCel As Range
    
    Application.Volatile
    
    For Each vCel In vInterval.Cells
        If CLng(vCel.Interior.Color) = vColor Then
            gfSumIfColor = gfSumIfColor + vCel.Value
        End If
    Next vCel
End Function

Talvez atenda a necessidade de alguém futuramente!