Sayfaları Alfabetik Sıralama

[sinful]

Arkadaşlar,

Excel çalışma kitabındaki sayfaları alfabetik sıralatmak için aşağıdaki macroyu kullanıyorum ancak sırala butonuna basıp sıralama yapıldıktan sonra en son sayfada kalıyor ben ise tekrar "ÖZET TABLO" isimli butona bastığımız sayfada kalmasını istiyorum.Bu durumda aşağıdaki kodu nasıl değiştirmeliyim?

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



Teşekkürler.

 

[uzmanamele]

merhaba

en sona ekleyerek deneyiniz.

Sheets("ÖZET TABLO").Select

 

[muhkem_]

merhaba

en sona ekleyerek deneyiniz.

Sheets("ÖZET TABLO").Select

biraz mütevazi olmak iyidir.

 

[uzmanamele]

merhaba

biraz mütevazi olmak iyidir.

üstüme mi alayım yoksa alınayım mı anlayamadım?

 

[mustafaine1]

bende neden yazilmis oldugunu anlamamistim

 

[Hüseyin]

Sub sırala()
 sayfa = Application.ActiveSheet.Name
 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
 Worksheets(sayfa).Activate
 End Sub

 

[sinful]

İlgileriniz için çok teşekkür ederim.Ellerinize sağlık.

 

[HEROMEN]

peki sıralamadan hariç tutmak istediğim sayfalar varsa hangi komutu kullanmalıyım ?