VBA Worksheet'leri Alfabetik Sıraya Sokmak

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 String İçinde Başka Bir Stringin Adetini Bulma Örneği

VBA Dikdörtgenin Alanını Hesaplama Örneği

VBA Tüm Worksheet'leri Şifrelemek

VBA Dosyanın Güncelleme Tarihini Değiştirme

VBA Dosya Kopyalama