A numeração do código não deve ser escrita não.
Sugestão: No artigo aqui no site, quando você passar o mouse sobre o código, vai aparecer no topo do código, alguns ícones, clique no primeiro ícone para visualizar o código em texto puro, ou no segundo ícone para copiar o código.
Desta maneira, a numeração e os caracteres HTML não serão copiados, ok.

Quanto a fechar a janela do VBA não se faz necessário. A compilação é imediata.

Abraço.

1 3 5 6 7 8 9 10 14 16 17 18 20 21 22 24 9
2 4 5 6 7 8 9 10 15 16 17 18 20 23 24 25 8
3 3 4 5 6 7 8 10 12 14 15 16 21 23 24 25 9
4 3 4 5 6 7 8 10 12 14 15 18 21 23 24 25 10
5 4 5 6 7 8 9 10 12 15 16 18 22 23 24 25 8
6 3 4 7 9 12 14 15 16 17 18 20 21 22 23 25 11
7 3 4 5 8 9 10 12 14 15 17 20 21 22 23 25 10
8 3 4 6 8 9 12 14 15 17 20 21 22 23 24 25 12
9 1 2 3 5 6 7 8 10 11 13 14 16 18 19 20
10 1 2 4 8 9 11 12 13 16 17 19 21 22 24 25
11 1 2 3 7 10 11 13 15 17 18 19 21 22 23 24
12 1 2 4 5 6 9 11 12 13 14 15 19 20 23 25
13 1 2 3 4 7 8 9 10 11 12 13 15 18 19 25
14 1 2 5 6 8 11 13 14 15 17 19 20 21 22 24
15 1 2 5 7 11 13 15 16 17 18 19 20 21 22 24
16 1 2 3 4 6 10 11 12 13 14 16 17 19 21 23
17 1 2 4 6 7 8 11 12 13 14 18 19 22 23 24
18 1 2 3 5 8 9 10 11 13 17 19 20 21 23 25
19 1 2 4 5 7 11 12 13 16 17 18 19 20 21 23
20 1 2 3 6 9 10 11 13 14 15 16 19 22 24 25
21 1 2 6 7 8 9 11 13 14 15 17 18 19 21 25
22 1 2 3 4 5 8 10 11 12 13 15 19 20 22 24
23 1 2 3 5 7 8 10 11 13 15 16 18 19 20 23

Em uma planilha do excel tenho uma tabela com 25 linhas e com 16 colunas. tenho numeros como referencia (linha 1) e estou usando formatação condicional para colorir as celulas que são iguais aos numeros de referencia. Necessito somar (por linha) a quantidade de celulas coloridas, conforme exemplo abaixo. linha 2 = 8 celulas coloridas linha 3 = 9 linhas coloridas e assim por diante.

linha 1- _ 1 2 4 6 8 10 11 12 14 16 17 18 19 21 22 <=== num. de referencia.
linha 2- 1 1 2 3 5 6 8 11 13 14 16 17 20 23 25 28 8 celulas
linha 3- 2 1 2 4 6 8 9 11 13 15 16 17 18 20 23 25 9 celulas
linha 4- 3 1 3 4 5 9 10 15 16 20 21 22 23 24 25 26 6 celulas
linha 5- 4 3 6 8 10 11 12 13 14 15 16 17 18 19 21 22 12 celulas
linha 6- 5
linha 7- 6
linha 8- 7
linha 9- 8

Na segunda linha teremos 08 celulas coloridas
terceira linha teremos 09 celulas coloridas
quarta linha teremos 06 celulas coloridas
quinta linha teremos 12 celulas coloridas

Grato pela atenção dada ao meu problema.

Jefferson.

Tenho um exemplo do que necessito em PDF e se possivel gostaria de posta-lo ou envia0lo a vc para que pudesse avalia-lo e mostrar qual q melhor formula a usar para contar celulas coloridas.

Contando com sua colaboração e paciência.

Agradeço desde já. Cordialemnte.

Jefferson

Abç

Está dando algum problema…

Abç

onde se lê: ContaCelulaColorida

considere: ContaCelulaColoridaFormatCond

Alterei: ContaCelulaColorida = ContaCelulaColorida + 1

Por: ContaCelulaColorida = ContaCelulaColorida + rConta.Value

e alterei: Function ContaCelulaColorida(rngColorInfo As Range, Intervalo As Range) As Long

por: Function ContaCelulaColorida(rngColorInfo As Range, Intervalo As Range) As Double

Modifiquei também: CellValue = CDbl(Cell.Value)

para: CellValue = Replace(Cell.Value, “,”, “.”)

Mas quando tento fechar o VB aparece uma janela dizendo “Erro de compilação: Variavel não definida”

Poderia me ajudar, por favor?

Obrigado!

Baixei o arquivo e copiei a fórmula, mas não sei por que não da certo.

O Excel não diz nada. Apenas quando clico em “Fórmulas / Verificação de Erros” diz que “Um valor usado na fórmula tem o tipo de dados incorreto”.

O que posso fazer? Sabe o que pode estar acontecendo?

Existe algum e-mail para o qual posso enviar minha planilha para que você de uma olhada, talvez ajude outras pessoas.

Obrigado!

Abraços,