Sayfa İsimlerini sıralamayı nasıl yapabiliriz...

[hakana.]

Arkadaşlar merhaba Exelde çalışma kitabımızın için de bulunan sayfaları ismine göre nasıl otomatik sıralatabiliriz... Hatta birbaşka sayfada diğer sayfaların isimlerini görüp üzerini tıkladığımızda o sayfanın açılmasını sağlayabilir miyiz ?

 

[leumruk]

Merhaba,
Sayfa sıralama kodu: (AnaSayfa sabit...)

Sub SayfaAdı()
Set s = Sheets("AnaSayfa")
For x = 1 To Sheets.Count
s.Cells(x, "a") = Sheets(x).Name
Next
s.Range("a2:a" & [a65536].End(3).Row).Sort Key1:=Range("A2"), Orientation:=xlTopToBottom
Application.ScreenUpdating = False
For y = 2 To s.[a65536].End(3).Row
Syf = s.Cells(y, "a")
Sheets(Syf).Move Before:=Sheets(y)
s.Range("a1:a100").Copy Sheets(Syf).[a1]
Next
s.Select
End Sub

Sayfa seçme kodu: (Thisworkbook bölümünde olacak.) Sayfa seçimi için; sayfa adının bulunduğu hücre üzerine gelerek çift tıklamanız gerekli.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a1:a" & [a65536].End(3).Row)) Is Nothing Then Exit Sub
Syf = Target.Value
Sheets(Syf).Select
End Sub

 

[hakana.]

Arkadaşım ilgin için teşekkürler...
Gerçekten işime yaradı...

 

[leumruk]

Arkadaşım ilgin için teşekkürler...
Gerçekten işime yaradı...

Rica ederim.