Excel sayfalarını alfabetik sıraya göre sıralatma

[sinful]

Arkadaşlar excel çalışma kitabında sayfa isimlerini alfabetik sıraya göre nasıl sıralatabiliriz.Çok sayıda sayfa var elle tek tek uğraşmak oldukça zor olacak.Yardımlarınızı rica ederim.Teşekkürler.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle ekleyiniz.

Sub sırala()
If Worksheets.Count = 1 Then Exit Sub
For i = 1 To Worksheets.Count-1
    For j = i + 1 To Worksheets.Count
        If Worksheets(j).Name < Worksheets(i).Name Then
            Worksheets(j).Move Before:=Worksheets(i)
        End If
    Next j
Next i
End Sub

 

[ersoyalan]

Merhaba,

Kodu denermisiniz.



Sub Autpen()
Dim i As Integer
Dim j As Integer
If Worksheets.Count = 1 Then Exit Sub
For i = 1 To Worksheets.Count - 1
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move before:=Worksheets(i)
End If
Next j
Next i
End Sub

 

[sinful]

Çalıştı.Çok teşekkür ederim.Elleriniz dert görmesin.