Jump to content

Wata

Super VIP
  • Posts

    2,757
  • Joined

  • Last visited

  • Days Won

    5

Status Replies posted by Wata

  1. Olá tudo bem? procuro um jogo da lotofacil que marque apenas 5 pontos no proximo concuros...nada mais que isso, voce consegue????

    pode ser assim numa relação de 30  a 50 jogos ter no meio deles um que pontue com apenas 5 pontos, nada mais que 5 pontos.

    1. Wata

      Wata

      Se eu soubesse como fazer isso já estaria rico... hauhsuahsua...:mrgreen:...

       

      8-)

      ... 

  2. nenao

    nenao    Wata

    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

     

     

     

     

  3. Boa tarde Parceiro, vc entende bem de excel?

    Att;

    Juliano

    1. Wata

      Wata

      Algumas funções básicas.

      Vou "fuçando" e me virando...:lol:...

      *Isso que vc escreveu não é uma MP. 

      Achei por acaso, pesquisando pelo termo "Excel".

      Quando quiser algo manda uma mp, se não nem fico sabendo... ;-) ...

       

      8-)

      ...

       

       

  4. kadú

    kadú    Wata

    Boa noite amigo,

    Achei muito interessante sua forma de trabalhar com filtros no cologa, estou fazendo alguns testes e gostaria de mais algumas orientações.

    Att. kadu

    1. Wata

      Wata

      Ah se eu soubesse... haushauhsua...

       

      Bem, os valores são muito variáveis e vão com frequência de 06 (as vezes 05) acertos até 13 (as vezes 14) acertos.

       

      É difícil acertar esses valores variados.

      O que eu faço é marcar uma quantidade com mínimo e máximo 11 (mas pode escolher outros valores que quiser) e mandar gerar até dar só uma linha.

       

      Pega aquela lista que eu marquei na última postagem (com todos os resultados cadastrados com mín.11 e máx.11) e vai fazendo testes.

       

      O ideal é ter poucas linhas de filtro (porque fica mais fácil acertar) que gerem apenas 1 única sequência (1 jogo).

       

      Daí é só ficar na espera...( em outras palavras, contar com a sorte).

       

      8-)

      ...

    2. (See 3 other replies to this status update)

  5. kadú

    kadú    Wata

    Boa noite amigo,

    Achei muito interessante sua forma de trabalhar com filtros no cologa, estou fazendo alguns testes e gostaria de mais algumas orientações.

    Att. kadu

    1. Wata

      Wata

      OK.

      Diga aí que eu vejo se posso ajudar.

      8-)

      ...

    2. (See 3 other replies to this status update)

×
×
  • Create New...