Çalışma Sayfalarını Alfabetik Olarak Sıralama
04 Eylül 2019
28 Şubat 2021
837
Bu kod ile Çalışma Sayfalarını Alfabetik Olarak Sıralama işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub SortSheetsTabName()
Application.ScreenUpdating = False
Dim ShCount As Integer, i As Integer, j As Integer
ShCount = Sheets.Count
For i = 1 To ShCount - 1
For j = i + 1 To ShCount
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Excel kitabınızda yüzlerce sayfa var ve bu sayfaları siz alfabetik olarak sıralamak mı istiyorsunuz?
Hemen hiç vakit kaybetmeden kodu adımlara göre kopyalayın, tadını çıkarın.
Aman tek tek sürükleme ile uğraşmayın, Excel'de mutlaka bir kolaylık vardır, biraz zihni zorlamak iyi gelir.
Baktınız üstesinden gelemiyorsunuz, buradan bize sorun.
| YARARLI KISAYOLLAR | |
|---|---|
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |
| Veri Aralığının En Üstüne Gitme | Ctrl ↑ |
| Bitişik Hücre Aralığı Seçme | Shift Tıklama |
| Eğik Yazdırma / Alternatif | Ctrl 3 |
| Hızlı Grafik Oluşturma | Alt F1 |