Rastgele Seçim

[vlknakts]

Merhaba,

12000 satır-7 sütunluk verim var ve bunların içerisinden 200 satırı rastgele seçmesini istiyorum. Seçtiği satırları boyayabilir, başına işaret koyabilir vb.
Yardımcı olabilirseniz çok mutlu olurum.

Şimdiden teşekkürler.

 

[sakman26]

Merhaba,

ek teki dosyayı inceleyiniz. rastgele gelen numaralara ait satırlar koşullu biçimlendirilmiştir.
selamlar

 

[vlknakts]

Mükemmel, çok teşekkürler.

 

[Murat OSMA]

Alternatif...

Sub Rastgele_Secim()
    Randomize
    For i = 1 To 200
        sayi = Round(12000 * Rnd)
        Cells(i, "M").Value = sayi
    Next i
End Sub