ikili Sıralama

[onurtunaboyu]

Herkese merhaba. Foruma yeni üye oldum ve hemen faydalanmaya başladım, yalnız takıldığım bi nokta var. Ben küçükten büyüğe bir sıralama yapmak istiyorum makro ile.

Ekteki dosyada M hücresine göre sıralamayı yaptırabiliyorum fakat, M hücresi bir alt satırla aynı olan hücrelerde K hücresine göre de bir sıralama yapmam lazım.(Elde etmeye çalıştığım tablo Y sütunundan itibaren başlıyor.)


Yardımlarınız için şimdiden teşekkür ederim.

 

[AS3434]

Sayın onurtunaboylu

Öncelikle forumumuza hoş geldiniz.
Sorunuz açık değil.
M ve K hücresi dediğiniz M ve K sütunu mu?
Sıralama alanı neresi olacak.
Bir yerden alıp bir yere kopyalayacak mı yoksa olduğu yerde mi sıralanacak?

 

[onurtunaboyu]

Öncelikle bu kadar çabuk verdiğiniz için çok teşekkrü ederim.
Sıralamam şu şekilde olacak:
Önce M sütunundaki veriler sıralanacak.Bu kısmı hallettim (I ve J sutünü 1X olan satırlar için ama o problemi çözdüğüm için yok sayarak anlatıyorum).
Sonra M sütununda aynı olan hücreler K sütununa göre küçükten büyüğe sıralanacak.

Nereye yazıldığı önemli değil fakat olduğu yerde sıralansa iyi olur. Yani
K101,100,0
K102,0,,,,20
K103,15,,,20
K104,50,,40
gibi Yani en son sütun küçükten büyüğe, ortanca sütunda son sütun eşitse küçükten büyüğe

Not: Ama satır komple yer değiştirmeli. yani K101,100,0 en sona gitcekse hepsi gitmeli.

Konu çok karışık olunca anlatamıyorum da. Umarım anlatabilmişimdir.

 

[onurtunaboyu]

Range("H2:O" & Range("R2").Value + 1).Select
Range("O" & Range("R2").Value + 1).Activate
Selection.Sort Key1:=Range("M" & Range("R2").Value + 1), Key2:=Range("K" & Range("R2").Value + 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Key2 kısmını ekleyince istediğimi yaptı.

 

[AS3434]

Sayın onurtunaboylu

Mesaj yazmak için pencereyi açınca, konuyu çözdüğünüzü gördüm.
Yazacağım kodlar kısaca şöyle,

Sub Makro1()
    [h2:O100].Sort Key1:=Range("m2"), Order1:=xlAscending, Key2:=Range("K2") _
        , Order2:=xlAscending
End Sub

 

[onurtunaboyu]

İlginiz için teşekkür ederim