İstenen aralıkta , istenen kadar sayı üret

[@zgur.@zdin]

Merhaba arkadaşlar ;

A1 : A30 aralığına 1 ile 60 arasında ( 1 , 60 dahil ) , 30 tane birbirine eşit olmayan sayıyı bir buton yardımıyla nasıl yazdırabilirim ?

Teşekkürler.

 

[emrexcel123]

buyrun

dosya ektedir...

 

[@zgur.@zdin]

vermiş olduğunuz kod hep aynı sayıları üretiyor.Benim istediğim şey tam olarak şu :

A1:A30 aralığına 60 a kadar olan sayılardan 30 tanesini rastgele yazsın.Ama butona her tıkladığımda farklı bir 30 sayı oluşsun.Ve her tıkladığımda önceki oluşan sayılar silinsin yerine yenileri oluşsun.

İlgin için teşekkürler.

 

[Zeki Gürsoy]

Sub sayi_uret()
Randomize
    While i <= 30
        sayi = Int(Rnd(59) * 60 + 1)
        If WorksheetFunction.CountIf([a1:a30], sayi) = 0 Then
            i = i + 1
            Cells(i, 1) = sayi
        End If
    Wend
End Sub

 

[@zgur.@zdin]

sayın anemos ;

vermiş olduğunuz kod da üretilen 30 sayı içerisinde AYNI sayılar yer alabiliyor.Benim istediğim aynı sayılar olmasın ?

Teşekkürler

 

[Ali]

kod da üretilen 30 sayı içerisinde AYNI sayılar yer alabiliyor.Benim istediğim aynı sayılar olmasın ?

Teşekkürler

Dim rastgele_no(60) As Variant
Sub rastgelesayiuret()
Randomize
Range("A1:A30").ClearContents
say = 1
Do Until say = 31
    yeni_numara = Int(Rnd() * (60 - 1) + 1)
    If rastgele_no(yeni_numara) <> "onceki" Then
        Range("A" & say).Value = yeni_numara
        rastgele_no(yeni_numara) = "onceki"
        say = say + 1
    End If
Loop
End Sub

 

[emrexcel123]

kullanıcı tanımlı

ekte kullanıcı tanımlı bir döngü var inceler misin??

 

[@zgur.@zdin]

Merhaba sayın ALi ;

Vermiş olduğunuz KOD işimi görüyor ama bir kez tıklayınca butona excel hata veriyor.Kapanıyor.Acaba neden ? Saygılar

 

[Zeki Gürsoy]

Yukardaki kodu güncelledim. Dener misiniz?

 

[@zgur.@zdin]

Teşekkürler Anemos ;

Şimdi istediğim gibi oldu. Saygılar

İyi çalışmlar...

 

[Ali]

Şu şekildede kullanabilirsiniz

Sub sayıuret()
Range("A1:A30").ClearContents
For i = 1 To 30
Do
sayilar = Int(60 * Rnd + 1)
If Range("A1:A30").Find(sayilar, LookAt:=xlWhole) Is Nothing Then Exit Do
Loop
Range("A1:A30").Cells(i, 1) = sayilar
Next i
End Sub

 

[veyselemre]

Sub SayiUret()
 Range("A1:A30").ClearContents
Dim dizi(1 To 60)

For x = 1 To 60
    dizi(x) = x
Next x

Randomize Timer
For x = 1 To 30
basla:
    ind = Int(Rnd * 60) + 1
    If ind = 0 Or ind = 61 Then GoTo basla
    ara = dizi(x)
    dizi(x) = dizi(ind)
    dizi(ind) = ara
Next x
    
For x = 1 To 30
    Cells(x, 1) = dizi(x)
Next x
Range("A1:A30").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess


End Sub