Este fórum está sendo desativado

[Rapososilva]

Estou criando uma planilha de um bolão da mega sena ação entre amigos, como funciona: cada participante escolhe seis números e cada sorteio da mega sena vai pontuando a cada acerto o primeiro que fechar os seis números será o ganhador. Para conferir consegui fazer que cada acerto a célula pinta de verde mais eu queria também que contasse cada célula que foi pintada na linha com 6 células.
Será se tem uma formula para fazer isso, usei outras formulas que encontrei na net mais nenhuma deu certo?
Será se pode mim ajudar.
Estou mandando em anexo a planilha
Obrigado!
Sidnei

[Kledison]

Boa tarde,

fiz uma alteração na sua tabela removendo os telefones e anexei novamente.


Att
Moderador.

[Kledison]

Boa tarde,

segue uma solução, está um pouco lento na hora de atualizar, verifica se ajuda.

Att

[Rapososilva]

Kledison, boa tarde!
Meu caro é disso mesmo que preciso, mas ta acontecendo o seguinte u baixo o arquivo quando eu abro está perfeito quando eu clico em habilitar edição e habilitar conteúdo ela não faz a contagem correta, o que pode ser?

Att
Sidnei

[Kledison]

Olá,

tira um print e anexa para eu ver o que está acontecendo.

[Rapososilva]

Em anexo o print

[Rapososilva]

Kledison
Em anexo o print da planilha

[Kledison]

Rapososilva,

vamos por parte:

A célula AG1 deverá está pintada com a cor verde, mesma cor da tabela;

Na coluna Q8 deve está com esta fórmula, depois arraste para baixo:

Código: Selecionar todos

=ContaCelulaColoridaFormatCond($AG$1;K8:P8);

Criei uma formatação condicional para colorir a cor da célula quando a pessoa completar os seis números;

Foi criado um módulo VBA para colocar a função usada, verifique se está funcionando.

Aqui está funcionando sem ERROS, estou utilizando o Office 2013.

Coloquei outro anexo, com um código VBA complementar na plan1.

[Rapososilva]

Kledison
Valeu a ajuda muito obrigado funcionou legal.
Att
Sidnei

[Kledison]

Ok amigo,

obrigado pelo retorno, o fórum agradece.

Finalize o tópico caso não tenha mais dúvidas.

Att