Boa tarde!!

Eu creio que até a versão 2010, seja impossível, pois o vba verifica o fundo da célula pintado, o recurso nativo do excel (formatação condicional), é como se fosse apenas uma cor visual, e não o fundo realmente pintado.

Att

vba não consegue enxergar "formatação condicional" facilmente
formatação condicional é como uma mascara.
existem certos artifícios para contornar isso, mas...é um trabalho ingrato!

um deles seria fazer um filtro por cor e um loop entre as colunas

a maneira mais rapido "em termo de velocidade da macro" seria colocar os termos da formatação codicional em uma funçao

Boa tarde!!!

Tenho um VBA pra contar cores (CountCcolor...)

caso você queira resolver de outra forma (recomendada pelo edcronos), seria melhor do que usar a formatação na guia, pois, você já tem um recurso em vba, então seria melhor aplicar a regra da formatação via VBA e não usando a formatação condicional.

Att

Então, pode ser mas o que eu acrescento?
o VBA é esse:

Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function

O que eu coloco pra que a formatação condicional esteja aqui?

Segue anexo da formatação condicional que eu tenho! ela é por fórmula!

Boa noite Arihern

No site do link abaixo tem uma função UDF que conta células com formatação condicional:

http://www.exceldoseujeito.com.br/2010/ ... ndicional/
Se a dica foi útil, clique na mãozinha;

[]s

Oi,

Legal, coloquei a formula no VBA mas fica #VALOR! quando escrevo a formula! o que pode ser?

Se refere-se ao link que o Patropi passou, são, creio eu, 3 funções que devem ser inseridas em um modulo no VBA, (não pode estar em planilha) e em uma celula da planilha que deseja "Contar" inserir a formula (não no VBA).

Então, fiz isso, mas mesmo assim da o tal do #Valor!

Post o que fez, assim poderá ter um retorno direcionado ao problema, senão ficaremos no achometro e vai longe

Segue em anexo! abraços!

Estive verificando e aparentemente a função proposta pelo site tem seu funcionamento muito restrito; ou seja algumas "evoluções" das formulas na formatação condicional não são compreendidas.
Contudo se as formatações forem conforme seu exemplo, pode-se utilizar cont.se --> CONT.SE(C7:C25;">="&0,8)

Deu muito certo! muito mais fácil!

Um grande abraço!