Aynı anda dikey ve yatay sıralama yapabilirmiyiz.

[ataahmet]

Merhaba..
tabloda içinde aynı anda yatay ve dikey sıralama yapabilirmiyiz.

 

[Muzaffer Ali]

Merhaba.
Tablonuzun tamamını seçin. Başlık olan(A) sütunu seçmeyin.
"Giriş" sekmesinde "Düzenleme" bölümündeki "Sırala ve Filtre Uygula / Özel Sıralama" seçin.
Açılan pencerede "Seçenekler" tıklatın "Soldan Sağa ..." seçin Tamam tıklatın.
Sıralama ölçütünden satır seçin. Tamamı tıklatın.

 

[ataahmet]

Dalgalikur ilginiz için teşekkürler.
dikey olarak oluyor fakat yatay yaptığımdan dikeyin sıralamasıda bozuluyor.

 

[veyselemre]

Makro Kaydet --->

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("B2:F8").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B8:F8"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("B2:F8")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("G3:G7"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A3:G7")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[ataahmet]

hemen deneyeceğim teşekkürler.

 

[ataahmet]

çok teşekkürler elinize emeğinize sağlık.. tam istediğim gibi olmuş.

 

[S.Yiğit]

Sayın dalgalikur'un yazdığı şekilde istediğiniz gibi oluyor, Fotodan bakarak tekrar deneyin.

Dalgalikur ilginiz için teşekkürler.
dikey olarak oluyor fakat yatay yaptığımdan dikeyin sıralamasıda bozuluyor.