Este fórum está sendo desativado

[GENECI]

Boa tarde!

Considerando o arquivo anexo para sorteios de uma dezena por vez.
É possível usar o comando =aleatório para sortear números de 1 a 50.
De maneira que o número sorteado não (jamais) possa repetir.
Em outras palavras o comando aleatório sorteou o número 26 então o número 26 deve ficar fora de ser sorteado novamente.

Observação: Também pode ser uma fórmula que faça o procedimento.

Grato - Geneci

[alexandrevba]

Boa tarde!!

Use uma UDF baseado em:
http://www.ozgrid.com/VBA/RandomNumbers.htm

Código: Selecionar todos

Function RandLotto(Bottom As Integer, Top As Integer, Amount As Integer) As String

    Dim iArr As Variant
    Dim i As Integer
    Dim r As Integer
    Dim temp As Integer

    Application.Volatile

    ReDim iArr(Bottom To Top)

    For i = Bottom To Top
        iArr(i) = i
    Next i

    For i = Top To Bottom + 1 Step -1
        r = Int(Rnd() * (i - Bottom + 1)) + Bottom
        temp = iArr(r)
        iArr(r) = iArr(i)
        iArr(i) = temp
    Next i

    For i = Bottom To Bottom + Amount - 1
        RandLotto = RandLotto & " " & iArr(i)
    Next i
    RandLotto = Trim(RandLotto)
End Function

Como funciona:
Após inserir em módulo a função RandLotto, em uma célula digite

Código: Selecionar todos

=RandLotto(1,50,8)

, onde 1 é o numero inical até o número 50 e 8 é os números sortados que deseja que apareça.
|Att

[GENECI]

Boa tarde! Alexendrevba


Obrigado por atender a minha dúvida.

Segui o procedimento e algo deu errado. "Como sempre".
Por favor pode verificar aonde estar o erro através do arquivo anexo.
Ou salvar um arquivo com o código da UDF.
Obs. Uso o excel 2013.

Grato - GENECI.

[alexandrevba]

Bom dia!!

Abra o arquivo e veja se está ok.

Att

[GENECI]

Bom dia! Alexandrevba.

É isso mesmo, agora sim está perfeito como solicitado.
Muito obrigado.
Grato - GENECI.