Seiya de Pégaso Posted May 30, 2017 Share Posted May 30, 2017 Amigos, bom dia. Gostaria de saber se alguém tem uma planilha ou coisa parecida com todos os sorteios feitos até hoje com os ciclos e tal. Achei um "site" que vende, mas eu não vou comprar. Tem algum que atualiza sozinho, ou algo assim? Agradeço a atenção e se o tópico for repetido, favor me enviar o link e pode apagar esse, sem problemas. Obrigado e um abraço! Quote Link to comment Share on other sites More sharing options...
sorel Posted May 31, 2017 Share Posted May 31, 2017 ciclo de que loteria? Quote Link to comment Share on other sites More sharing options...
Seiya de Pégaso Posted May 31, 2017 Author Share Posted May 31, 2017 9 minutos atrás, sorel disse: ciclo de que loteria? Olá, Sorel. Boa tarde. Ciclos da Lotofácil, que pelos vídeos que vi e (se é que) entendi algo, acabou agora no último concurso com o sorteio da dezena 25. Eu me interessei pelo tema e gostaria de ter algo pra acompanhar. Obrigado. Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 14 minutos atrás, Seiya de Pégaso disse: Olá, Sorel. Boa tarde. Ciclos da Lotofácil, que pelos vídeos que vi e (se é que) entendi algo, acabou agora no último concurso com o sorteio da dezena 25. Eu me interessei pelo tema e gostaria de ter algo pra acompanhar. Obrigado. se eu não me engano eu disponibilizei uma função que contabiliza os ciclo é adaptável a qualquer loteria, mas informa o ciclo a partir de um concurso informado , só não sei se está aqui no no planilhando Quote Link to comment Share on other sites More sharing options...
Seiya de Pégaso Posted May 31, 2017 Author Share Posted May 31, 2017 Agora, edcronos2 disse: se eu não me engano eu disponibilizei uma função que contabiliza os ciclo é adaptável a qualquer loteria, mas informa o ciclo a partir de um concurso informado , só não sei se está aqui no no planilhando Olá, Cronos. Boa tarde. Eu procurei na pesquisa do grupo e não achei. Ou passou batido por mim. De todo jeito, obrigado Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 estava no planilhando, http://www.planilhando.com.br/forum/viewtopic.php?f=21&t=13912 Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 bem, vou ter que fazer uns ajustes, errei em alguma coisa Quote Link to comment Share on other sites More sharing options...
sorel Posted May 31, 2017 Share Posted May 31, 2017 ok mas como voce pretende fazer? http://www.mediafire.com/file/x8812fgag1geal8/ciclos.txt Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 unction CicloTo(ByVal concursoNum As Long) Dim NM As Byte, Nt As Byte, NP As String, L As Long, LF As Long Dim valt() As Long, linSort() 'nome aba sorteio NP = "Plan1" 'maior dezema do sorteio NM = 60 'quantidade de dezenas do sorteio Nt = 6 ReDim valt(1 To NM) With ThisWorkbook.Worksheets(NP) LF = .Cells(Rows.Count, 1).End(xlUp).Row L = LF - .Cells(LF, 1).Value2 + concursoNum ijSini: linSort = .Range("c" & L, .Cells(L, Nt + 2)).Value2 For v = 1 To Nt valt(linSort(1, v)) = 1 Next If L < LF Then For v = 1 To NM If valt(v) = 0 Then L = L + 1: GoTo ijSini: Next CicloTo = L Else CicloTo = 0 End If End With End Function consertado Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 1 minuto atrás, sorel disse: ok mas como voce pretende fazer? http://www.mediafire.com/file/x8812fgag1geal8/ciclos.txt não sorel, cada um que adapte para oq quer Quote Link to comment Share on other sites More sharing options...
sorel Posted May 31, 2017 Share Posted May 31, 2017 nao é para seiya PERGUNTA= COMO PRETENDE USAR OS CICLOS? FALTA ATUALIZAR COMO CHEGARIA A 1480 SE AINDA NAO TIVESSE SIDO SORTEADO COMO FARIA? Quote Link to comment Share on other sites More sharing options...
sorel Posted May 31, 2017 Share Posted May 31, 2017 da nome da macro invalido( quando cria a macro) Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 a função só mostra em que sorteio fecha todas as dezenas a parti de um sorteio informado tipo a mega =CicloTo(19) vai mostrar 64 para contar todas as dezenas que deu nesse periodo tem que i para outros metodos que tbm pode ser formulas que tem aqui no forum Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 certo, ainda tenho que fazer ajustes e não estou com os melhores animo no momento Quote Link to comment Share on other sites More sharing options...
sorel Posted May 31, 2017 Share Posted May 31, 2017 ahhhh!mas ai fica sem ciclo! sem futuro, vamo na luta Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 26 minutos atrás, sorel disse: ahhhh!mas ai fica sem ciclo! sem futuro, vamo na luta a função funciona, só que tem que ajustar certas coisas, mas não estou conseguindo me concentrar para reparar a cabeça está horrivel, bem a primeira versão estava pegando cada linha da planilha, ja essa que postei fui adaptar para pegar logo a range toda para o array cara, o raciocínio está travadão nem sei mais oq estou fazendo Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 acho que é isso considerar que tem que ter o numero do concurso na coluna "A" e o sorteio comece na coluna "C" não importa em que linha comece , mas tem que ter numero de concurso igual ao sorteado Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 consertei na primeira tbm para conseguir o concurso que fecha o ciclo =CicloTo(1) que vai dar 41, que foi onde foi sorteiada a's ultima's dezenas que faltava para ter todas as 60 no caso da mega sena para automatizar uma lista de ciclo se pode referencia o ciclo anterior somando 1" =CicloTo(41+1)" ou a celula onde está o resultado no lugar do 41 para listar as dezenas se usa cont.se com indireto "quem não souber acho que vale a pena aprender " function CicloTo(ByVal concursoNum As Long) Dim NM As Byte, Nt As Byte, NP As String, L As Long, LF As Long Dim valt() As Long, linSort() 'nome aba sorteio NP = "Plan1" 'maior dezema do sorteio NM = 60 'quantidade de dezenas do sorteio Nt = 6 ReDim valt(1 To NM) With ThisWorkbook.Worksheets(NP) LF = .Cells(Rows.Count, 1).End(xlUp).Row L = LF - .Cells(LF, 1).Value2 + concursoNum ijSini: linSort = .Range("c" & L, .Cells(L, Nt + 2)).Value2 For v = 1 To Nt valt(linSort(1, v)) = 1 Next If L < LF Then For v = 1 To NM If valt(v) = 0 Then L = L + 1: GoTo ijSini: Next CicloTo = L Else CicloTo = 0 End If End With End Function Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted May 31, 2017 Share Posted May 31, 2017 para a loto facil seria ajustar essas linhas 'maior dezema do sorteio NM = 25 'quantidade de dezenas do sorteio Nt = 15 claro que tem que ajustar o nome da aba que está o resultado 'nome aba sorteio NP = "Plan1" Quote Link to comment Share on other sites More sharing options...
Seiya de Pégaso Posted June 1, 2017 Author Share Posted June 1, 2017 17 horas atrás, sorel disse: nao é para seiya PERGUNTA= COMO PRETENDE USAR OS CICLOS? FALTA ATUALIZAR COMO CHEGARIA A 1480 SE AINDA NAO TIVESSE SIDO SORTEADO COMO FARIA? Bom dia, Sorel. Como vai? Então, na verdade é que eu estava lendo mais sobre técnicas, essas coisas e achei interessante esse esquema de ciclos. Talvez juntando isso com outras técnicas, dê pra fazer algo. Obrigado! Quote Link to comment Share on other sites More sharing options...
Seiya de Pégaso Posted June 1, 2017 Author Share Posted June 1, 2017 14 horas atrás, edcronos2 disse: para a loto facil seria ajustar essas linhas 'maior dezema do sorteio NM = 25 'quantidade de dezenas do sorteio Nt = 15 claro que tem que ajustar o nome da aba que está o resultado 'nome aba sorteio NP = "Plan1" Bom dia, amigo Cronos. Obrigado pela ajuda! Um forte abraço. Quote Link to comment Share on other sites More sharing options...
sorel Posted June 1, 2017 Share Posted June 1, 2017 o problema do ciclo é saber o que fazer com eles Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted June 1, 2017 Share Posted June 1, 2017 3 minutos atrás, sorel disse: o problema do ciclo é saber o que fazer com eles é o mesmo problema de qualquer estatística para loteria tipo para a mega ontem eu defini o ciclo de uma dezena dez 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 1863 quant 7 6 11 6 9 4 4 3 8 14 10 5 5 7 9 13 10 9 7 7 8 8 15 3 10 4 4 11 3 9 Até dez 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 1934 quant 5 6 9 5 10 6 9 6 7 7 5 4 11 9 12 6 7 5 0 3 5 9 9 5 3 11 7 8 9 5 como pode ver o 49 que está bastante atrasado ainda não veio para loto facil que repete direto acho que fica muito mais dificil definir oq fazer a mega deve vim o 49 agora que não está mais acumulado Quote Link to comment Share on other sites More sharing options...
sorel Posted June 1, 2017 Share Posted June 1, 2017 edcronos2 tem como rastrar assim= exemplo na mega sena, apos numerar cada ciclo ver se uma dezena no 1º ciclo esta na linha 5 e ver se nos demais ciclos ela esta na linha 5 dos demsis ciclo ou que linha ela vira no proximo Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted June 1, 2017 Share Posted June 1, 2017 até tem como sorel, mas deixo essa epopeia para outra pessoa mas pelo que eu já vi em ciclo o espalhamento das dezenas dentro dos ciclos é bem variado Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.