Rastgele satır belirleme

[tamer42]

Merhabalar,
Excel tablosunda A sütununda 1' den başlayark 1000' e kadar; 1000 satırda da bir takım veriler mevcut.

bu satırlar içinden rastgele 250 satır belirlemek istiyorum, belirlenen bu satırlar için B sütununda karşılarına "x" işareti yazacak şekilde olabilir.

teşekkürler,

iyi çalışmalar.

 

[Ömer BARAN]

Merhabalar.

Aşağıdaki gibi olabilir.
.

[B]Sub BIN_X()[/B]
For sat = 1 To 250
10: sayı = WorksheetFunction.RandBetween(1, 1000)
If Cells(sayı, "B") = "x" Then GoTo 10
Cells(sayı, "B") = "x"
Next
[B]End Sub[/B]

 

[tamer42]

teşekkürler....

 

[halit3]

Alternatif kodlar

birinci kod

Private Sub CommandButton1_Click()

sayi = 250 'Rows.Count
Max = 1000 'sayi

Range(Cells(1, 2), Cells(Rows.Count, 2)).ClearContents

ReDim sayilar(sayi)
Dim Satir As Integer

If sayi > Max Then sayi = Max

For j = 1 To sayi
atla:
Randomize
Satir = Int((Rnd * Max) + 1)
For m = 1 To sayi
If Satir = sayilar(m) Then
GoTo atla
End If
Next

sayilar(j) = Satir
Cells(Satir, 2) = "x"
Next


MsgBox "işlem tamam"

End Sub

ikinci kod

Private Sub CommandButton1_Click()

sayi = 250 'Rows.Count
Max = 1000 'sayi

Range(Cells(1, 2), Cells(Rows.Count, 2)).ClearContents

If sayi > Max Then sayi = Max

ReDim deg2(Max)

Randomize Timer
For i = 1 To sayi
atla:
say = Int((Rnd * Max) + 1)
If Val(deg2(say)) = 0 Then
Cells(say, 2).Value = "x"
deg2(say) = 1
Else
GoTo atla
End If

Next i

MsgBox "işlem tamam"
End Sub