Gerar Aleatório sem Repetir

[Alessandromc29]

Caros, pesquisei todos os tópicos mas sem sucesso pra minha dúvida.

Estou tentando fazer uma forma no excel para sortear os números de bingo para brincarmos aqui em casa. Já consegui fazer as fórmulas para gerar as cartelas com números aleatórios para imprimir, agora preciso descubrir macros que façam o sorteio simulando o globo com as bolinhas.

Qual seria o melhor código para fazer o seguinte:

1 - Quando clicar em um botão será mostrado nele mesmo ou em uma célula um número aleatório entre 1 e 75;

2 - Os números que já foram mostrados devem ser registrados em uma coluna e não podem sair mais (não podem se repetir);

3 - Ter alguma forma de voltar ao início para iniciar o jogo novamente quando alguém ganhar por exemplo.

Desde já agradeço

Abraço

Alessandro

[zinhovba]

Boa tarde!!

Tente uma adaptação...

Sub Mega_Sena()

    Dim i, x, y(59)
    
    For i = 1 To 59
        y(i) = i
    Next
    
    Randomize Timer
    
    For i = 1 To 6
        x = 1 + Int((Rnd * (59 - i)))
        ActiveCell.Offset(0, i - 1).Value = y(x)
        y(x) = y(60 - i)
    Next
        
End Sub