Tek tuşla birden çok sayfadaki verileri sıralamak,

[Sabri ŞİRİN]

Excel Dostları Merhaba,

Sayfa1'de oluşturduğumuz bir tuş ile;
Sayfa2  (B5:Z100) Aralığında bulunan verileri B Sütununa göre,
Sayfa3  (B5:AB1000) Aralığında bulunan verileri İlk B, ikinci olarak C Sütununa göre,
Sayfa4  (B5:AZ1000) Aralığında bulunan verileri  C Sütununa göre,
Sayfa5  (B5:AA1000) Aralığında bulunan verileri ise İlk B, ikinci olarak D Sütununa göre,
Artan şekilde sıralayabilirmiyiz.

Saygılarımla...

[Hüseyin Çoban]

Merhaba Sabri Bey, ekteki dosyayı inceler misiniz.

Kod: [Seç]

Sub sırala()
    Range("A1").Select
    ActiveSheet.Next.Select
    Range("B5:Z100").Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Sayfa3").Select
    Range("B5:AB1000").Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveSheet.Next.Select
    Range("B5:AZ1000").Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveSheet.Next.Select
    Range("B5:AA1000").Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Sort Key1:=Range("D5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Sayfa1").Select
    Range("A1").Select
End Sub

Ekteki dosya tarafımdan kaldırılmıştır- Hüseyin Çoban

[Sabri ŞİRİN]

Merhaba Hüseyin Bey,
Çok teşekkür ederim gayet güzel çalışıyor.
Kodları kendi çalışmama uyarladım sorunsuz çalışıyor.
Saygılarımla...