Wata

Membro VIP
  • Content count

    1,811
  • Joined

  • Last visited

Community Reputation

439 Excelente

2 Followers

About Wata

  • Rank
    Membro Ouro

Profile Information

  • Gender
    Masculino
  • Modalidade Preferida
    Lotofácil

Recent Profile Visitors

6,574 profile views
  1. (pedido) alguém que saiba mexer com excel

    Esse esquema tem 0,178% de chance de êxito** (lucro): 40% (chance de acertar a excluída) x 3,7185% (chance de acertar as 6 fixas) x 12% (chance de lucro ou empate em todas as 48.620 combinações de 18dz. em 9dz.) Em outras palavras, É PREJUÍZO CERTO. Vai uma planilha anexo pra quem quiser (nem vou colocar na área de download @Jimmy porque não vale a pena). ... (e na descrição do vídeo consta 90% de chance de 15 pontos... chessuis...... ) ** caso eu não tenha cometido algum erro... * nem sei porque fico perdendo tempo com essas coisas...... 24dz_6fx_20jg_LF.xlsm
  2. Muito elaborada essa planilha @NandoADM. Não jogo na lotomania, mas vou dar uma olhada nela e dou um parecer se tiver. Valeu. Abraço. ...
  3. Esse vídeo tá difícil.

    O que vc quer é gerar jogos de 6dz. aleatórios para mega sena?

    Tenho outra macro aqui que tá mais fácil.

    Confirma aí que depois eu faço.

     

    8-)

    ...

  4. boa noite amigo, desculpe o incomodo .  vc montou um codico vba do pedroosavas e colocou aqui no forum, tambem fez video no you tube sobre isso, por sinal um codico que me quebra o galho ate hoje, alias aprendi muita coisa nos seus videos  . o incomdo é o sguinte, vc poderia montar uma planilha basica somente do exemplo 3 desse video para mim, a macro esta em baixo do video . tentei montar, mas nao consigo, nao entendo muito de vba. seria de grande ajuda para mim , ficaria muito agradecido e te devendo essa.....ass..nenao

     

    Sub Aleatório3() Dim N, N01, N02, N03, N04, N05 As Integer N = 10 ActiveSheet.Range("Q09").Value = Int((N * Rnd) + 1) ActiveSheet.Range("Q10").Value = Int((N * Rnd) + 1) Subir1: N01 = Range("Q09").Value N02 = Range("Q10").Value If N02 = N01 Then ActiveSheet.Range("Q10").Value = Int((N * Rnd) + 1) If N01 = N02 Then GoTo Subir1 End If End If ActiveSheet.Range("Q11").Value = Int((N * Rnd) + 1) Subir2: N03 = Range("Q11").Value If (N03 = N01 Or N03 = N02) Then ActiveSheet.Range("Q11").Value = Int((N * Rnd) + 1) If (N03 = N01 Or N03 = N02) Then GoTo Subir2 End If End If ActiveSheet.Range("Q12").Value = Int((N * Rnd) + 1) Subir3: N04 = Range("Q12").Value If (N04 = N01 Or N04 = N02 Or N04 = N03) Then ActiveSheet.Range("Q12").Value = Int((N * Rnd) + 1) If (N04 = N01 Or N04 = N02 Or N04 = N03) Then GoTo Subir3 End If End If ActiveSheet.Range("Q13").Value = Int((N * Rnd) + 1) Subir4: N05 = Range("Q13").Value If (N05 = N01 Or N05 = N02 Or N05 = N03 Or N05 = N04) Then ActiveSheet.Range("Q13").Value = Int((N * Rnd) + 1) If (N05 = N01 Or N05 = N02 Or N05 = N03 Or N05 = N04) Then GoTo Subir4 End If End If End S

     

     

     

     

    1. MARIO salles

      MARIO salles

      Aleatório

      ai me pergunto aqui 

      de que adianta estar um um fórum

      onde pessoas estudam matematicamente loterias 

      para melhorar suas apostas diminuindo assim suas escolhas aleatórias

      não seria melhor vc gerar  combinações esquematizadas e não aleatórias

      pois na minha humilde opinião jogar aleatoriamente  e jogar apenas na sorte é a mesma coisa!

    2. Wata
    3. nenao

      nenao

      obrigado wata, assim que por em planilha a ideia passo a explicaçao a todos

  5. Dá pro gasto...... ... SEPARAR DÍGITOS _ MANTER ZERO A ESQUERDA NA CÉLULA.xlsm
  6. Alguém poderia gerar uns 10mil jogos aleatórios em 31_7_7_7? Obrigado. ...
  7. Inaugurando esse espaço ...
  8. A intenção SEMPRE é uma só: ARRECADAR MAIS. E a forma de arrecadar mais é atrair mais apostadores ... e isso se faz com prêmios mais e mais gordos... ...
  9. Sempre fui contrário a venda dessas planilhas para loterias, mas isso pelo fato que, quase sempre, garantem aquilo que não podem cumprir. Aqui no fórum, como trata-se de outro ambiente, onde todos sabem (ou deveriam saber) que não há garantias de nada antes do sorteio e que essas planilhas/programas são apenas ferramentas , acho que a idéia é válida. Essas coisas (planilhas/programas, etc) dão trabalho pra fazer e obviamente é justo que quem as produzem possam ganhar com isso. A única ressalva é que isso vai ter que ser controlado de perto, para evitar os picaretas (que dão muitas garantias sem dizer quais as condições...). ...
  10. http://www.valor.com.br/brasil/5392877/governo-deve-elevar-premio-da-mega-sena-e-outros-jogos http://www.pressreader.com/brazil/valor-econômico/20180319/281638190736364 *** Sem fontes ou referências... (será boato??......) ...
  11. Para mim faltava saber disso, pois julgava indiferente publicar no tópico ou na área de download. Na verdade pensava que era mais apropriado publicar no tópico pois era diretamente relacionado ao assunto. Também imaginei (agora) que não seria o mais apropriado e acabaria "poluindo" a área de download. Mas, se é o caso, passarei a publicar na área de download ... ... ...