Excel Sayfalarını Menü Olarak Ekleme isimli içerikte, Excel çalışma kitabınızdaki sayfaları bir menü olarak eklemenizi sağlayan bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub SayfaMenusuOlustur()
Dim ws As Worksheet
Dim menuSayfasi As Worksheet
Dim i As Integer
' Menü sayfasını ekle
Set menuSayfasi = Worksheets.Add
menuSayfasi.Name = "Menü"
' Sayfa adlarını listele ve menüye ekle
i = 1
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Menü" Then
menuSayfasi.Cells(i, 1).Value = ws.Name
menuSayfasi.Hyperlinks.Add Anchor:=menuSayfasi.Cells(i, 1), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
i = i + 1
End If
Next ws
End SubAçıklama
Bu kod, Excel çalışma kitabınızda bulunan tüm sayfaları listeleyen ve bunları bir menü olarak ekleyen bir VBA makrosudur. "Menü" adlı yeni bir sayfa eklenir ve bu sayfaya tüm çalışma sayfalarının adları eklenir. Her sayfa adına tıklanarak ilgili sayfaya hızlıca geçiş yapılabilir.Kullanım
- Üstteki kodu çalıştırarak tüm sayfaları içeren bir menü oluşturun.
- Menüden istediğiniz sayfaya kolayca geçiş yapabilirsiniz.