Birden fazla çalışma sayfasındaki verileri nasıl sıralayabiliriz?

Excel'de, belirli bir sütuna göre bir çalışma sayfasındaki verileri hızlı ve kolay bir şekilde sıralayabiliriz. Ancak birden fazla çalışma sayfasındaki verileri sıralamayı denediniz mi? Bunları tek tek sıralamak zaman alıcı olacaktır. Bu makalede, bunu çözmek için kolay bir yol tanıtacağım.

VBA kodu ile birden fazla çalışma sayfasındaki verileri aynı anda sıralama

VBA kodu ile birden fazla çalışma sayfasındaki verileri aynı anda sıralama

Çalışma kitabınızdaki tüm sayfalarda belirli bir sütuna göre verileri sıralamak için aşağıdaki VBA kodu size yardımcı olabilir.

1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Module Penceresine yapıştırın.

VBA Kodu: Birden fazla çalışma sayfasındaki verileri aynı anda sıralama:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın, aynı biçimlendirmeye sahip tüm sayfalar her bir sayfanın E sütununa göre azalan sırada otomatik olarak sıralanacaktır.

Not: Yukarıdaki kodda, A:F sıralamak istediğiniz veri aralığıdır, E ise sıralamak istediğiniz sütun harfidir.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!