Jump to content

Adenil

Super VIP
  • Posts

    549
  • Joined

  • Last visited

  • Days Won

    17

File Comments posted by Adenil

  1. Agora, Neguin disse:

    Vamos estudando uma hora pegamos os 15 na Extraoficial em linhas de 19 ou 20 dezenas, ou até mesmo na loteria oficial. Parabéns @Adenil!!!

    Estou tentando achar uma maneira, mas acertar 15 em 19 e 20, é difícil, mas não impossível.....Quanto paga se acertar 15 em 20.....

    • Like 1
  2. 3 minutos atrás, Neguin disse:

    Boa noite, @Adenile demais, essa nova planilha é bem interessante, não precisa necessariamente acertar as pares ou impares, basta acertar das 7 dezenas apenas 6 pontos e das 6 dezenas apenas 5 pontos, que já teremos todos os cartões premiados. Já dá pra ter um lucro!!!

    Sem título.png

     

    corrigindo, até 3 dezenas de erro, dá lucro

    • Like 1
  3. 29 minutos atrás, DixieJoe disse:

    Parabéns!

     

    -----

     

    Tenho umas planilhas antigas do Crazy Rabbit que fazia atualização de resultados direto da CEF (LF, MS, LM, DS, TM, Quina) que pararam de funcionar depois que a CEF mudou seu formato de resultados.

     

    Você, por acaso conseguiu atualizar as macros nas planilhas do Crazy para fazer esses downloads?

     

    Se não for dificil, poderia nos passar alguma dica para a gente tentar fazer a atualização.... É uma pena que pararam de funcionar.

    Olá, @DixieJoe, substitua a macro das planilhas do Crazy Rabbit para esta.....Eu mesmo atualizado diariamente, máximo de 30 minutos após

    resultados....Mais rápido que a Caixa.......kkkk

     

    Código:

     

    Sub Atualiza()
    Application.ScreenUpdating = False
        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;" & "https://drive.google.com/u/3/uc?id=1AL9oVKA4QOukuHw5GDF20sCZIme9rLRw&expot=download" _
            , Destination:=Range("$B$2"))
            .Name = "transaction"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlOverwriteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = False
            .RefreshPeriod = 0
            .WebSelectionType = xlAllTables
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
        Columns("A:A").Select
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
            Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
            ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
            (20, 1), Array(21, 1), Array(22, 1)), TrailingMinusNumbers:=True
            Cells.ColumnWidth = 5
        Range("A1").Select
    End Sub
     

    • Like 1
    • Thanks 1
  4. 57 minutos atrás, dois disse:

    Para os 15 Pontos neste Concurso 2223 Também teriam estas outras 9 opções:

    02    03    19    23
    02    06    10    23
    02    10    15    23
    02    10    16    23
    02    10    17    23
    03    06    10    23
    03    10    15    23
    03    10    16    23
    03    10    17    23

     

    Precisamos montar um esquema com várias configurações, pra ver com quantas linhas

    poderemos ter êxito.....

     

    Adenil

    • Like 3
  5. 52 minutos atrás, dois disse:

    Para os 15 Pontos neste Concurso 2223 Também teriam estas outras 9 opções:

    02    03    19    23
    02    06    10    23
    02    10    15    23
    02    10    16    23
    02    10    17    23
    03    06    10    23
    03    10    15    23
    03    10    16    23
    03    10    17    23

     

    Obrigado @dois, SIM, conforme a configuração, dá 15 pontos em 2000 linhas, só você percebeu.....kkkkk

     

    Por isso que eu digo, não é preciso de muitas linhas para se chegar aos 15.......precisa de precisão e sorte.....

     

    Adenil

    • Like 2
  6. 1 minuto atrás, NandoADM disse:

    Olá @Adenil,  achei ótimo a sua planilha Máquinas x Palpites,

    Cheguei a ficar impressionado, então a refiz, com um conferidor de 19 números, a ideia era ver se ela traria lucro quando vier 15 pontos.

    Infelizmente jogando com as 1.050 linhas nunca daria lucro, mesmo quando vêm 3 jogos com 15 pontos.

    Seria legal encontrar um forma de isolar a linha com boa pontuação.

     

    Se quiser posso postar a que eu fiz ... 

     

     

    Olá, @NandoADM, gostaria sim que postasse, quanto a achar uma única linha, é no que estou trabalhando, tarefa pra elefante....kkkk

    se tiver novidades, posto também.....

    • Like 1
  7. 4 minutos atrás, NandoADM disse:

    Bom demais.... então ficaria assim 7 casas dos fixos, + 8 vazias então poderia serem preenchidas com 9 em 5 + 9 em 3 multiplicadas ou/e também 9 em 4 + 9 em 4, se otimizar esses arranjos, talvez conseguimos em menos 60 mil.

     

    Mas 7 fixas são 7 fixas tem seu valor.

    É muita linha....kkkkk

     

    Jogo simples - 7fx -9-4-2-4 >>>>2x = 9 linhas, se a linha for boa, pode dar até 14........

     

    Para Bolão - pego, 7fx - desdobre das 18 inteiras, tipo, 25-15-14-15 -- 7fx =  +- 2000 linhas...........Bons Prêmios, não veio o 15 AINDA........kkkkk

     

    • Like 1
  8. 11 minutos atrás, NandoADM disse:

    @Adenil vou tentar dar uma contribuição, no seu desdobramento de 7 para fixar, que achei muito sensacional, pode-se fazer o seguinte:

    Para o próximo sorteio, você tira as linhas que tenham pontuação de 5 ou mais, veja que nessas linhas raramente se repete uma boa pontuação,

    Assim diminuímos ainda mais a quantidade de linhas de 14 para 10 linhas + ou -. Talvez dê para fazer um desdobramento com o famoso 15 pontos sempre que vier 7 dos 7

    Acho que o desdobramento teria por volta de 60 mil linhas, é muito, mas com a frequência que o 7 vêm cheio nas possíveis 10 linhas. compensa e muito.

    Eu quando vejo uma linha que acho que virá, pega os 18 restantes, divido em 2 de 9 e faço o desdobramento, depois a junção, dá bons resultados, se a linha for boa.......kkkkkk

    • Like 2
  9. 1 hora atrás, Cesar Ferreira disse:

    Adenil daria para disponibiliar com os 25 quadrantes nesta disposição:

    QUADRANTE 01 | 01 02 11 12
    QUADRANTE 02 | 03 04 13 14
    QUADRANTE 03 | 05 06 15 16
    QUADRANTE 04 | 07 08 17 18
    QUADRANTE 05 | 09 10 19 20
    QUADRANTE 06 | 21 22 31 32
    QUADRANTE 07 | 23 24 33 34
    QUADRANTE 08 | 25 26 35 36
    QUADRANTE 09 | 27 28 37 38
    QUADRANTE 10 | 29 30 39 40
    QUADRANTE 11 | 41 42 51 52
    QUADRANTE 12 | 43 44 53 54
    QUADRANTE 13 | 45 46 55 56
    QUADRANTE 14 | 47 48 57 58
    QUADRANTE 15 | 49 50 59 60
    QUADRANTE 16 | 61 62 71 72
    QUADRANTE 17 | 63 64 73 74
    QUADRANTE 18 | 65 66 75 76
    QUADRANTE 19 | 67 68 77 78
    QUADRANTE 20 | 69 70 79 80
    QUADRANTE 21 | 81 82 91 92
    QUADRANTE 22 | 83 84 93 94
    QUADRANTE 23 | 85 86 95 96
    QUADRANTE 24 | 87 88 97 98
    QUADRANTE 25 | 89 90 99 00

    Mandado conforme solicitação via MP.....

     

    Adenil

  10. 7 horas atrás, KSMG disse:

    Baixei mas parece que ainda não está 100%.. tipo, no painel do apostador mesmo marcando 25 dezenas ele não funciona como deveria.

    É 24 dezenas - com 25 não funciona......

    Tem sim um bug, "Conferir em 1 Concurso" e "Conferir por faixa"  assim que resolva, posto aqui a correção......

     

    Valeu pelo fedback.....

×
×
  • Create New...