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.

5 minutos atrás, Neguin disse:

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.

4 horas atrás, Adenil disse:

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.

Agora, DixieJoe disse:

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.

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
 

14 horas atrás, Adenil disse:

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

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

9 horas atrás, Adenil disse:

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

13 horas atrás, Adenil disse:

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?

5 horas atrás, NandoADM disse:

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

 

 

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

 

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

1 minuto atrás, Adenil disse:

 

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

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

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

 

1 minuto atrás, Adenil disse:

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

 

1 minuto atrás, Adenil disse:

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.

1 minuto atrás, Adenil disse:

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

7 minutos atrás, Adenil disse:

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

2 minutos atrás, Adenil disse:

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.