Cercando Ímpares e Pares - 12 Cartões 1.0.0

Boa tarde, muito bom @Adenil. Qual a probabilidade de elaborar uma planilha dessa com linhas de 19 ou 20 dezenas cercando as pare e ímpares pra usar na loteria não oficial.

  On 6/7/2021 at 8:29 PM, Neguin said:

Boa tarde, muito bom @Adenil. Qual a probabilidade de elaborar uma planilha dessa com linhas de 19 ou 20 dezenas cercando as pare e ímpares pra usar na loteria não oficial.

Quantos pontos para acerto.....???????

Suas planilhas são maravilhosas, caro Adenil.

 

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.

  On 6/7/2021 at 8:35 PM, Adenil said:

Quantos pontos para acerto.....???????

Sempre 15.

 

Mas poderia ser também pára linhas de 20 ou linhas de 21 ou linhas de 22 ou linhas de 23 dezenas. Para acertar 15 pontos, claro. Qualquer idéia, vai ajudar muito.

  On 6/8/2021 at 1:05 AM, DixieJoe said:

Sempre 15.

 

Mas poderia ser também pára linhas de 20 ou linhas de 21 ou linhas de 22 ou linhas de 23 dezenas. Para acertar 15 pontos, claro. Qualquer idéia, vai ajudar muito.

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.

  On 6/8/2021 at 1:05 AM, DixieJoe said:

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
 

  On 6/7/2021 at 8:35 PM, Adenil said:

Quantos pontos para acerto.....???????

bom dia, meu caro @Adenil  seria para 15 acertos.

  On 6/8/2021 at 1:36 AM, Adenil said:

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
 

Muito obrigado @Adenil vou alterar minhas planilhas também. Hehehehe!!!

Sugiro a todos que queiram fazer referencias a atigos colabiradores que foram banidos que usem uma abreviatura CR ao caso aqui.

Mas estou aprovando estes comentarios e aqui estou sugerindo isto tambem por reconhecer o quanto ele contribuio mas longe fico de querer me opor as medidas ja tomadas para tal feito.

E ate pesso a todos que evitemos converter esta minha abordage em polemica. Minha inteçao e permitir que haja as as trocas de contribuiçoes.

Inclusive vou retirar estes comentarios ate amamha para que nao seja mal entendido.

Se me permitirem vou reeditar por o CR

  On 6/8/2021 at 1:36 AM, Adenil said:

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
 

@Adenil Você tem essa macro de atualização para outras loteria?

  On 6/8/2021 at 3:01 PM, NandoADM said:

@Adenil Você tem essa macro de atualização para outras loteria?

Não, @NandoADM, é que uso 99% a lotofacil, então atualizo somente essa, por preguiça mesmo.kkkkk

 

Adenil

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!!!

Exato, pode errar 2 dezenas de boa, que sempre dará lucro.....

 

 

  On 6/9/2021 at 12:53 AM, Neguin said:

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!!!

 

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

  On 6/9/2021 at 12:57 AM, Adenil said:

 

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

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!!!

  On 6/9/2021 at 1:00 AM, Neguin said:

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.....

Quanto que a loteria não oficial paga se acertar 15 em 20....?????????

 

  On 6/9/2021 at 1:02 AM, Adenil said:

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.....

Depende da banca mas na média premia 

19 dezenas - R$ 5.000

20 dezenas - R$ 2.000

Caraca, quantos jogos eles permitem jogar......??????

 

  On 6/9/2021 at 1:04 AM, Adenil said:

Quanto que a loteria não oficial paga se acertar 15 em 20....?????????

 

Tem uma tabela com aposta mínima de 10,00

Desculpe o incomodo, mais 10 reais, paga 2 mil ou relativo 1 real, 2 mil  ------  Mais uma pergunta --- Quantos jogos eles permitem que você jogue, pois com esse prêmio se puder jogar vários, mesmo assim dá um baita lucro.

  On 6/9/2021 at 1:10 AM, Adenil said:

Desculpe o incomodo, mais 10 reais, paga 2 mil ou relativo 1 real, 2 mil  ------  Mais uma pergunta --- Quantos jogos eles permitem que você jogue, pois com esse prêmio se puder jogar vários, mesmo assim dá um baita lucro.

sem problemas, a tabela de uma banca que pesquisei pra 19 dezenas

R$ 10,00 = 2.655,00

R$ 15,00 = 3.983,00

R$ 20,00 = 5.310,00

R$ 25,00 = 6.638,00

  On 6/9/2021 at 1:07 AM, Adenil said:

Caraca, quantos jogos eles permitem jogar......??????

 

Não tem limite, o limite é a premiação máxima de 18.000,00 por bilhete, e não pode duplicar bilhete.

Vou estudar com cuidado aqui......

  On 6/9/2021 at 1:17 AM, Adenil said:

Vou estudar com cuidado aqui......

Só lembrando só ganha se acertar os 15 pontos dentro da linha, não tem premiação pra 14, 13, 12 e 11 pontos.