4 SEÇENEKLİ (KEYLİ) SIRALAMA LÜTFEN YARDIM. SİTEDE BULA

[samsun2005]

4 SEÇENEKLÝ (KEYLÝ) SIRALAMA LÜTFEN YARDIM. SÝTEDE BULA

SIRALAMA İÇİN KOD
-----------------------------------------------------
Range("A5:M1004").Select
Selection.Sort Key1:=Range("L5"), Order1:=xlAscending, Key2:=Range("K5") _
, Order2:=xlAscending, Key3:=Range("A5"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

ARKADAÞLAR HERKESE MEHABA!
YUKARIDAKİ RESİMDEKİ GİBİ BİR ÇİZELGEM VAR.
BU ÇİZELGEYİ BİRİNCİ (“L5”) SÜTUNUNA GÃ?RE , İKİNCİ (“K5”) SÜTUNUNA GÃ?RE, ÜÇÜNCÜ (“A5”) SÜTUNUNA GÃ?RE SIRALATIYORUM.BUNUN KISACA AÇIKLAMASI ÞU: “L5 “ LİSTEDEKİ VERİLERİ 3 GRUBTA GRUPLANDIRIYOR.
“K5” BU GRUPLARI YİNE KENDİ İÇİNDE 3 GRUBA SIRALIYOR(CVS-ONB-ER). “A5” ARTAN OLARAK SIRALIYOR.
BEN “D5” SÜTUNUNDADA GRUPLARI KENDİ İÇİNDE ALFABETİK SIRALAMA İSTİYORUM.FAKA OLMUYOR.YUKARIDAKİ KODA Key4 EKLEDİÐİMDE HATA VERİYOR .BUNUN BAÞKA YOLU VARMI.LÜTFEN YARDIM.TEÞEKKÜRLER

 

[excelvba]

Tek satırda ancak 3 sıralamaya izin verilmektedir. Daha fazlası için ,ilave bir satırla tekrar sıralama yapabilirsiniz. Aşağıdaki gibi deneyin.

[vb:1:a278ea0065]Range("A5:M1004").Sort Key1:=Range("L5"), Key2:=Range("K5"), Key3:=Range("A5")
Range("A5:M1004").Sort Key1:=Range("D5")
[/vb:1:a278ea0065]