Soru Makroyla sıralama nasıl yapılır?

[assenucler]

Değerli Dostlar,

Ekteki harcama dosyasındaki işlemlerin sıralamasını, manuel olarak; önce B sütunu, sonrasında A sütununu küçükten büyüğe doğru sıralamaktayım.

Bu sıralamayı makro ile yapabilmek için yardımınızı bekliyorum.

 

[hamitcan]

Makro kaydet yöntemi ile yaptım.

Sub Makro1()

    Range("A1").Select
    ActiveWorkbook.Worksheets("GelirGiderKayıt").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("GelirGiderKayıt").Sort.SortFields.Add Key:=Range( _
        "B2:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("GelirGiderKayıt").Sort.SortFields.Add Key:=Range( _
        "A2:A2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("GelirGiderKayıt").Sort
        .SetRange Range("A1:N2000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[assenucler]

Değerli Dostlar,

Ekteki harcama dosyasındaki işlemlerin sıralamasını, manuel olarak; önce B sütunu, sonrasında A sütununu küçükten büyüğe doğru sıralamaktayım.

Sayın hamitcan üstadım,

Öncelikle ilginize teşekkür ederim.

Ancak, ilk iletimde değindiğim kayıt sıralaması doğru çıkarken, makro kodu ile hatalı çıkmaktadır.

Sizi bilgilendirmek istedim.

 

[assenucler]

Sayın hamitcan,

Önerilen Makro Kaydet yöntemiyle doğru sonuca ulaştım.
Teşekkürler.

ÇÖZÜLDÜ

 

[ÖmerFaruk]

Edit...

 

[assenucler]

Ekli dosyadaki kayıtları önce B2, sonra A2 hücresini büyükten küçüğe sıraladıktan sonra; Sn. hamitcan üstadın önerisini dikkate alarak, makro kaydet yöntemiyle oluşturulan kodu SIRALA düğmesine bağlayınca, küçükten büyüğe göre sıralamayı doğru olarak yaptı.

Sn. hamitcan üstada önerisi için teşekkür ederim.