Excel'de çalışma sayfalarını bir hücre değerine göre Tüm Sayfaları Sırala?
Bir Excel dosyası kullanırken, çalışma sayfalarını genellikle alfabetik sıraya, sayılara veya sekme renklerine göre sıralarız; peki ya çalışma sayfalarını, sayfa sekmelerini belirli bir hücre değerine göre sıralamayı denediniz mi?
Diyelim ki onlarca çalışma sayfası içeren bir çalışma kitabınız var ve her bir çalışma sayfasının A1 hücresinde belirli bir değer yer alıyor. Şimdi, bu çalışma kitabındaki tüm çalışma sayfalarını, sırasıyla her birinin A1 hücresindeki değere göre artan düzende sıralamanız gerekiyor. Bu makaleyle tam da ihtiyacınız olan çözümü elde edeceksiniz.
VBA koduyla bir hücre değerine göre tüm çalışma sayfalarını sıralama
VBA koduyla bir hücre değerine göre tüm çalışma sayfalarını sıralama
Excel'de tüm çalışma sayfalarını bir hücre değerine göre sıralamak için doğrudan bir yol bulunmamaktadır; ancak aşağıdaki VBA kodu bu işlemi kolayca gerçekleştirmenize yardımcı olabilir.
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Tüm sayfaları bir hücre değerine göre sıralama
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Kodu yapıştırdıktan sonra, bu kodu çalıştırmak için F5 tuşuna basın; ardından çalışma sayfalarını sıralamak istediğiniz hücreyi seçmenizi isteyen bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Artık tüm çalışma sayfaları, her birindeki A1 hücresinin metin değerine göre artan sırada sıralanmış şekilde görünüyor.
Notlar:
1. Seçtiğiniz hücreler hem sayı hem de metin dizeleri içeriyorsa, sayı içeren sayfalar metin dizesi içeren sayfalardan önce sıralanır.
2. A1 hücresi boş olan çalışma sayfaları, tüm sayfaların en başına sıralanır.
İlgili makaleler:
Excel'de çalışma sayfalarını alfabetik veya alfanümerik sıraya göre nasıl sıralarım?
Excel'de çalışma sayfası sekmelerini renge göre nasıl sıralarım?
Çalışma sayfası sekmelerinin sırasını nasıl tersine çevirebilirim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar