Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: Tek tuşla birden çok sayfadaki verileri sıralamak,  (Okunma sayısı 6629 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Sabri ŞİRİN

  • Excelce Onbaşı
  • **
  • İleti: 32
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Sabri ŞİRİN
  • İl / İlçe: Şahinbey GAZİANTEP
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...


Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Tek tuşla birden çok sayfadaki verileri sıralamak,
« Yanıtla #1 : 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
« Son Düzenleme: 25 Temmuz 2011, 11:54:29 Gönderen: Hüseyin Çoban »

Çevrimdışı Sabri ŞİRİN

  • Excelce Onbaşı
  • **
  • İleti: 32
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Sabri ŞİRİN
  • İl / İlçe: Şahinbey GAZİANTEP
Ynt: Tek tuşla birden çok sayfadaki verileri sıralamak,
« Yanıtla #2 : 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