Soru Sayı karıştırma

xternet

Altın Üye
Katılım
12 Kasım 2004
Mesajlar
455
Excel Vers. ve Dili
2010 Tr
Altın Üyelik Bitiş Tarihi
12-10-2028
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.
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
İşin kolayına kaçtım, G sütununu yardımcı sütun olarak değerlendirdim.
Kodları bir modüle kopyalayıp deneyiniz.

Kod:
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

Altın Üye
Katılım
12 Kasım 2004
Mesajlar
455
Excel Vers. ve Dili
2010 Tr
Altın Üyelik Bitiş Tarihi
12-10-2028
Necdet bey,
sade ve tam düşündüğüm gibi. Çok teşekkür ediyorum.
Zihninize sağlık. İyi çalışmalar.
 
Üst