1'den n'e kadar rassal sayı

[delvinja]

merhabalar;
girdiğim bir n sayısına göre 1. satıra n'e kadar rassal sayılar yazdırmak istiyorum. fakat bu sayılar karışık yazılıyor olacak. örnek olarak n 12 ise hücrelere 1'den 12'ye kadar değil de, 5-6-7-2-1-9-......-12-10 gibi karışık yazılacak. ben aşağıdaki kodu denedim ama hata veriyor. hata neyden kaynaklanıyor olabilir acaba?

teşekkürler...

Private Sub CommandButton1_Click()
Dim i As Integer
Dim dizi(0 To 20000)
Dim n As Integer

n = InputBox("n değerini giriniz")

For i = 1 To n
Randomize
basla: dizi(i) = Int(n * Rnd + 1)
If Cells(1, i) = Cells(1, i + 1) Then GoTo basla
Else
Cells(1, i) = dizi(i)
End If
Next

End Sub

 

[hamitcan]

Sub RastgeleSayi()
    x = InputBox("Bir sayı girin")
    For i = 1 To x
        Randomize
        c = c + 1
git:
        Cells(c, 1) = Int((x * Rnd) + 1)
        If WorksheetFunction.CountIf(Columns(1), Cells(c, 1)) > 1 Then GoTo git
    Next
End Sub

şeklince deneyin.