Sayfaları Sıralayan Makro

[ANTALYA 01]

Merhaba
Ekteki Uygulamada A sütunundaki İlgili Sayfa Tıklandığında ilgili sayfaya ulaşılıyor.Sayfa1-Sayfa 2-Sayfa 3 vb…gibi sayfaları A sütununa sıralayacak bir makro yapılabilir mi ?

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim pir As Worksheet
    Dim i As Integer
    For Each pir In Worksheets
        Range("A1").Offset(i) = pir.Name
        i = i + 1
    Next
    Call sayfa_sirala

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
Call sec
End Sub
Sub sec()
Sheets(ActiveCell.Row).Select
End Sub
Sub sayfa_sirala()
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
End Sub

 

[ZİNDAN]

Gerçekten harika bir kod.Teşekkürler sayın Evren Gizlen.

 

[ANTALYA 01]

V

Teşekkür ederim.

 

[Orion1]

Teşekkür ederim.

Gerçekten harika bir kod.Teşekkürler sayın Evren Gizlen.

Rica ederim.
İyi çalışmalar.