Excel Soru-Cevap Vol3

Soru: Excel'de üst sınırını belirlediğim rakamlar arasında, yine belirlediğim miktarda rastgele sayı üretmek istiyorum.
Cevap: Aşağıdaki makroyu çalıştırmadan evvel D1 hücresine üretmek istediğiniz rakamların üst sınırını yazınız. D2 hücresine ise kaç adet sayı üreteceğinizi yazınız.

Sub rastgele()
Dim i As Integer
Dim bul As Range

Randomize
If Range("D1").Value < Range("D2") Then
MsgBox "D1 hücresinin değeri D2 hücresinden küçük olmamalı"
Exit Sub
ElseIf Range("D1").Value = "" Or Range("D2") = "" Then
MsgBox "Ama olmaz ki D1 ya da D2 Hücreleri boş olmaz"
Exit Sub
End If

Cells(1, 1).Value = Int((Range("D1") * Rnd) + 1)
For i = 2 To Range("D2")
Cells(i, 1).Value = Int((Range("D1") * Rnd) + 1)
For Each bul In Range("A1:A" & Cells(i - 1, 1).Row)
If Cells(i, 1).Value = bul.Value Then
Cells(i, 1).Value = Int((Range("D1") * Rnd) + 1)
End If
Next bul
Next i
End Sub