Sayfa sıralaması hakkında

[alves]

bir excel sayfasının içinde sayfa1 sayfa2 sayfa 3 şeklinde çalışma sayfaları var bende onların isimlerini değiştirdim ama bende ahmet ali hüseyin kalem v.s. 30-40 adet sayfa var bir excel sayfasının içinde ben bunların sıralamasını harf sırasına göre olmasını istiyorum tek tek çok uzun bir zamanımı alıyor bunun kolay bir yöntemi varmıdır ...

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub AdaGoreSayfaSırala()
Dim i As Integer, j As Integer
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub

 

[muygun]

Merhaba;
Eki inceleyin.
Anasayfadaki makro kodlarını kendi sayfanıza aktararak bir düğmeye atayın.
İyi çalışmalar.
Not: Kodlar alıntıdır.

 

[alves]

çok teşekkür ederim sağolun