Valteson

Aprendi a fazer uma conexão via correspondência entre excel e word. Muito últil para o dia a dia.

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

Criei um código usando basicamente o Do while pra encontrar a primeira linha vazia. Segue o código e a planilha. Sub AddPedido() ' ' Adiciona o pedido à planilha Pedido ' Dim u, v As Worksheet 'Atribue as planilhas às variáveis Set u = Worksheets("Gerador de Pedido") Set v = Worksheets("Pedido") v.Select v.Range("A4").Select If v.Range("A4") = "" Then 'Testa se a primeira linha está vazia v.Range("A4").Value = u.Range("Q2").Value v.Range("B4").Value = u.Range("AD11").Value v.Range("C4").Value = u.Range("F4").Value v.Range("D4").Value = u.Range("S6").Value v.Range("E4").Value = u.Range("AD6").Value v.Range("F4").Value = u.Range("E15").Value Else Do While ActiveCell.Value <> "" ' Procura a primeira linha vazia ActiveCell.Offset(1, 0).Activate 'Desce uma linha Loop ActiveCell.Value = u.Range("Q2").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("AD11").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("F4").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("S6").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("AD6").Value ActiveCell.Offset(0, 1).Activate ActiveCell.Value = u.Range("E15").Value ActiveCell.Offset(0, 1).Activate End If u.Select u.Range("Z17").Select End Sub Gerador de Pedido_macro.rar

Me deparei hoje com o problema de contar a quantidade de células em um intervalo com uma determinada com. Após pesquisar um pouco encontrei a propriedade color que pode ser aplicada ao range ou a cells (range("A1").Interior.color e cells(1,1).interior.color. Fiz um código no VBE que analisa cada célula em um Range especificado pelo usuário e retoma 1 se a cor for da célula analisada for igual à cor da célula de referencia. Um contador armazena os valores diferentes de 0. Ao final, ele salva na célula A1 a quantidade de células de mesma cor que ela. Fica um ponto em aberto, o código não conta as células coloridas pela formatação condicional. Segue o código comentado. Sub Cor() 'Checar quantas células em um intervalo estão na cor da célula A1 ' Dim Cor As Variant 'Cria a variável que reconhecerá a cor da célula de referência Dim i, j As Long 'Cria as varáveis de linha e coluna Dim teste As Integer Dim Contador As Integer Dim L_in, L_fin, Col_in, Col_fin As Integer 'Cria as variáveis que representaram o range de análise 'Seleciona a célula de referência Range("A1").Select 'Reconhece o atributo cor da célula de referência Cor = Range("A1").Interior.Color L_in = Range("F2").Value L_fin = Range("G2").Value Col_in = Range("F3").Value Col_fin = Range("G3").Value i = L_in Contador = 0 Do While i <= L_fin j = Col_in Do While j <= Col_fin If Cells(i, j).Interior.Color = Cor Then teste = 1 Else: teste = 0 End If Contador = Contador + teste j = j + 1 Loop i = i + 1 Loop Range("A1").Value = Contador End Sub

Talvez o problema nem seja o programa. Se a janela do VBE estiver aberta voce não consegue gravar a macro.