3'ten fazla sutuna göre sıralama işlemi

[Zahir]

Merhabalar;

Sizinde bildiğiniz gibi excelde sırlama işlemi 3 farklı sutuna göre yapılıyor. 3'ten fazla sutuna göre sırlama nasıl yapılır.

Ben 3 sutuna göre sırlama işleminin kodlarına 4.cüsünü ilave ettim ama hata aldım. Yardımlarınızı bekliyorum. Teşekkürler. Not: site içi arama yaptım ancak bulamadım.

Örnek uygulama : A, B, C, D, E sutunlarını 1.satırda başlık olduğunu varsayarak A2 den itibaren sıralayan macroyu nasıl yapabiliriz.

 

[Orion1]

Önce CDE 'yi sırala.Sonra AB'yi sırala.

 

[Zahir]

Evren Bey teşekkürler ama ben bu işlemi bir butona atayacağım.

 

[Orion1]

Evren Bey teşekkürler ama ben bu işlemi bir butona atayacağım.

Atayın.
Kodları butona yazın.

 

[Zahir]

İki farklı sırlama işleminin kodlarını butona eklerseniz çakışma olur.

Örnek (benim dosyamdaki şekliyle) :
' 1.Sıralama
Range("B6:U376").Select
Selection.Sort Key1:=Range("I6"), Order1:=xlAscending, Key2:=Range("D6") _
, Order2:=xlAscending, Key3:=Range("E6"), Order3:=xlAscending, Key4:=Range("B6"), Order4:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
' 2.Sıralama
Range("B6:U376").Select
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


Gördüğünüz gibi burda Key1:=Range("I6") ile Key1:=Range("B6") çakıştı. Ben bunlardan 2.cisini Key4 yaptım ama bu seferde hata verdi. Zaten sorunumun çözümü için bu dakikadan sonra buraya yazdım.

 

[Orion1]

Range("B6:U376").Select
Selection.Sort Key1:=Range("I6"), Order1:=xlAscending, Key2:=Range("D6") _
, Order2:=xlAscending, Key3:=Range("E6"), Order3:=xlAscending, 
' 2.Sıralama
Range("B6:U376").Select
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending

 

[Zahir]

Sorduğum sorunun cevabını aldığımı düşünürken bir yerde hata yaptığımızı farkettim. Buna göre 2.sıralamayı 1.sıralamanın devamı şeklinde yapmamız gerekiyor. Aksi takidirde 2.sıralamada diğer sıralama şekli tamamen bozuluyor.

 

[Orion1]

Sorduğum sorunun cevabını aldığımı düşünürken bir yerde hata yaptığımızı farkettim. Buna göre 2.sıralamayı 1.sıralamanın devamı şeklinde yapmamız gerekiyor. Aksi takidirde 2.sıralamada diğer sıralama şekli tamamen bozuluyor.

Siz sıralamayı nasıl yapacaksınız.3-4 falan demeden sütun sırasını sırasını söyleyin.
Ben ona göre bölüp yapıcam.

 

[Zahir]

Buyrun size ekli dosya. Buton koymayıda ihmal etmedim

 

[Korhan Ayhan]

Selamlar,

E2 hücresine aşağıdaki formülü uygulayın. Aşağıya doğru sürükleyin. Daha sonra sıralamayı E sütununa göre yapın. İşiniz bittikten sonra bu sütunu silin.

=A2&B2&C2&D2

Ayrıca aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub SIRALA()
    Application.ScreenUpdating = False
    Range("E1") = "SIRALAMA"
    Range("E2:E" & Range("A65536").End(3).Row).Formula = "=A2&B2&C2&D2"
    Range("A:E").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Range("E:E").ClearContents
    Application.ScreenUpdating = True
    MsgBox "Sıralama işlemi tamamlanmıştır.", vbInformation
End Sub

 

[halit3]

bir örnekde ben vereyim

Sub AZBUYUK()
a = InputBox("sıralama yapacağınız sütun numarasını yazınız. örnek olarak A sütunu için 1 yazınız H sutunu için 8 yazınız.", "SIRALAMA PENCERESİ", "1")
Rows("2:65536").Sort Key1:=Cells(a), Order1:=xlAscending
MsgBox ("Sıralama yapıldı...")
End Sub
Sub ZABUYUK()
a = InputBox("sıralama yapacağınız sütun numarasını yazınız. örnek olarak A sütunu için 1 yazınız H sutunu için 8 yazınız.", "SIRALAMA PENCERESİ", "1")
Rows("2:65536").Sort Key1:=Cells(a), Order1:=xlDescending
MsgBox ("Sıralama yapıldı...")
End Sub

 

[halit3]

bir örnekde ben vereyim
kodu düzelttim

kodu yeniden düzelttim

 

[Orion1]

Dosyanız ektedir.

 

[Zahir]

Sayın Korhan AYHAN sizin çözümünüzde aklımızda olsun makro yazmadan çözümü gayet güzel olmuş.
Sayın Halit3 sizin çözümünüz tek sutuna göre sanırım.

Sayın Evren GİZLEN sizide uğraştırdık ama çözümünüz gerçekten mükemmel olmuş ellerinize sağlık teşekkür ederim.
A sutununa tarih dşında veri girdiğimde sıralamaya tabi tutmaması ise çok şaşırtıcı bunun sebebi nedir?
Birde hazır sizi yakalamışken "sat = Cells(65536, "A").End(xlUp).Row" kodunun ne yaptığını açıklayabilirmisiniz.

Hepinize yardımlarınızdan dolayı çok teşekkür ederim.

 

[Orion1]

A sütununda son dolu hücrenin Satır numarasını verir.

sat = Cells(65536, "A").End(xlUp).Row

 

[Zahir]

Peki ben A sutunununa tarih yerine karakter giriyorum ve diğer sutunlarıda normal dolduruyorum ama sıralamada dikkate almıyor. Bu neden oluyor acaba?

 

[Orion1]

Peki ben A sutunununa tarih yerine karakter giriyorum ve diğer sutunlarıda normal dolduruyorum ama sıralamada dikkate almıyor. Bu neden oluyor acaba?

Tarihi tarihe göre sıralar,Stringide stringe göre sıralar.Bir kaçtanede string girin(Metin) onlarında kendi içlerinde sıralanacağını görürüsünüz.

 

[Zahir]

Evet bunu düşünememiştim

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

 

[halit3]

Sayın Korhan AYHAN sizin çözümünüzde aklımızda olsun makro yazmadan çözümü gayet güzel olmuş.
Sayın Halit3 sizin çözümünüz tek sutuna göre sanırım.

Sayın Evren GİZLEN sizide uğraştırdık ama çözümünüz gerçekten mükemmel olmuş ellerinize sağlık teşekkür ederim.
A sutununa tarih dşında veri girdiğimde sıralamaya tabi tutmaması ise çok şaşırtıcı bunun sebebi nedir?
Birde hazır sizi yakalamışken "sat = Cells(65536, "A").End(xlUp).Row" kodunun ne yaptığını açıklayabilirmisiniz.

Hepinize yardımlarınızdan dolayı çok teşekkür ederim.

çözüm bütün sutunları kapsıyor yanlız hangi sutuna göre sıralanacağını mesaj kutusuna yazmanız gerekiyor

 

[Zahir]

Sayın Halit3 buna itirazım yok. Ancak hangi sutuna göre değil hangi sutunlara göre sıralanacağı önemli bizim için zira amacımız 4 ölçütlü yani 4 sutuna göre sıralama yapmaya çalışmaktı.