Comentários sobre: Contar Células Coloridas

Por: Diversas maneiras de Contar no Excel : Excel do Seu Jeito

Diversas maneiras de Contar no Excel : Excel do Seu Jeito — Thu, 26 Jan 2012 15:13:12 +0000

[...] forma de contagem que muitos usuários precisam recorrer é contar as células pela sua cor. Isto explico neste outro artigo [...]

Por: Reinaldo Coral

Reinaldo Coral — Mon, 03 Oct 2011 17:02:24 +0000

Para destacar as células de conteúdo OK, use formatação condicional.
Para somar o total de Oks, leia: http://www.exceldoseujeito.com.br/2008/12/10/diversas-maneiras-de-contar-no-excel/

Abç

Por: Marcos

Marcos — Tue, 27 Sep 2011 16:09:35 +0000

Olá tudo bem !
Gostaria de somar a quantidade de OKs em uma planilha. E quando puser OK , gostaria que a linha se destacasse com uma cor.Tem como fazer isso no excel ?

Por: Reinaldo Coral

Reinaldo Coral — Sun, 10 Apr 2011 14:14:01 +0000

A sub-rotina Worksheet_SelectionChange deve ser colocada dentro do módulo da própria planilha, não no módulo global como a função ContaCelula.

Abç

Por: Sara

Sara — Sat, 09 Apr 2011 23:08:20 +0000

Só complementando, só atualiza quando eu dou f2 na célula

Por: Sara

Sara — Sat, 09 Apr 2011 22:56:33 +0000

Reinaldo,

Acho que o problema é que estou colocando essa parte do calculete errado… porque a contagem está funcionando, mas quando ponho a parte do calculate dá errado :(

completo, ficaria assim?

Function ContaCelulaColorida(rngColorInfo As Range, Intervalo As Range) As Long

Dim rConta As Range

For Each rConta In Intervalo.Cells

If rConta.Interior.ColorIndex = rngColorInfo.Interior.ColorIndex Then

ContaCelulaColorida = ContaCelulaColorida + 1

End If

End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

Ou tenho que por a última parte em outro módulo?

Tô meio perdida, obrigada!!!

Por: Reinaldo Coral

Reinaldo Coral — Tue, 15 Mar 2011 13:22:59 +0000

Wilson,

Testei no 2010 e funcionou bem.

Abç

Por: Wilson

Wilson — Mon, 14 Mar 2011 23:05:28 +0000

Olá,

Agradeço muito pela dica.

Estou utilizando o excel 2010 e está funcionando perfeitamente. O único problema é que excel 2010 não está funcionando o seguinte:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

Alguma dica? pois quando mudo a cor e depois mudo de célula não recalcula.

obrigado

Por: Reinaldo Coral

Reinaldo Coral — Mon, 21 Feb 2011 21:01:00 +0000

Vanessa,

Não copie e cole não! As formatações HTML não são válidas no ambiente de texto puro do VBA.

Uma sugestão:

Baixe o arquivo de exemplo e copie de lá, ok!

Abç

Por: Vanessa

Vanessa — Mon, 21 Feb 2011 20:35:41 +0000

Definitivamente, não consigo encontrar o erro. Fiz tudo como orientado, mas minha fórmula retorna “NAME”.
As células indicadas estão corretas, mas acho que o erro continua sendo no VB, pois nunca havia mexido nesse programa antes.
Uma pergunta de leigo: eu copiei e colei o código que você descreveu. Devo manter os espaçamentos e números como aparecem na tela?

01
Function ContaCelulaColorida(rngColorInfo As Range, Intervalo As Range) As Long
02
Dim rConta As Range
03

04
For Each rConta In Intervalo.Cells
05
If rConta.Interior.ColorIndex = rngColorInfo.Interior.ColorIndex Then
06
ContaCelulaColorida = ContaCelulaColorida + 1
07
End If
08
Next
09

10
End Function

No aguardo.