VBA Worksheet'leri Alfabetik Sıraya Sokmak

231 Okunma VBA

Birçok çalışma sayfası (worksheet) içeren bir çalışma kitabınız (workbook) varsa ve bunları alfabetik olarak sıralamak istiyorsanız, aşağıdaki makro kodunu kullanabilirsiniz.. 

Sub Sirala()
   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 Sub
VBA

İlginizi Çekebilir

VBA Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Örne ...

VBA Dosya Oluşturma

VBA Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

VBA Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

VBA 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği