Sayfa Sıralama Makrosu

[Halit TÜRK]

Merhabalar... Sitemizden edindiğim (zannederim Sn. Yurttaş 'a ait) sayfa sıralama makrosu ile sayfaları sıralıyorum. Bu kodda nasıl bir değişiklik yapılmalıdır ki sıralama yaparken ilk üç sayfayı dahil etmeden 4. sayfadan itibaren sıralama yapsın. Örnek olarak

1. Bakiyeler
2. Data
3. Örnek

bu sayfaların ilk üç sırada kalması için ancak;
1. 1Bakiyeler
2. 2Data
3. 2Örnek rakamlar kullanarak yapabiliyorum.

yardımcı olabilirmisiniz... Teşekkürler..


Sub sayfasirala()
Dim ShArr() As String
Dim i As Integer
Dim ShNo As Long
Dim WordBasic As Object
'Application.ScreenUpdating = False

ShNo = Worksheets.Count
ReDim ShArr(1 To ShNo)

For i = 1 To ShNo
ShArr(i) = Sheets(i).Name
Next

Set WordBasic = CreateObject("Word.Basic")
WordBasic.SortArray ShArr()

For i = ShNo - 1 To 1 Step -1
Sheets(ShArr(i)).Move Before:=Sheets(ShArr(i + 1))
Next

Set WordBasic = Nothing
'Application.ScreenUpdating = True
Sheets("2Data").Select
CreateObject("WScript.Shell").Popup _
"Sayfalar Alfabetik Liste Halinde Sıralandı..", 1, "UYARI", vbInformation
End Sub

 

[aydgur]

Sub sayfasirala()
For a = 4 To Sheets.Count
For B = a + 1 To Sheets.Count
If LCase(Sheets(B).Name) > LCase(Sheets(a).Name) Then GoTo 500
Sheets(B).Move before:=Sheets(a)
500 Next

Next
Sheets("anasayfa").Select
End Sub
("anasayfa") yerine kendi sayfa adını yazmalısın

 

[Halit TÜRK]

Sn. aydgur

Bu kodu biliyorum ama yukarıdaki kod çok daha hızlı çalışıyor... Yine de teşekkürler..

Çözüme ulaştım...

 

[Korhan Ayhan]

Selamlar,

Kullandığınız koddaki aşağıdaki kırmızı renkli değerleri 4 yapmanız gerekmektedir.

For i = [B][COLOR=red]1[/COLOR][/B] To ShNo

For i = ShNo - [COLOR=red][B]1[/B][/COLOR] To 1 Step -1

 

[Halit TÜRK]

Teşekkürler..