Sayfaları Menü Olarak Listeleme isimli içerikte, Excel'deki tüm sayfaları bir menü şeklinde listeleyen bir Hazır Makro Kodu yer almaktadır.
Bu özellik, büyük Excel dosyalarında sayfalar arasında hızlı bir şekilde gezinmek ve aradığınız sayfayı kolayca bulmak için oldukça kullanışlıdır.
Hazır Kodlar
VBA:
Sub SayfalariMenuOlarakListele()
Dim ws As Worksheet
Dim i As Integer
Dim menuSheet As Worksheet
' Mevcut sayfa varsa siler
On Error Resume Next
Set menuSheet = ThisWorkbook.Sheets("Sayfa Menüsü")
Application.DisplayAlerts = False
If Not menuSheet Is Nothing Then menuSheet.Delete
Application.DisplayAlerts = True
On Error GoTo 0
' Yeni bir sayfa ekleyip adını verir
Set menuSheet = ThisWorkbook.Sheets.Add
menuSheet.Name = "Sayfa Menüsü"
' Sayfaları listeleme
i = 1
For Each ws In ThisWorkbook.Sheets
If ws.Name <> menuSheet.Name Then
i = i + 1
menuSheet.Cells(i, 1).Value = ws.Name
menuSheet.Hyperlinks.Add Anchor:=menuSheet.Cells(i, 1), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
End If
Next ws
End SubAçıklama
Bu kod, Excel dosyasında bulunan tüm sayfaların isimlerini "Sayfa Menüsü" isimli yeni bir sayfada listeleyerek, bu isimlere tıklanabilir bağlantılar oluşturur. Kod, öncelikle var olan bir "Sayfa Menüsü" sayfasını siler, ardından yeni bir "Sayfa Menüsü" sayfası oluşturur ve tüm sayfa isimlerini burada listeleyip, her isme tıklanabilir bir bağlantı ekler.Kullanım
Kodu çalıştırarak tüm sayfaların bir menüde listelenmesini sağlayın.Bu özellik, büyük Excel dosyalarında sayfalar arasında hızlı bir şekilde gezinmek ve aradığınız sayfayı kolayca bulmak için oldukça kullanışlıdır.