Excel Sayfası Sekmeleri Sıralamak

[kpacacioglu]

Excel'de çalışırken sekmeleri A'dan Z'ye sıralamak mümkünmüdür?

 

[Kemal Demir]

Ã?ncelikle Forumumuza Hoş Geldiniz.

Sitede Mevcut tu :hey:


[vb:1:8660976201]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:8660976201]

 

[kpacacioglu]

Bu visual basic kodu nerede giricez? Excel deki Sayfa1,Sayfa2 vs. sekmeleri yeniden adlandırdıktan sonra A'dan Z'ye sıralatmak istiyorum.Bu konuda yardımcı olabilirmisiniz?

 

[mehmett]

Sayfa adlarından birini sağ tıklayın, Kod Görüntüle'yi seçin gelen pencerede Insert, Module komutuyla bir modül ekleyin ve yukarıda verilen kodu oraya yapıştırın.

Makroyu çalıştırmak için;

Araçlar, Makro, Makrolar, Çalıştır komutlarını verin.

 

[kpacacioglu]

mehmett kardeş teşekkür ederim.

 

[Haluk]

Sitede Mevcut tu :hey:

http://www.excel.web.tr/viewtopic.php?p=27327#27327