Rastgele Sayı Üretme

[umorarlap]

Merhaba arkadaşlar, bir konuda yardımınıza ihtiyacım var...

*3 sayfadan oluşan excel çalışma kitabında bulunan safya2'daki "A1 ile A100"
arasında belirttiğim sayı aralığından rastgele ve sıralı sayı üretmek istiyorum.

yardımcı olursanız sevinirim.

Örneğin:
Sayfa2
50 ile 500 arasında 80 adet rastgele ve sıralı sayı.

iyi günler...

 

[halit3]

kod:

Sub sayiuret()

sut = 1

son2 = Cells(Rows.Count, sut).End(3).Row

son = Application.InputBox("Sayı giriniz.", "Maksinum sayı", son2, 400, 30, , Type:=1)
If son = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

Columns(sut + 1).ClearContents
son1 = 0
mak = Cells(Rows.Count, sut).End(3).Row
sayi = mak
    
ReDim veri(sayi)
ReDim sayilar(sayi)
Dim Satir As Integer

Columns("b").ClearContents

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

sayilar(j) = Satir

Cells(j, sut + 1).Value = Cells(Satir, sut).Value  ' Satir
son1 = son1 + 1
If son1 = son Then Exit Sub

Next


End Sub

 

[umorarlap]

halit bey kodu çalıştırdığımda "Maksinum sayı" penceresi açılıyor, sayı girip tama dediğimde hiç biş işlem yapmıyor.

 

[halit3]

halit bey kodu çalıştırdığımda "Maksinum sayı" penceresi açılıyor, sayı girip tama dediğimde hiç biş işlem yapmıyor.

*3 sayfadan oluşan excel çalışma kitabında bulunan safya2'daki "A1 ile A100"
arasında belirttiğim sayı aralığından rastgele ve sıralı sayı üretmek istiyorum.

yardımcı olursanız sevinirim.

Örneğin:
Sayfa2
50 ile 500 arasında 80 adet rastgele ve sıralı sayı.

sorunuza göre anladım gibi kodları yazdım ( A1 ile A100 ) arasında istediğiniz sayıları yazın sonra kodu çalıştırın kod açılan pencereye ne kadar sayı üretmeniz gerekiyorsa o kadar sayı yazın

örnek Al den itibaren 1,2,3 diye A sütununa yüze kadar yazın sonra kodu çalıştırın açılan pencereye 30 yazın ve gözlemleyin