Guest Zangado Posted February 13, 2018 Share Posted February 13, 2018 acho que já postei um topico a respeito mais nem achei OBSERVAÇÃO, NÃO VOU ADAPTAR OU MODIFICAR uma é para contar quantas vezes deu um grupo de numeros procurados coloquei para a mega, mas com pouca alteração funciona para qualquer loteria até para lotomania =Cont_grupo(1;2;3;...) =Cont_grupo(10;33) total= 28 ultimo= 1699 no caso 10 e 33 deram 28 vezes juntos e a ultima vez foi no 1699 =Cont_grupo(10;33;11) total= 1 ultimo= 1451 Function Cont_grupo(ParamArray Grupos_juntos() As Variant) Dim TG1 As Long, TtL As Long, Coluno(), L1 As Long, C1 As Long With ThisWorkbook.Worksheets("Mega-Sena") lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:H" & lf1).Value2 End With Cc1 = UBound(Coluno, 2) Lc1 = UBound(Coluno, 1) CC2 = UBound(Grupos_juntos, 1) For L1 = Lc1 To 1 Step -1 TtL = 0 For C1 = 3 To Cc1 For c2 = 0 To CC2 If Coluno(L1, C1) = Grupos_juntos(c2) Then TtL = TtL + 1: If TtL = CC2 + 1 Then TG1 = TG1 + 1: If TG1 = 1 Then concs = Coluno(L1, 1) GoTo lk0 End If End If Next Next lk0: Next Cont_grupo = " total= " & TG1 & " ultimo= " & concs End Function With ThisWorkbook.Worksheets("Mega-Sena") <<<ABA DO RESULTADO lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:H" & lf1).Value2 <<< "A2:H" A=COLUNA INICIAL DO RESULTADO, 2= LINHA INICIAL DO RESULTADO, H = COLUNA FINAL DO RESULTADO End With bem tem mais algumas coisas aqui 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 February 13, 2018 Share Posted February 13, 2018 só para esclarecer possíveis atitudes e replicas a solicitações não trabalho com excel nem com loterias, portanto nunca ganhei nada nem com um nem com outro "ok, por pura burrice, tanto em um quanto no outro" oque eu já postei e venha a postar não é auto propaganda como professor de excel que vende cursos ou planilhas, e muito menos como organizador lotérico com bolões as coisas que montei foram para ajudar a alguem ou por complementar ferramentas de arquivos pessoais mas não tem como adaptar para cada um que venha a ter dificuldade na implementação, oq eu posto são simples ferramentas ou acessórios que podem auxiliar diretamente ou apenas servir de exemplo para quem não tem conhecimento avançado do excel mas não exclui a necessidade de um pré conhecimento da ferramenta "excel"ou um empenho minimo em aprender as bases "nenhum conhecimento é gratuito de tempo e esforço" Desculpem, mas não tenho mais saco para atender a cada pedido que aparece sendo que não consigo mais atender nem os meus proprios projetos pessoais Quote Link to comment Share on other sites More sharing options...
sorel Posted February 13, 2018 Share Posted February 13, 2018 edcronos2 consegue montar uma macro que faça assim= monte uma matriz 5x4 da linha de 20 dada( resultado lotomania) a b c d e 06 11 14 16 21 22 25 32...... 06 11 14 16 21 22 25 32 33 34 46 61 70 73 78 88 89 90 95 00 1 Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted February 13, 2018 Share Posted February 13, 2018 56 minutos atrás, sorel disse: edcronos2 consegue montar uma macro que faça assim= monte uma matriz 5x4 da linha de 20 dada( resultado lotomania) a b c d e 06 11 14 16 21 22 25 32...... só para não me chamar de ruim estou postando o arquivo do resultado nesse padrão já tenho a macro que faz isso e mais, mas me reservo ao direito de não postar o arquivo ficou incompleto por causa do meu mouse que está ruim e não consegui selecionar todos os dados vai ter que se contentar com isso loto mania 5X4 conc371 até 1839.xlsx Quote Link to comment Share on other sites More sharing options...
Wata Posted February 13, 2018 Share Posted February 13, 2018 12 horas atrás, edcronos2 disse: Function Cont_grupo(ParamArray Grupos_juntos() As Variant) Dim TG1 As Long, TtL As Long, Coluno(), L1 As Long, C1 As Long With ThisWorkbook.Worksheets("Mega-Sena") lf1 = .Cells(Rows.Count, 1).End(xlUp).Row Coluno = .Range("A2:H" & lf1).Value2 End With Cc1 = UBound(Coluno, 2) Lc1 = UBound(Coluno, 1) CC2 = UBound(Grupos_juntos, 1) For L1 = Lc1 To 1 Step -1 TtL = 0 For C1 = 3 To Cc1 For c2 = 0 To CC2 If Coluno(L1, C1) = Grupos_juntos(c2) Then TtL = TtL + 1: If TtL = CC2 + 1 Then TG1 = TG1 + 1: If TG1 = 1 Then concs = Coluno(L1, 1) GoTo lk0 End If End If Next Next lk0: Next Cont_grupo = " total= " & TG1 & " ultimo= " & concs End Function Não funciona corretamente. A contagem está errada. Pode dizer onde está o erro @edcronos2?? Obrigado ... Quote Link to comment Share on other sites More sharing options...
sorel Posted February 13, 2018 Share Posted February 13, 2018 opa muito bom trabalho, obrigado objetivo é usar as letras = abcde para colunas e as 4 linhas= mnop no maximo 3 letras exemplo= aaab com isto pretendo montar para pegar as 4,5,6 que repetem quero evitar com isto exemplo= 20(do ultimo sorteio) se escolher 5 dezenas por 20 da umas 15.000 mas se esta matrix 5 por 4 tirar uma uma linha e uma coluna terei 20= mas tenho que jogar com 12 isto das letras posso jogar com 6,7 dezenas seguras que uma delas acertar isto das letras, vamos curzar linhas com comunas sempore as linhas por 1º depois as colunas no carteziano objetivo= pegar as dezenas que repetem 4,5,6 do ultimo e tentar montar uma matriz das 80 restantes aonde tem 14,15,16 vamos ver isto das letras_ linhas e colunas se reduz Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted February 13, 2018 Share Posted February 13, 2018 16 minutos atrás, Wata disse: Não funciona corretamente. A contagem está errada. Pode dizer onde está o erro @edcronos2?? Obrigado ... aqui eu montei o arquivo com o resultado e funcionaou talvez na formatação do seu resultado, não tenho como saber, cada um formata o resultado de uma maneira , o nome da aba tbm tem que ser exato, mas pode ser trocado na macro Coluno = .Range("A2:H" & lf1).Value2 "A2:H" A =COLUNA INICIAL DO RESULTADO, 2 = LINHA INICIAL DO RESULTADO, H = COLUNA FINAL DO RESULTADO Quote Link to comment Share on other sites More sharing options...
Wata Posted February 14, 2018 Share Posted February 14, 2018 2 minutos atrás, edcronos2 disse: aqui eu montei o arquivo com o resultado e funcionaou talvez na formatação do seu resultado, não tenho como saber, cada um formata o resultado de uma maneira , o nome da aba tbm tem que ser exato, mas pode ser trocado na macro Coluno = .Range("A2:H" & lf1).Value2 "A2:H" A =COLUNA INICIAL DO RESULTADO, 2 = LINHA INICIAL DO RESULTADO, H = COLUNA FINAL DO RESULTADO ... Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted February 14, 2018 Share Posted February 14, 2018 1 minuto atrás, Wata disse: ... querem me deixar mais estressado do que o mouse já falei que tem que ter a coluna de datas , mas pode ter uma coluna vazia se a coluna final é a H e a mega tem 6 dezenas logicamente as primeiras colunas são de numero de concurso e de data ou vazio ou outra informação pq de A até H dá 8 colunas Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted February 14, 2018 Share Posted February 14, 2018 Quote Link to comment Share on other sites More sharing options...
Wata Posted February 14, 2018 Share Posted February 14, 2018 16 minutos atrás, edcronos2 disse: já falei que tem que ter a coluna de datas Não falou P**** nenhuma... Fique calmo, fique calmo... se controle...... haushaushuash... Eu vi lá no outro tópico... (agora que vc falou...)... Resolvido aqui. Valeu... ... Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted February 14, 2018 Share Posted February 14, 2018 planilha com a função função cont grupo.xlsm Quote Link to comment Share on other sites More sharing options...
sorel Posted February 14, 2018 Share Posted February 14, 2018 ola edcronos , boa a planilia que separa na matriz 5x4 agora consegue separar os 4 grupos dentro dos 20( o sorteio) os grupos pi ii pi pp objetivo pegar as repetiçoes de 4,5,6 dezenas que repetem para usar como fixas sim é praticamente uma loteira dentro das 20 Quote Link to comment Share on other sites More sharing options...
sorel Posted February 14, 2018 Share Posted February 14, 2018 sim agora podemos tirar uma linha e uma coluna da matriz= 5.4 entao teremos 20 linhas de 8 com tem 20 dezenas sobra 12 mas jogar 12 para pegar as que repete é muita perda precisamos achar uma forma de jogar no maximo 7,8 com certeza, para poder pegar com 40 ou mais nas 14,15,16 restantes Quote Link to comment Share on other sites More sharing options...
sorel Posted February 14, 2018 Share Posted February 14, 2018 ala edcronos2= podemos fazer as 20 dezenas com taufic darah ou seja 5 grupos de 4 colocando as letras a,b,c,d a b c d Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted February 14, 2018 Share Posted February 14, 2018 3 horas atrás, sorel disse: ala edcronos2= podemos fazer podemos não sorel, não adianta ficar fazendo isso e aquilo se não se dá utilidade a nada e eu não vou parar de fazer minhas coisas para fazer as suas e por favor não insista , eu já estou bastante irritado por tentar terminar um projeto com a merda do mouse ruim Quote Link to comment Share on other sites More sharing options...
sorel Posted February 14, 2018 Share Posted February 14, 2018 ola, calma, mas tem mouse a 50,00 a 60 reais!!!. como nao vai dar em nada! objetivo é pegar as repetidas com as menor numero de dezenas? meu deus! Quote Link to comment Share on other sites More sharing options...
sorte com estudo ss Posted February 14, 2018 Share Posted February 14, 2018 1 hora atrás, edcronos2 disse: podemos não sorel, não adianta ficar fazendo isso e aquilo se não se dá utilidade a nada e eu não vou parar de fazer minhas coisas para fazer as suas e por favor não insista , eu já estou bastante irritado por tentar terminar um projeto com a merda do mouse ruim da uma martelada nesse rato meu se ta ruim ele pra que se estressar kkkkk Quote Link to comment Share on other sites More sharing options...
sorel Posted February 14, 2018 Share Posted February 14, 2018 edcronos voce sempre ajudou quando ganhar um premio bom vou te mandar um servidor co e9( processador) com mause sem fio) edcronos pega o mouse com alcool se agua para eletronica e limpa ele deve estar sujo de liquido ou comida, etc para de reclamar e capricha, abraço Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted February 14, 2018 Share Posted February 14, 2018 4 horas atrás, MARIO salles disse: da uma martelada nesse rato meu se ta ruim ele pra que se estressar kkkkk NOSSA QUE IDEIA DE GENIO como não pensei nisso antes, talvez seja masoquista e goste de me atormentar com essa merda em vez de descartar e comprar outro 3 horas atrás, sorel disse: edcronos voce sempre ajudou quando ganhar um premio bom vou te mandar um servidor co e9( processador) com mause sem fio) até la qual mouse eu uso? ok continuo nesse até tacar a cabeça no monitor de tanta raiva e oq eu faria com um servidor i9 ? Quote Link to comment Share on other sites More sharing options...
ednaldosdl Posted February 15, 2018 Share Posted February 15, 2018 Boa noite, galera gostaria de agradecer ao edcronos por ter me ajudado com essa função, na verdade... não só por ter me ajudado. Mas... por tentar e ajudar a muitos aqui do fórum. Quote Link to comment Share on other sites More sharing options...
sorel Posted February 15, 2018 Share Posted February 15, 2018 edcronos e noa acredito que temos ver isto do mouse eu 20 anos já troque 15 mouse 4pc monitor sai do tubo para lcd 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.