Soru Sayı karıştırma

[xternet]

Merhaba arkadaşlar.
Uzun zamandır Excel de kendimce bir şeyler yapıyorum ve bu siteden de çokça istifade ettim.
Tüm uzmanlara ve yardımcı olan arkadaşlara teşekkür ederim.

Dün akşamdan beri basit gibi görünen sayı karıştırma işlemini bir türlü başaramadım.
Daha doğrusu buradaki benzer çalışmaları kendi çalışmama uyarlayamadım.
İsteğimi örnek dosyada ifade etmeye çalıştım.
Kısaca; 1 den başlayarak değişken bir hücredeki sınır değere kadar olan sayıları karıştırarak istediğim sütundan aşağı doğru yazdırmak.
Vakit ayıracak arkadaşlara şimdiden teşekkür ederim.
Herkese iyi çalışmalar, iyi akşamlar.

 

[Necdet]

Merhaba,
İşin kolayına kaçtım, G sütununu yardımcı sütun olarak değerlendirdim.
Kodları bir modüle kopyalayıp deneyiniz.

Sub Makro1()

    Dim i As Long
    
    Application.ScreenUpdating = False
    
    i = 5 + Range("F5")
    
    Range("F6:F" & Range("F6").End(xlDown).Row).ClearContents
    Range("F6") = 1
    Range("F6:F" & i).DataSeries
    Range("G6:G" & i).FormulaR1C1 = "=RAND()"
    
    Range("F6:G" & i).Sort Key1:=[G1]
    Range("G6:G" & i).Clear
    
    Application.ScreenUpdating = True
    
End Sub

 

[xternet]

Necdet bey,
sade ve tam düşündüğüm gibi. Çok teşekkür ediyorum.
Zihninize sağlık. İyi çalışmalar.