Makroyla sayfa adlarını A-Z düzeninde nasıl sıralarım?

[assenucler]

100 civarında sayfam var. Sayfaların en başında daima "adlar" adlı sayfam olmalı, diğer sayfa adları "A-Z" düzeninde sıralanmalı.

Bu işlem makroyla nasıl yapılır?

Yardımlarınız için önceden teşekkürler.

 

[Merhum İdris SERDAR]

100 civarında sayfam var. Sayfaların en başında daima "adlar" adlı sayfam olmalı, diğer sayfa adları "A-Z" düzeninde sıralanmalı.

Bu işlem makroyla nasıl yapılır?

Yardımlarınız için önceden teşekkürler.

.

Daha önce çalıştığınz dosyada vermiştim.

Sub sırala()
Dim i As Integer
Dim 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

.

 

[assenucler]

Üstadım inceliğiniz ve yanıtınız için teşekkür ederim.

Daha önce yazdığınız kodlarda, hangi kodları tam olarak almam gerektiği konusunda duraksadığım ve elimde genel bir kod olması için yazdım.

İlk iletimde de belirttiğim gibi, "adlar" sayfası, dosya açıldığında hep en solda olmalı. Sanırım kodunuz bunu da içeriyor, değil mi?

Lütfen beni yanlış anlamayın.

Sevgi ve saygılar.

 

[assenucler]

Kodu çalıştıramadım

Üstadım,


Kodu "Modül" olarak kaydettim. Bir türlü çalıştıramadım.

Dosyayı ekliyorum.

Rahatsız ettiğim için kusura bakmayınız.

 

[Merhum İdris SERDAR]

Üstadım,


Kodu "Modül" olarak kaydettim. Bir türlü çalıştıramadım.

Dosyayı ekliyorum.

Rahatsız ettiğim için kusura bakmayınız.

.

Yapmak istediklerinizin hepsi verdiğim çalışmada mevcut.

.

 

[assenucler]

Teşekkürler.