Página 1 de 1
Testar jogos da loto fácil em Vários resultados
Enviado: 23 Jun 2018 às 15:50
por CineAdam
Fala Galera!
Eu vi em um tópico aqui
viewtopic.php?p=13611
Que conseguiram o workbook para o solicitante, no entanto não encontrei onde baixar e eu precisava muito disso pois a meses estou procurando.
Alguém poderia me enviar???
Agradeço desde já!
Testar jogos da loto fácil em Vários resultados
Enviado: 23 Jun 2018 às 22:11
por gfranco
Boa noite.
Se não me falha a memória foi nessa época que ocorreu uma perca de dados no servidor do fórum e muitos anexos simplesmente sumiram.
Re: Testar jogos da loto fácil em Vários resultados
Enviado: 24 Jun 2018 às 00:24
por CineAdam
Olá!
Muito obrigado pela resposta.
No entanto caso então alguém tenha algum código vba que atenda a mesma solicitação que foi feita no passado eu agradeço.
Pois como mencionei preciso muito.
Re: Testar jogos da loto fácil em Vários resultados
Enviado: 24 Jun 2018 às 18:51
por Reinaldo
Creio ser essa a planilha em questão. Mas para 300 mil linhas; dependendo do equipamento não vai rodar ou demorar muito
Testar jogos da loto fácil em Vários resultados
Enviado: 25 Jun 2018 às 09:43
por CineAdam
Olá, Reinal!
Exatamente esta planilha que vc me enviou, que eu estava procurando.
Mas agora vc poderia me ajudar ?
Coloquei 163438 jogos na aba "Conferidor"
e os mesmos 163438 jogos na aba "Resultados"
Porém a macro não contou para os 163438 da aba "Conferidor e também não utilizou os 163438 da aba "Resultados".
Como faço para arrumar isso no código?
Re: Testar jogos da loto fácil em Vários resultados
Enviado: 25 Jun 2018 às 10:19
por Reinaldo
Veja comwentario na linha da rotina
Código: Selecionar todosSub conta()
Dim x As Integer, A As Integer
Dim Resul As Worksheet, Confer As Worksheet
Set Resul = Sheets("Resultados")
Set Confer = Sheets("Conferidor")
Range("BI7:BM24").ClearContents
For x = 6 To 2000 'Inicia na linha seis e vai até linha 2000 da planilha Resultados
If Resul.Range("A" & x) <> "" Then
For y = 7 To 31 'Inicia na linha sete e vai até linha 31 da planilha Conferidos
If Confer.Range("H" & y) = "" Then GoTo aqui
tp = 0
rng = "H" & y & ":V" & y
For z = 2 To 16 'Vai da coluna 2 até coluna dezesseis
tp = tp + Application.WorksheetFunction.CountIf(Confer.Range(rng), Resul.Cells(x, z))
Next
If tp < 11 Then GoTo ali
Select Case tp
Case 11
Confer.Range("BI" & y) = Range("BI" & y) + 1
Case 12
Confer.Range("BJ" & y) = Range("BJ" & y) + 1
Case 13
Confer.Range("Bk" & y) = Range("BK" & y) + 1
Case 14
Confer.Range("BL" & y) = Range("BL" & y) + 1
Case 15
Confer.Range("BM" & y) = Range("BM" & y) + 1
End Select
ali:
Next
aqui:
End If
Next
End Sub
Testar jogos da loto fácil em Vários resultados
Enviado: 25 Jun 2018 às 11:16
por CineAdam
Obrigado, Reinaldo!
No lugar do 31 consegui colocar 163438 e deu certo,
mas quando coloquei 163438 no lugar dos 2000 deu erro, ai fui testando e vi que que o máximo que permitiu colocar foi 32000
Testar jogos da loto fácil em Vários resultados
Enviado: 25 Jun 2018 às 20:52
por mprudencio
Não testei o codigo mas tente trocar na declaração das variaveis onde esta integer para long e teste novamente.
Testar jogos da loto fácil em Vários resultados
Enviado: 26 Jun 2018 às 10:05
por CineAdam
Deu certo galera!
Muito obrigado msm.