13.sayfadan sonra sırala

[aydgur]

İyi günler! Excel dosyasındaki ilk 13sayfa hariç , diğer sayfaları adına göre soldan sağa sıralama için yardım ederseniz ,saat 15:00 tatile çıkacağım..

 

[uzmanamele]

İyi günler! Excel dosyasındaki ilk 13sayfa hariç , diğer sayfaları adına göre soldan sağa sıralama için yardım ederseniz ,saat 15:00 tatile çıkacağım..

Sub SayfaSirala()
Application.ScreenUpdating = False

Dim intI As Integer, intJ As Integer
 For intI = 13 To Sheets.Count
   For intJ = 13 To Sheets.Count - 1
     If UCase(Sheets(intJ).Name) > UCase(Sheets(intJ + 1).Name) Then
        Sheets(intJ).Move After:=Sheets(intJ + 1)
     End If
   Next
 Next
Application.ScreenUpdating = True
End Sub

iyi tatiller