Sıralama hk.

[mumugul]

Merhaba,

Birden fazla sayfa ve alanda sıralama yapmam gerekiyor.
Sıralama makrosu kaydedip kendime uyarladım ve kodu aşağıda paylaştım.
Denedim, çalışıyor gözüküyor.
Fazla ve eksik bir kodlama varsa yardımcı olur musunuz?

Saygılarımla,

Sub Makro1()

BS_01 = 1 ' SIRALANACAK ALAN İLK SÜTUN DEĞERİ
BS_02 = 3 ' SIRALANACAK ALAN SON SÜTUN DEĞERİ
SS_01 = 3 ' BİRİNCİ SIRALAMA ÖLÇÜTÜ SÜTUN DEĞERİ
SS_02 = 1 ' İKİNCİ SIRALAMA ÖLÇÜTÜ SÜTUN DEĞERİ
WS_SN = 1 ' SIRALANACAK SAYFA İNDEKS DEĞERİ

ActiveWorkbook.Sheets(WS_SN).Sort.SortFields.Clear
ActiveWorkbook.Sheets(WS_SN).Sort.SortFields.Add2 Key:=Columns(SS_01), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Sheets(WS_SN).Sort.SortFields.Add2 Key:=Columns(SS_02), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Sheets(WS_SN).Sort
    .SetRange Range(Columns(BS_01), Columns(BS_02))
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

End Sub

 

[mumugul]

Merhaba,

Bu kadar kısaltsak bir sorun yaşar mıyız?

Range(Cells(2, BS_01), Cells(Cells(Rows.Count, BS_01).End(3).Row, BS_02)).Sort _
Key1:=Cells(2, 3), order1:=xlAscending, Key2:=Cells(2, 1), order2:=xlDescending

 

[mumugul]

Sorum günceldir.