Makro ile bir sütundaki sayıları büyükten küçüğe başka bir yere yazdırma

[cenkozkurt]

Merhabalar,

Başlıkta belirttiğim üzere Sayfa1 içerinsinde a sütünunda 50 kadar sayı var ve ben bunları Sayfa2'de B sütununa büyükten küçüğe sıralayarak yazdırmak istiyorum. Bugüne kadar "Mak ve Büyük" formülleriyle yapmıştım ancak burada hepsinin makro kullanılarak bulunması gerekiyor.

Yardımcı olursanız sevinirim.

 

[antonio]

Merhaba,
Kodlarınız aşağıdadır.

Sub sayilari_sirala()
ss = Sayfa1.Range("A" & Rows.Count).End(3).Row
Sayfa2.Range("B2").Resize(ss - 1, 1).Value = Sayfa1.Range("A2:A" & ss).Value
Sayfa2.Range("B2:B" & ss).Sort key1:=Sayfa2.Range("B2:B" & ss), order1:=xlAscending, Header:=xlNo
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir Modüle kopyalayıp dener misiniz

Sub AktarSırala()

    Dim s1  As Worksheet, _
        s2  As Worksheet, _
        i   As Long
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    s2.Range("B2:B" & Rows.Count).ClearContents
    
    i = s1.Cells(Rows.Count, "A").End(3).Row
    
    s1.Range("A2:A" & i).Copy s2.Range("B2")
    s2.Range("B2:B" & i).Sort Key1:=s2.Range("B2"), Order1:=xlDescending
    
End Sub

 

[cenkozkurt]

Antonio ve Necdet bey her ikinizede hızlı cevabınız için teşekkür ederim. Kod tam istediğim gibi.