Notifications
Clear all

somar por cor de celular com formatação condicional

4 Posts
2 Usuários
0 Reactions
1,135 Visualizações
(@heitorctm)
Posts: 8
Active 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

heitorctm,

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

Segue arquivo.

 
Postado : 05/07/2017 4:44 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 06/07/2017 4:55 am