Çalışma Kitabındaki Tüm Çalışma Sayfalarının Köprü Dizini Oluşturma
Bir Çalışma Kitabındaki Tüm Sayfaları Listelemek için Makroyu bir adım daha ileri götürelim ve çalışma kitabındaki her sayfa için köprü bağlantılı bir menü oluşturalım. Bu, çok sayıda sayfası olan ve her birine manuel olarak köprüler menüsü oluşturmaya çalışan biri için harika bir zaman tasarrufu sağlar.
Makroyu kullanmak için, koddaki Sayfa1 kelimesini (iki kez görünür) sonuçları istediğiniz sekme adıyla değiştirin. Çıktı sekmesinde önemli bir bilgi olmadığından emin olun çünkü verileri yazmadan önce temizler. Makro çalıştıktan sonra, her sayfaya bir köprü içeren her sayfanın bir listesi oluşturulur.
| 1234567891011121314151617181920 | Alt Liste Sayfaları()Dim ws As Çalışma SayfasıDim x Tamsayı Olarakx = 1Sayfalar("Sayfa1").Aralık("A:A").TemizleÇalışma Sayfalarında Her ws içinSayfalar("Sayfa1").Hücreler(x, 1).SeçActiveSheet.Köprüler.Add _Anchor:=Seçim, Adres:="", AltAdres:= _ws.Name & "!A1", TextToDisplay:=ws.Namex = x + 1SonrakiAlt Bitiş |
