Excelde sayfa isimlerini alfabetik sıralama

[SİRRİNGUL]

Lütfen acil yardım 1 gündür onun için bilgisayarı kurcalıyorum

 

[mustafaine1]

Sub sirala()
Dim X As Variant
Dim I As Variant
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz. Aşağıdaki linkleri inceleyiniz.

http://www.excel.web.tr/f48/sayfalary-syralama-t62845.html
http://www.excel.web.tr/f14/sayfa-syralama-t79882.html
http://www.excel.web.tr/f48/excel-sayfalary-ismine-gore-syralama-t73998.html
http://www.excel.web.tr/f14/sayfalary-alfabetik-syralama-t14688.html