Excelde sekmeleri alfabetik sıralama

[wonderful88]

Merhaba,

Excel sayfasındaki sekmeleri nasıl alfabetik olarak sıralayabilirim? Ekteki örnek dosyadan gidebilir miyiz?

 

[uzmanamele]

merhaba

bu (ç)alıntı kod işinizi görür mü?

Sub SayfaSirala()
Application.ScreenUpdating = False
Dim intI As Integer, intJ As Integer
 For intI = 1 To Sheets.Count
   For intJ = 1 To Sheets.Count - 1
     If UCase(Sheets(intJ).Name) > UCase(Sheets(intJ + 1).Name) Then
        Sheets(intJ).Move After:=Sheets(intJ + 1)
     End If
   Next
 Next
Application.ScreenUpdating = True
End Sub

 

[wonderful88]

kodu uyarlayamadım.Örnekteki dosyaya ekleyebilirmsniz?

 

[İhsan Tank]

kodu uyarlayamadım.Örnekteki dosyaya ekleyebilirmsniz?

buyrun dosyanıza ben uyarladım

 

[nicolasanelka]

bu kodu excel dosyasına nasıl uyarlayacağız