çalışma sayfalarını sıralama

[isobey34]

çalışma sayfalarını (worksheet) a'dan z'ye sıralamak için ne yapmamız gerkiyor, bu konuda yardım edebilirmisiniz lütfen?

 

[mustafakoker]

Arkadaşım günaydın bunun için excelin kendi tuşlarını kullanman yeterli

ekte örnek resim var incelermisin

 

[Korhan Ayhan]

Selamlar,

Sayfa isimlerini sıralamak için daha önce Sn. Haluk beyin yayınlamış olduğu aşağıdaki kodu kullanabilirsiniz.

Sub SAYFALARI_ALFABETİK_SIRALA()
    Application.ScreenUpdating = False
    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
    Application.ScreenUpdating = False
End Sub

 

[isobey34]

Selamlar,

Sayfa isimlerini sıralamak için daha önce Sn. Haluk beyin yayınlamış olduğu aşağıdaki kodu kullanabilirsiniz.

Sub SAYFALARI_ALFABETİK_SIRALA()
    Application.ScreenUpdating = False
    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
    Application.ScreenUpdating = False
End Sub

mustafa koker arkadaşım, benim bahsettiğim çalışma sayfaları,hücreler değil,

korhan arkadaşım haluk bey'in yazdığı kodları nereye yazacağız ben bu konuyu tam bilmiyorum ve bu kodları yazmadan da başka bi yol yokmu?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki inceleyiniz.

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım)

Ayrıca kod kullanmadan istediğiniz işlem yapılamaz.