Excel - Fórmula SOMACOR

[Jonas_rs79]

Bom dia, criei uma função SOMACOR que realiza a soma dos valores conforme as cores especificadas. O problema é que após criada a fórmula, se eu altero uma cor, o resultado da fórmula não muda automaticamente.

Alguém sabe como realizar isto?

Obrigado

[Consultor_GO]

Uso a expressão abaixo dentro das minhas funções. Você pode colocar no início da Function

Application.volatile (Definição Excel)

Marca uma função definida pelo usuário como volátil. Uma função volátil precisa ser recalculada sempre que ocorrem cálculos em qualquer célula da planilha. Um função não volátil só é recalculada quando as variáveis de entrada são alteradas. Este método não tem efeito quando não está dentro de uma função definida pelo usuário usada para calcular uma célula de pasta de trabalho.

[Jonas_rs79]

Ok Consultor_GO, vou testar. Obrigado

[Jonas_rs79]

Consultor_GO, testei conforme função mas não dá certo. A tabela é a seguinte:

NOME JAN FEV MAR VERM AZUL

a 10 10 10 10 20

b 10 10 10 10 20

c 10 10 10 10 20

A coluna JAN está com a fonte vermelha, as colunas FEV e MAR estão com as cores azul. Se eu mudar a coluna FEV para fonte vermelha, mesmo com a expressão sugerida, não muda automaticamente.

Function SOMACOR(Intervalo As Range, ByVal Cor$) As Double

Dim c As Range, xcolor&, xvalue#

Application.Volatile (SOMACOR)

Select Case Cor$

'VERMELHO

Case "1"

xcolor& = 255

'AZUL

Case "2"

xcolor& = RGB(0, 0, 255)

End Select

For Each c In Intervalo

If c.Font.Color = xcolor Then

xvalue# = xvalue# + c.Value

End If

Next

SOMACOR = xvalue#

End Function

[Consultor_GO]

Estou verificando se existe outra forma visto que para este caso não existe mudanças nas células, apenas na cor, sendo assim ele não refaz o cálculo.

Vou analisar!