Excel de azalan sayı üretme

[ayln446]

Herkese iyi günler benim sorum excelde alt alta azalan rastgele sayı nasıl üretebilirim? yardımcı olursanız çok sevinirim

 

[Huseyinkis]

Hangi rakamdan aşağıya doğru?

 

[ayln446]

rastgele olcak hiç farketmez

 

[ayln446]

bulabildiniz mi bişeyler?

 

[apocalyt]

şunu bir modüle kopyalayıp deneyin..not: a sutununda 2 inci satırdan aşağıya doğru sıralamaya başlar..

Sub daylight()
Application.ScreenUpdating = False
Range("a2:a5000").ClearContents
a = InputBox("üretilcek en büyük sayı kaç olsun?")
Y = InputBox("kaç adet sayı üretilsin ?")
For x = 2 To Y + 1
gel:
ben = Int(Rnd() * a)
If WorksheetFunction.CountIf(Range("a2:a" & x), ben) > 0 Then
GoTo gel
Else
Cells(x, 1) = ben
End If
Next x
Range("a2:a" & Y + 1).Sort key1:=Range("a2"), order1:=xlDescending
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub