Sheetleri harf sırasına göre sıralama

[gyargic]

Selam,

Ekli dosyada ki sheetleri harf sırasına göre nasıl sıralayabilirim. Yardımlarınızı bekliyorum,

Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3919&highlight=alfabetik

 

[Haluk]

Maksat alternatif olsun .... :mrgreen:

Sub Test()
    Dim ShArr() As String
    Dim i As Integer
    Dim ShNo As Long
    Dim WordBasic As Object
    
    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
End Sub

 

[gyargic]

Sayın leventm ve raider,

İlginiz için teşekkürler, elinize aklınıza sağlık problemim çözüldü.

Not: Sayın leventm sizin kod sadece küçük harfleri sıralıyor !

Saygılarımla,

 

[Levent Menteşoğlu]

Not: Sayın leventm sizin kod sadece küçük harfleri sıralıyor !

Haklısınız buna dikkat etmemişim. Uyarınız için teşekkürler, aşağıda küçük bir ilave ile düzeltilmiş halini sunuyorum.

Sub sirala()
For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
If LCase(Sheets(b).Name) > LCase(Sheets(a).Name) Then GoTo 10
Sheets(b).Move before:=Sheets(a)
10 Next
Next
End Sub

 

[istanbulcahan]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3919&highlight=alfabetik

Linki yenilermisiniz.