Boa noite
Precisava rodar a macro abaixo, em intervalos diferentes para gerar valores também diferentes, então repliquei a macro, renomeando cada uma como:
Sub Rand_1, para a 1ª macro: Sub Rand_2, para 2ª e assim por diante, até a Sub Rand_9, ou seja 9 macros (cópia) para atender o que preciso. Atribui para cada macro intervalos diferentes ou seja a 1ª macro, intervalo "N8"; 2ª "O8"; 3ª "P8"... e a 9ª "V9".
1º intervalo gerar valores entre:
01_10
2º intervalo gerar valores entre:
11_21
3º intervalo gerar valores entre:
22_31
4º intervalo gerar valores entre:
32_41
5º intervalo gerar valores entre:
42_51
6º intervalo gerar valores entre:
52_61
7º intervalo gerar valores entre:
62_71
8º intervalo gerar valores entre:
72_81
9º intervalo gerar valores entre:
82_91
Alterei os parâmetros para satisfazer os valores de cada intervalo, mas não deu muito certo.
Segue o código.
Sub Rand_1()
Dim i, z, choice, balls(10)
Range("N8").Select
For i = 1 To 10
balls(i) = i
Next
Randomize Timer
For i = 1 To 1 Step -1
For z = 10 To 1 Step -1
choice = 1 + Int((Rnd * (11 - 1)))
ActiveCell.Offset(0, i - 1).Value = balls(choice)
Next z
balls(choice) = 1
Next
Range("AE15").Select
End Sub
Se alguem puder ajudar, agradeço
Início