veri-->Sırala...Kriter neden 3 tane?

[bistrobellman]

Range("C1").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Key3:=Range("H2"), Order3:=xlAscending, Key4:=Range("O2"), Order4:=xlAscending, Key5:=Range("B2"), Order5:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


Normal excelde en fazla 3 kritere göre sıralama yapılıyor.
Ancak benim programda yukarıdaki koddan anlaşıldığı gibi 5 anahtar (Key5) gerekli...bu mümkün değil mi*? 5 kritere göre sıralama yapmam gerek ya...! çözümü nedir???

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirerek deneyin.

Yukarıdaki kodu aşağıdaki gibi deneyin.


[vb:1:9658dacab9] Range("C1").Sort Key1:=Range("C2"), Key2:=Range("D2"),Key3:=Range("H2"), Key4:=Range("O2"), Key5:=Range("B2")
[/vb:1:9658dacab9]


netice alamazsanız kodu ikiye bölün, önce 3 kritere göre sıralatın, sonrada tekrar 2 kritere göre sıralatatırsınız.

 

[Explorer]

Kodu ikiye bölüp aşağıdaki şekilde kullanabilirsin.
[vb:1:7c5bf71fb7] Selection.Sort Key1:=Range("O2"), Order1:=xlAscending, Key2:=Range("B2"), Order2:=xlAscending, Header:= xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2") , Order2:=xlAscending, Key3:=Range("H2"), Header:= xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
[/vb:1:7c5bf71fb7]