VBA Worksheet'leri Alfabetik Sıraya Sokmak

215 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 Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

VBA Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

VBA Şifrelenmis Worksheet'lerin Şifresini Kaldırmak

VBA Tüm Worksheet'lerin Gizliliğini Kaldırmak

VBA Dosya Taşıma