Fábio da Silva

Membro Inativo
  • Content Count

    8
  • Joined

  • Last visited

Community Reputation

4 Neutro

About Fábio da Silva

  • Rank
    Novato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 54 linhas para o concurso 2058.
  2. Alguém sabe criar filtros de loterias no excel ?
  3. Concurso 2016 2 linhas com 4 pts, 2 linhas com 5 pts e 1 linha com 17 pts......
  4. Concurso 2015 3 linhas com 15 pts......
  5. 100 linhas 5 números por linha e 5 número por coluna 01 04 06 07 08 13 14 15 17 19 21 22 24 25 29 31 33 37 38 40 42 44 46 48 50 51 52 54 59 60 63 65 66 67 70 72 73 75 76 79 82 87 88 89 90 91 93 95 96 98 01 04 06 07 08 13 17 18 19 20 21 22 23 27 30 32 34 35 36 37 42 46 47 49 50 51 54 58 59 60 61 63 65 66 69 71 72 73 74 75 84 85 88 89 90 92 93 95 96 98 01 04 06 08 09 11 12 13 15 17 21 22 23 25 26 31 33 37 38 40 42 46 47 49 50 54 55 56 59 60 63 64 65 68 70 74 75 77 78 79 81 82 84 89 90 92 93 96 97 98 01 04 06 08 10 11 13 17 19 20 22 23 25 26 29 32 35 36 37 39 41 42 44 45 48 53 5
  6. Esta planilha esta com tantos erros que acho difícil de arruma-lá, mas se uma alma caridosa se dispuser ficaria grato. Abaixo a planilha com os erros que achei. Private Function Comb(r As Long, n As Long) Dim c1 As New Collection, c2 As New Collection, arr(), arrTemp(), i As Long, j As Long, v For i = 1 To n c1.Add Array(-1, i) Next i While c1.Count arr = c1(1) c1.Remove 1 j = UBound(arr) If j = r Then c2.Add arr Else ReDim Preserve arr(j + 1) For i = arr(j) + 1 To n arr(j + 1) = i
  7. Olá Sorel rodei sua macro mas ela está dando erro, escrevi onde está o erro, espero que o corrija. Private Function Comb(r As Long, n As Long) Dim c1 As New Collection, c2 As New Collection, arr(), arrTemp(), i As Long, j As Long, v For i = 1 To n c1.Add Array(-1, i) Next i While c1.Count arr = c1(1) c1.Remove 1 j = UBound(arr) If j = r Then c2.Add arr Else ReDim Preserve arr(j + 1) For i = arr(j) + 1 To n arr(j + 1) = i c1.Add arr Next i End If Wend ReDim arr(1 To
  8. Olá, baixei recentemente uma fórmula para gerar números aleatórios no vba para Lotomania mas a mesma gera combinações repetidas. Alguém saberia me dizer qual o problema da fórmula. Abaixo a fórmula. Sub test() Dim Numjogos As Long Dim NumDezenas As Integer Numjogos = 1048576 'Número jogos NumDezenas = 50 'N dezenas Dim Li As Long Li = 1 ' Na linha 1 For i = 1 To Numjogos Jogo_Time Li, NumDezenas Li = Li + 1 Next i Sheets(1).Select End Sub Sub Jogo_Time(Linha, qtde) 'Randomize Timer a = qtde 'quantidad