Merhabalar bu işi kod ile yapmak istiyorsanız, bir düğmeye atayacağınız aşağıdaki kodlarla harf sırasına göre sayfaları sıralayabilirsiniz.
Sub sirala()
For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
If LCase(Sheets(b).Name) > LCase(Sheets(a).Name) Then GoTo 100
Sheets(b).Move before:=Sheets(a)
100 Next
Next
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.