About This File Olá a Todos, Disponibilizando a Planilha Cercando Ímpares e Pares... Escolha 6-7 e 7-6 - 95% dos sorteios.... Aba com 12 Cartões e outra Aba com 132 Cartões.... Boa Sorte à Todos.....
Neguin 534 Posted June 7, 2021 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. 1
Adenil 980 Posted June 7, 2021 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.....??????? 2
DixieJoe 4,193 Posted June 8, 2021 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. 3
DixieJoe 4,193 Posted June 8, 2021 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. 3
DixieJoe 4,193 Posted June 8, 2021 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. 2
Adenil 980 Posted June 8, 2021 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 1 1
Neguin 534 Posted June 8, 2021 14 horas atrás, Adenil disse: Quantos pontos para acerto.....??????? bom dia, meu caro @Adenil seria para 15 acertos.
Neguin 534 Posted June 8, 2021 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!!!
Julio Cezar 10,853 Posted June 8, 2021 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 1
NandoADM 5,137 Posted June 8, 2021 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? 1
Adenil 980 Posted June 8, 2021 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 1
Neguin 534 Posted June 9, 2021 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!!! 1
Adenil 980 Posted June 9, 2021 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
Neguin 534 Posted June 9, 2021 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!!!
Adenil 980 Posted June 9, 2021 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..... 1
Adenil 980 Posted June 9, 2021 Quanto que a loteria não oficial paga se acertar 15 em 20....????????? 1
Neguin 534 Posted June 9, 2021 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 1
Neguin 534 Posted June 9, 2021 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
Adenil 980 Posted June 9, 2021 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
Neguin 534 Posted June 9, 2021 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
Neguin 534 Posted June 9, 2021 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. 1
Neguin 534 Posted June 9, 2021 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.
Recommended Comments