rastgele sayılar

[lmuser]

staticrand () makrosuyla istenilen aralıkta "sabit kalması koşuluyla" rastgele sayı seçilebiliniyor ama......aynı sayı aralığında bir önceki hücredeki rastgele seçilen sayı harici sayı seçimini nasıl yapabilirim bunu ardarda farklı hüçrelerde nasıl sürdürebilirim....? bunu yapmaya çalıştığmda döngüsel başvuruya yakalanıyorum şimdiden yardımınız için teşekkürler.makro girilmesi gerekiyosa açıklamanızı ayrıntılı yaparsanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek yapmak istediğinizi açıklarsanız daha hızlı bir şekilde yanıt alabilirsiniz.

 

[lmuser]

A1 hücresinde 1 ile 10 arası rastgele sayı seçmesini istiyorum. örn. "2" seçildi buraya kadar sorun yok. B1 hücresinde yine 1 ile 10 arası rastgele sayı seçilmesini istiyorum fakat A1 deki değer yani "2" dışındaki herhangi bir sayı olmalı bu işlemi C1 de devam ettirdiğimde A1 ve B1 deki değerler dışında sayılar olmalı işlem D1,E1,F1,,,,,sürdürdüğümde önceki hücre değerlerini kontrol edip staticrand() işlemini bu değerler dışında olana kadar sürdürmeli umarım açıklamam yeterlidir. ilginize teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[lmuser]

ilginize teşekkürler ama gönderdiğiniz dosya malesef çalışmıyor....

 

[Korhan Ayhan]

Selamlar,

ARAÇLAR-EKLENTİLER menüsünden "ToolPak Çözümleyicisi" seçeneğini işaretleyip kodu tekrar denermisiniz.

 

[nadirornek]

Sayı üret

Kodu kendinize göre ayarlıya bilirsiniz.

Sub sayıüret()
Dim UstSinir As Byte
Dim Hucre As Range
Set WF = WorksheetFunction
UstSinir = 50
Set Alan = Range("A1:H6, I1")
Set Alan2 = Range("A1:I6")
On Error Resume Next
Alan.ClearContents
For Each Hucre In Alan
BuOlmadi:
Hucre = Int(Rnd() * 100) + 1
If WF.CountIf(Alan2, Hucre) _
> 1 Or Hucre > UstSinir Then GoTo BuOlmadi
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Sub RASTGELE_SAYI()
    SÜTUN = [IV1].End(1).Column
    If SÜTUN = 10 Then Exit Sub
BAŞLA:
    SAYI = Int((10 * Rnd) + 1)
    If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(1, SÜTUN + 1)), SAYI) > 0 Or SAYI = 0 Then GoTo BAŞLA
    If Cells(1, S&#220;TUN) <> "" Then
    Cells(1, S&#220;TUN + 1) = SAYI
    Else
    Cells(1, S&#220;TUN) = SAYI
    End If
End Sub

 

[lmuser]

çok teşekkürler çözümünüz için....

 

[metinavci23]

sayı uret

arkadaşlar ayni makro bana lazım yalnız sayıları sutunlarda değil de satırlarda üretmesini istiyorum ve üretilen sayılar 20-100 arası ve kusuratlı olmayacak.mesela :20,40-55-15-20-35-40-30-70 gibi