Rastgele sayı dizisi oluşturmak

[alicimri]

Aşağıdaki makro 1 den 8 kadar rakamlardan 2şer adet olmak üzere rastgele 16 rakamdan oluşan diziler oluşturuyor. Ancak dosyayı açıp kapadığımda
hep 6553371761488422 dizisinden başlayarak aynı sırada aynı dizileri oluşturuyor. Ben tamamen rastgele bir diziden başlayarak yine belli bir sıra takip etmeden diziler oluşturmak istiyorum. Makroda nasıl bir değişiklik yapabilirim.

Sub rastgele()
Sheets("Sayfa2").Range("a1:a16").ClearContents
If Sheets("Sayfa2").Range("a1") = "" Then
Sheets("Sayfa2").Range("a1").Value = Int((8 * Rnd) + 1)
End If
Do While say < 16
If Sheets("Sayfa2").Range("a1") <> "" Then
a = Int((8 * Rnd) + 1)
If Application.CountIf(Sheets("Sayfa2").Range("a1:a16"), a) < 2 Then
say = Sheets("Sayfa2").Range("a65536").End(3).Row + 1
Sheets("Sayfa2").Range("a" & say).Value = a
End If
End If
Loop
End Sub

 

[Muhammet Okumuş]

Randomize yazınız

 

[alicimri]

Sayın Muhammet Okumuş
Sağ olun.