Excelde otomatik sekme indeksi oluşturma

Fatih Özcan

Site Kurucusu
Katılım
7 Ara 2008
Mesajlar
3,774
Tepki puanı
4,708
Puanları
338
Şehir
İstanbul
Firma
Saipem
Herkesin bildiği üzere excelde onlarca sekmede farklı içerikler oluşturuyoruz, tabi bu durum beraberinde zor bir gezinmeyide getiriyor. Bu yazımda size 4 adımda excelde otomatik olarak Sekme indeksi oluşturmayı anlatacağım.

  • Çalışma kitabınızın başına yeni bir çalışma sayfası ekleyin ve Dizin olarak yeniden adlandırın yada ismini isteğinize göre değiştirebilirsiniz.
1589604094527.png
  • Dizin (indeks oluşturmak istediğiniz sekme) sekmesine sağ tıklayın ve Kodu Görüntüle (view code) 'yi seçin.
1589604115637.png
  • Aşağıda verdiğim kodu açılan pencereye girin.
1589604135134.png
  • [Alt] + [Q] tuşlarına basın ve çalışma kitabını kaydedin ve üstteki işlemi tekrarlayarak Çalıştır düğmesine tıklayın.
1589604150955.png

Sonuç "Dizin" sekmesinde aşağıdaki gibi olacaktır.
1589604181105.png


Ayrıca her sekmeye "Dizin'e Dön" linki eklenecektir. Ben özellikle bu yazıyı A1 hücresinde çıkarttırdım çünkü her çalışma sekmesinin uzunluğu farklı olabilir ve çalışmalarınızın içinde çıkabilir liste. A1 hücreniz boş değilse en solda yeni sütun eklerseniz bu işlemleri yapmadan önce faydalı olacaktır. Bu şekildeyken yazdırma alanını ayarlarsanız sıkıntı olmayacaktır.
1589604196586.png


C#:
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "DIZIN"
.Cells(1, 1).Name = "Dizin"
End With

For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
M = M + 1
With wSheet
.Range("A1").Name = "Start" & wSheet.Dizin
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Dizin", TextToDisplay:="Dizin'e Dön"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Dizin, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub
 

jn6zo

Kayıtlı Kullanıcı
Katılım
26 Tem 2011
Mesajlar
418
Tepki puanı
260
Puanları
68
Bir kısayol bilgisi de ben ekleyeyim o halde.. Kırmızı olarak işaretlediğim sol alt köşedeki oklarının bulunduğu bölgeye sağ tıkladığınızda sekme listesi aşağıdaki şekilde açılacaktır. Açılan listede istediğiniz sekmeye tıklayarak kolayca ilgili sekmeye ulaşabilirsiniz. ;)

1590175053669.png
 
Üst