Rastgele sayıda rastgele değer üreten makrodan rastgele değer seçmek

[monelogg]

Başlık biraz tekerleme gibi oldu ama mazur görün. Aşağıdaki makroyla rastgele sayıda random değerler üretebiliyorum ama bu değerleri bir türlü rastgele seçemedim. Bu konuda yardımcı olabilirseniz çok sevinirim.

Sub rast()
Range("A:A").ClearContents
For i = 1 To Int(Rnd() * 100)
Cells(i, 1).Value = Int(Rnd() * 100)
Next
End Sub

 

[Huseyinkis]

ekteki gibi denermisiniz.

Sub rast()
Range("A:A").ClearContents
randomize
bit=Int(Rnd() * 100)
For i = 1 To bit
Cells(i, 1).Value = Int(Rnd() * 100)
Next
End Sub

 

[monelogg]

Sn. Huseyinkis yanıtınız için teşekkürler, makro çalışıyor fakat seçim yapmıyor.
Mesela B1 hücresine bu oluşan değerlerden herhangi bir tanesini yazdırmak istiyorum, nasıl yapabiliriz?

 

[Huseyinkis]

Ekteki gibi denermisiniz.


Sub rast()
Range("A:A").ClearContents
randomize
bit=Int(Rnd() * 100)
For i = 1 To bit
Cells(i, 1).Value = Int(Rnd() * 100)
Next
Cells(1,2).value=Cells(Int(Rnd() * bit)+1,1).value
End Sub

 

[monelogg]

Çok teşekkürler Huseyinkis...