Çalışma sayfalarını sıralamak

[isoavci]

Bir excel çalışma kitabının altındaki çok sayıdaki çalışma sayfalarını alfabetik ve/veya ardışık olarak nasıl sıralatabilirim?

 

[Halit TÜRK]

Aşağıdaki kodu denermisiniz...

Sub Bicim_SayfaDiz()
Dim Sht1 As Worksheet, Sht2 As Worksheet
For Each Sht1 In Worksheets
For Each Sht2 In Worksheets
If Sht1.Name > Sht2.Name Then Sht1.Move After:=Sht2
Next Sht2
Next Sht1
End Sub

 

[isoavci]

Üstad, daha yeni başladım, o kodları nereye yazacağımı bile bilmiyorum.daha basit yolu yok mudur acaba?

 

[Halit TÜRK]

Dosya eklidir...