Olá a todos!
Estou criando uma planilha para gerar numeros para a Lotomania.
Nessa planilha gostaria de apertar o botão e gerar 50 números aleatórios de 1 a 100.
Adaptei um código que encontrei na internet para o meu caso, mas preciso que os números sejam gerados em 5 linhas e não em uma única.
Em anexo está o que eu consegui fazer até o momento.
O código é:
Sub Lotomania()
Application.ScreenUpdating = False
Dim I, choose, numbers(100) As Integer
Range("C5").Select
For I = 1 To 100
numbers(I) = I
Next
Randomize Timer
For I = 1 To 10
choose = 1 + Application.Round(Rnd * (100 - I), 0)
ActiveCell.Offset(0, I - 1).Value = numbers(choose)
numbers(choose) = numbers(100 - I)
Next
ActiveCell.Range("C5:L5").Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=True, Orientation:= _
xlLeftToRight
Range("H11").Select
ActiveCell.Select
Application.ScreenUpdating = False
End Sub
O ponto que não consegui adaptar para a minha necessidade é:
Randomize Timer
For I = 1 To 10
Como faço para gerar os números aleatórios no intervalo de C5:L9?
Desde já agradeço a quem puder me ajudar!
Postado : 04/11/2017 3:26 pm