Valteson

Você renomeou a planilha ou moveu para outro diretório?

Veja se foi o que entendi. Usando a função cont.se é possível ver que existem 2143 customr_id com dispositivo web. =CONT.SE($L$2:$L$9613;"=web") Ou, =CONT.SE($L$2:$L$9613;"="&L3) Onde L3 é o dispositivo web.

Poste sua planilha aqui com o erro. Porque a minha está funcionando bem.

Tá dando que erro?

O erro é no nome da planilha. Nessa linha que está amarela, onde tem "Plan1" você troca por "OITAVAS QUARTAS SEMIFINAL"

É possível. Mas você terá que mudar o código VBA

kkk . .. não se desespere. Coloquei só mais um SE e voilà. A planilha ficou show. WBOLÃO DGAI - COPA DO MUNDO 2018 - VERSÃO 7.rar

Essa planilha que você enviou estava com uma alteração nas formulas daquelas linhas que estão com o preenchimento preto. Copiei as fórmulas da primeira linha (linha 28) para as demais (linhas 29 a 43).

É um arquivo do tipo .rar (pode abrir com o winzip ou winrar) 1 - Renomeie ele para "WBOLÃO DGAI - COPA DO MUNDO 2018 - VERSÃO 5.rar" (sem aspas). 2 - Abra o arquivo com o winzip ou winrar O modelo do arquivo é xlms (planilha do excel habilitada para macros).

Olá! Desculpa pela demora. Só consegui um tempo de responde agora. Consegui resolver o problema do ordenamento criando uma macro que transcrevi abaixo ( se você não souber ainda como elas funcionam e como criá-las, procura as aulas de Alessandro Trovato, são muito boas). Para acionar a macro basta clicar no trofeu copa do mundo 2018 ( transformei ele em um botão). Temos outro problema, quando ordeno aqueles simbolos de 1, 2, 3 ... lugar se embaralham completamente. Macro criada. Sub Ordenar() ' ' Ordenar Macro ' Ordena a classificação do maior para o menor ' ' Range("D9").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("D9"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Plan1").Sort .SetRange Range("B9:EB24") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("C9").Select End Sub WBOLÃO DGAI - COPA DO MUNDO 2018 - VERSÃO 5. pdf.rar

Também estou aprendendo, William. Essa referência D27 pode ficar, mas como não está sendo usada é melhor remover. Basta apagar toda a estrutura do SE e deixar apenas a fórmula de soma. Para mostrar os participantes ranqueados; existem várias formas: - Pode ordenar/classificar manualmente o intervalo das pontuações (C10:C25) do maior para o menor, expandindo a seleção; - Pode criar uma macro ligada a um botão que faça tal tarefa. - - - - - - - - Se essas respostas foram últeis, curta o post, desde já desejo boa sorte!

É um processo demorado. Te uma planilha boa no mercado livre por R$ 5,00. https://produto.mercadolivre.com.br/MLB-1028038116-planilha-para-gerar-cartelas-de-bingo-_JM adicionado 22 minutos depois Se essa não for suficiente, pode entrar em contato.

Como ficaria se o fulano apostasse em um empate? Nesse caso ele não estaria apontando um vencedor. Também não entendi a referencia a $D$27 que você está fazendo na contagem das pontuações de cada apostador. (Altrano está recebendo a pontuação de D27 ... -_-' .. kkk). Consegui colocar mais uma fórmula no espacio vazio que você deixou lá embaixo. Ficou assim: - O que você já fez foi mantido; - Se o jogador acertou o placar, a contagem do vencedor zera automaticamente; - Se ele não acertou o placar, nem apostou em empate (preciso saber ainda o que acontece em empate), chequei a posição do time que fez mais gols (vencedor) e comparei com a posição apostada atribuindo 1 para igualdade. - Por fim alterei a contagem que você fez item a item e coloquei soma(D:AH). Veja o que achou da planilha e dê um retorno. Abraços. WBOLÃO DGAI - COPA DO MUNDO 2018 - VERSÃO VALTESON.xlsx

É possivel sim. Alterando o codigo do botão inserindo um If no começo.

Boa tarde! Consegui fazer essa mesma tarefa com menos linhas. O código conta da linha 1 a linha n, enquanto forem diferente de vazio. Segue o código: Sub CONTAR() Dim CONT As Double Dim limite As Double Range("A1").Select CONT = 0 limite = 100 Do While ActiveCell <> "" Do While CONT < limite If ActiveCell.Value = "" Then ActiveCell.Value = CONT ActiveCell.Interior.Color = vbRed End Else CONT = CONT + ActiveCell.Value ActiveCell.Offset(1, 0).Activate End If Loop CONT = CONT - ActiveCell.Offset(-1, 0).Value ActiveCell.Offset(-1, 0).Activate Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.Value = CONT ActiveCell.Interior.Color = vbRed ActiveCell.Offset(1, 0).Activate CONT = 0 Loop End Sub