Excelde 1-100 arası sayıları randomize olarak seçmek

[greatdoc]

Arkadaşlar merhaba,

Acaba Excelde 1' den 100' e kadar sayıları tamamen rastgele seçen (ama seçilen bir sayıyı bir daha seçmeyen) bir uygulama yapılabilir mi?

Mesela sayıları 28 - 41 - 7 - 99 ... gibi sıralayacak

Var mı bunun bir kolayı?

 

[Skorpiyon]

Sayın greatdoc,

Aşağıdaki kodları bir butona bağlayınız.

Sub Düğme1_Tıklat()
Range("A:B").ClearContents
For i = 1 To 100
Cells(i, 2) = i
Next i
Randomize
For k = 1 To 100
b = Int(Rnd * [B65536].End(xlUp).Row + 1)
Cells(b, 2).Cut
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Cells(b, 2).Delete shift:=xlUp
Next k
End Sub