Boa tarde, Pessoal
criei uma função da seguinte forma:
"Function SomarCelulaColorida(cor As Range, intervalo As Range) As Double
Dim valor As Range
For Each valor In intervalo.Cells
If valor.Interior.ColorIndex = cor.Interior.ColorIndex Then
SomarCelulaColorida = SomarCelulaColorida + valor.Value
End If
Next
End Function"
Essa função capta a cor de uma célula, selecionada pelo usuário, e soma todas as células que tem esse preenchimento de cor(com o intervalo definido também pelo usuário.
Até aí tudo bem.
Mas os problemas(são 2) começam agora:
1º - Quando mudo a cor de uma das celulas do intervalo, a soma não se altera, somente se eu clicar 2 vezes na celula que contem a formula e clicar enter, então ela se atualiza. O problema é que já conferi, e nas opções do excel, na guia formulas, já está marcado para ser "Automático". (Só para informar: se uso o botão "Formatar pincel" e "transfiro" a cor de uma celula e aplico em uma célula do intervalo, a fórmula é atualizada automaticamente).
2º - Se coloco 2 formulas dessa, 1 em cada celula, e escolho cores totalmente diferentes, como amarelo e vermelho, tudo bem, cada celula retorna o valor real da soma respectiva de cada cor. Mas se coloco cores muito próximas, como o vermelho e o vermelho-escuro, as celulas retornam o mesmo resultado, ou seja, a soma foi realizada em todo intervalo, não reconhecendo as cores como sendo diferentes.
Se alguém souber resolver esse problema, favor ajudar.
Muito Obrigado.