çalışma sayfalarını nasıl alfabetik olarak sıralattı

[zorbey07]

merhaba arkadaşlar,

ekteki dosyada müşteri takibi için bir çalışma kitabı oluşturmaya çalıştım. ancak bu çalışma kitabı içine, her açtığım yeni sayfadan sonra, çalışma sayfalarını alfabetik sıraya göre sıralamasını istiyorum. :agla: bu konuda yardımcı olursanız... :lol: ve dahası :hiho: şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyiniz. Ayrıca ekte birde dosya sunuyorum.
[vb:1:4d8f60d6fd]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
[/vb:1:4d8f60d6fd]

 

[zorbey07]

sevgili leventm,

ilgine çok teşekkür ederim. bu işimi çok kolaylaştırdı. :icelim:

 

[bezl]

Sayın leventm bu sıralamada türkçe karakterleri de dikkate alabilmesini sağlayabilir miyiz, acaba? Cevabınız için şimdiden teşekkürler...

 

[veyselemre]

Sanırım Bu kodlar Haluk beye aitti.
[vb:1:ae0a5f0c75]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[/vb:1:ae0a5f0c75]

 

[bezl]

çok teşekkür ederim.