İyi çalışmalar;
Sayı üret butonuna bastığımda
1 ile 100 arasında olacak şekilde metin kutusuna yazdığım sayı adedinde 
 Liste kutusuna birbirinden farklı ve küçükten büyüğe doğru sıralanmış şekilde sayılar ekleme.

maximum ve minimum değerlerini belirtebilir misiniz

(27/11/2018, 21:17)haliliyas yazdı: maximum ve minimum değerlerini belirtebilir misiniz

Minimum 1 olacak maximum ise metin kutusuna gireceğim sayı olacak.

özür dilerim yanlış ifade ettim
rasgele sayıları kast etmiş
vba da "rnd()"  fonksiyonu rasgele sayı üretiyor ama hangi aralıkta siz belirliyorsunuz 
mesele 1-6 arasında üretsin
1-1000 …. gibi

dilerim işiniz görür 
çok büyük sayılar girerseniz biraz zaman alabilir
butonun olay yordamına aşağıdaki kodu girin
düzenleme: maalesef tekrar engellenmemiş
while...wend kısmında 1 hata yapmışım galiba

strkar = Null

For xRasgele = 0 To Me.Metin1 - 1



    intrasgele = Int(1000 * Rnd() + 1)

    strkar = strkar & vbCrLf & intrasgele

    While InStr(strkar, " " & intrasgele & " ") > 0

     intrasgele = Int(1000 * Rnd() + 1)

   Wend

    Me.Liste3.AddItem (intrasgele)

Next

For i = 0 To Me.Liste3.ListCount - 1

    For j = i + 1 To Me.Liste3.ListCount - 1

        If Int(Me.Liste3.Column(0, i)) < Int(Me.Liste3.Column(0, j)) Then

        strTempi = Me.Liste3.Column(0, i)

        strTempj = Me.Liste3.Column(0, j)

        Me.Liste3.RemoveItem (i)

        Me.Liste3.AddItem Item:=strTempj, Index:=i

        Me.Liste3.RemoveItem (j)

        Me.Liste3.AddItem Item:=strTempi, Index:=j

        

        End If

     Next

     Next

arşiv hasarlı diyor; 
kodu kullandım tekrarlı sayı üretiyor.
Çok özür dilerim benim hatam var
1 ile 100 arasında olacak şekilde metin kutusuna yazdığım sayı adedinde olacak.