Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Sabri ŞİRİN - 11 Şubat 2011, 17:50:38

Başlık: Tek tuşla birden çok sayfadaki verileri sıralamak,
Gönderen: Sabri ŞİRİN - 11 Şubat 2011, 17:50:38

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...

Başlık: Ynt: Tek tuşla birden çok sayfadaki verileri sıralamak,
Gönderen: Hüseyin Çoban - 11 Şubat 2011, 18:27:31

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

Başlık: Ynt: Tek tuşla birden çok sayfadaki verileri sıralamak,
Gönderen: Sabri ŞİRİN - 11 Şubat 2011, 19:07:05

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