Notifications
Clear all

somar por cor de celular com formatação condicional

4 Posts
2 Usuários
0 Reactions
1,119 Visualizações
(@heitorctm)
Posts: 0
New Member
Topic starter
 

Criei uma função por meio de macro no VBA chamada somacor. Ela soma todas as células de um intervalo com o plano de fundo referenciado. Porém, quando eu uso uma formatação condicional para as células ficarem coloridas automaticamente com base nas datas, ela não soma mas se eu colorir manualmente funciona normalmente. Ajuda?

 
Postado : 04/07/2017 1:06 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

heitorctm,

Anexe cópia do seu arquivo aqui no fórum, compactado com .ZIP.

 
Postado : 04/07/2017 2:41 pm
(@heitorctm)
Posts: 0
New Member
Topic starter
 

Segue arquivo.

 
Postado : 05/07/2017 4:44 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

heitorctm,

Bom dia!

Cara, acho que isso é um bug do VBA. Ele não consegue "enxergar" cor na célula quando é apenas um formato da mesma. Inseri no módulo 2 (para você observar) um pequeno teste para que o VBA mostre através do MsgBox as cores das células G11 e K11. Veja que apesar das duas serem aparentemente vermelhas, o VBA informa -4142 (sem cor) para a célula G11 e 3 (vermelho) para a K11.

Desse modo, creio que a solução para esse tipo de problema, seja você reformular sua função de modo que não precise usar a formatação condicional. Outra forma é, ao invés de usar formatação condicional para pintar a célula quando a mesma estiver dentro do período desejado, você usar também código VBA para quando inserir uma data e esta atender aos parâmetros que você quer, você PINTAR a célula na cor que você quer. Assim o VBA vai "enxergar" a cor da célula.

 
Postado : 06/07/2017 4:55 am