Excel sayfaları sağda liste olarak görüntülenebilirmi?

[faceturk]

Değerli forumdaşlar ,
excelde aşağıda yan yana sıralanan sayfaları sağda veya solda yukarıdan aşaıya liste şeklinde gösterebilrimiyiz.
saygılar

 

[ocamsul]

Değerli forumdaşlar ,
excelde aşağıda yan yana sıralanan sayfaları sağda veya solda yukarıdan aşaıya liste şeklinde gösterebilrimiyiz.
saygılar

Hangi sayfada sayfa liste oluşturmak istiyorsanız o sayfanın kod düzenleme ekranına aşağıdaki kodu yapıştırıp "A" hücresine bir defaya mahsus sayfa adlarını tam olarak alt alta yazın ve hücrelere maus ile her tıkladığınızda o sayfaya gidecektir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cancel = True
 ad = Target
 Sheets(ad).Select
End Sub

Eğer bunu sayfalara ulaşım kolay olsun mantığı ile istiyorsanız!!!

Sub Listele()
[A:A].ClearContents
For i = 1 To Sheets.Count
Cells(i + 1, 1) = Sheets(i).Name
Next
End Sub

Bu kodu da sadece sayfa adlarını "A" sütununa alt alta listelemek için kullanabilirsiniz.