Sayfa İsimlerinin tümünü sayfa üzerinde görmek için?

[vipp1981]

Arkadaşlar excel doyası içinde onlarca sayfa oluştu. Bunları kaydırma çubuğu ile bulması ve gezinmesi çok zor oluyor. (sayfa 1, sayfa 2 ..... sayfa 35 vs.) Kaydırmayı iptal edip tümünü iki üç yada dört satır halinde sayfa üzerinde görebilmenin yolu nedir?

Sayfa 1 sayfa 2 sayfa 3 sayfa 4 sayfa 5
Sayfa 6 Sayfa 7 Sayfa 8 Sayfa 9 Sayfa 10
Sayfa 11 Sayfa 12 Sayfa 13 Sayfa 14 Sayfa 15.... gibi

 

[Mahir64]

Arkadaşlar excel doyası içinde onlarca sayfa oluştu. Bunları kaydırma çubuğu ile bulması ve gezinmesi çok zor oluyor. (sayfa 1, sayfa 2 ..... sayfa 35 vs.) Kaydırmayı iptal edip tümünü iki üç yada dört satır halinde sayfa üzerinde görebilmenin yolu nedir?

Sayfa 1 sayfa 2 sayfa 3 sayfa 4 sayfa 5
Sayfa 6 Sayfa 7 Sayfa 8 Sayfa 9 Sayfa 10
Sayfa 11 Sayfa 12 Sayfa 13 Sayfa 14 Sayfa 15.... gibi

Merhaba
altarnatif çözüm olarak kullanabilirsiniz.
http://www.excel.web.tr/f48/comboboxa-sayfa-simlerini-aldyrma-sayfaya-gitme-t92468.html

 

[uzmanamele]

merhaba

anasayfa adında yeni bir sayfa oluşturup bunun A sütununa sayfa isimlerini yazarak çift tıklama veya sadece tıklama ile bu sayfalara kolayca ulaşabilirsiniz.

Sub saydaadi()
For i = 1 To Worksheets.Count
Sheets("anasayfa").Cells(i, 1) = Sheets(i).Name
Next
End Sub

anasayfa'nın kod bölümüne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets(Target.Text).Select
End Sub

aslında bu kodlara gerek yok
sol altta, sayfa isimlerinin bulunduğu yerde ok işaretlerini sağ tıklarsanız çalışma kitabındaki sayfaların hepsini görebilir, buradan istediğiniz sayfayı tıklayarak kolayca ulaşırsınız.

 

[numan şamil]

Ekteki dosya işinizi görürmü (sayfa adını çift tıklayınca o sayfayı açıyor kodları forumdan almıştım