rasgele atama

[iceman20]

Arkadaşlar 1500 satırlı bir sütuna 500 tane rasgele "x" işareti atamak istiyorum. Yardımlarınıza şimdiden çok teşekkür ederim.

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[leumruk]

Merhaba,
Alternatif olarak düşünülebilir:

Sub Rastgele()
Columns(2).ClearContents
Randomize
For i = 1 To 500
Tekrar:
hücre = Int((1500 * Rnd) + 1)
If Cells(hücre, "b") = "X" Then GoTo Tekrar
Cells(hücre, "b") = "X"
Next
End Sub