Sayfa Seçim Kısayolları

[Tunabilisim]

Merhaba

Kullanmakta olduğum çalışma kitabında yaklaşık 30 ve üzeri sayfa bulunmakta.
Sayfalara kaydırma çubuğundan ulaşmak zaman ve karışıklığa neden olmaktadır.
Çalışma kitabında sürekli açık bulunacak ama sayfada çalışmaya engel olmayacak ufak bir pencere açılabilir mi?
Açılan pencerede küçük düğme ikonları koyulup sayfalara bu düğmelerden ulaşılabilir mi?
Bu düğmelere sayfaların açılmasını ve sayfaların isimlerini dikkate almayacak şekilde isim verilecek şekilde ayarlanabilir mi?

Bu pencerenin altına excel'de arama yapılabilen ctrl+f bul alanı eklenebilir mi? Bütün sayfalarda arama yapabilecek şekilde.

Konu hakkında yardımlarını rica eder şimdiden emeği geçen herkese teşekkür ederim.

 

[Korhan Ayhan]

İnceleyiniz.

Sayfa değiştirme menüsü oluşturmak istiyorum

Private Sub UserForm_Activate() For s = 1 To Sheets.Count Me.ListBox1.AddItem Sheets(s).Name Next End Sub burada hata veriyor

www.excel.web.tr

Sayfaları Menü Halinde Gösterme

Belgedeki sayfaları menu halinde gösteren ve menüden ilgili sayfa seçilince o sayfayı açan kodlar. Sub auto_open() Dim AnaMenu As CommandBarControl Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True) With AnaMenu .Caption = "Sayfalar" .BeginGroup =...

www.excel.web.tr

 

[Tunabilisim]

Rica etsem örnek dosyayı buraya koyabilir misiniz?

 

[Korhan Ayhan]

İnceleyiniz.

Harici Link (Silinebilir) ; https://dosyam.org/2BOg/ÖRNEK.xls

 

[Tunabilisim]

Korhan hocam,

Örnek dosyayı indirdim ve makrolara ulaştım. Bir iki düğme oluşturmaya çalıştım ama ya ben beceremedim yada hata vermekte.
Zahmet olmaz ise hazırlanmış olarak örnek yükleyebilir misiniz?

 

[Korhan Ayhan]

Örnek dosyayı açtığınızda excelin üst menüsünde eklentiler bölümünde menü oluşacaktır. O menüye tıklayarak sayfalara erişim sağlayabilirsiniz. Özelliği budur.

 

[Tunabilisim]

Korhan hocam, eklentiyi buldum. Ellerinize sağlık.
Şimdi eklentilerde sayfalara ulaşmak için açılır menü olarak bulunuyor ve eklentilerin büyük bir kısmı boş bulunuyor.
Açılır menü olmadan sayfalar düğme olarak ayarlanabilir mi? Yeni bir sayfa eklendiğinde düğme otomatik olarak getirtilebilir mi?
Ayrıca ctrl+f bul fonksiyonu tüm sayfalarda arama yapabilecek şekilde arama kutucuğu koyulabilir mi?

Sayfalar arası geçiş kolaylığı çok güzel olmasına rağmen belli miktar sayfalarda metin aramakta kolay olmuyor.

 

[Korhan Ayhan]

Menüde dosyadaki tüm sayfaların listelenmesi gerekir.

Ek olarak Ctrl+F tuşu menüsünde zaten dosya içinde arama özelliği bulunmaktadır. Bunu kullanabilirsiniz.

 

[Tunabilisim]

Bu menüde dosyadaki tüm sayfalar için liste hazırlanması zahmetli midir? Yardımcı olabilir misiniz.
Arama alanının menü üzerinde sürekli aktif olarak bulunmasını istemiştim. ctrl+f kısa yolu çoğu zaman donmalara neden oluyor

 

[Korhan Ayhan]

Zahmetli değil. Zaten menü o şekilde çalışmıyor mu? Dosyadaki bütün sayfaların listelenmesi gerekiyor.

 

[Tunabilisim]

Koray Hocam,

Eklentiler kısmının örnek bir resmini ekledim. Resimdeki gibi ikonlar olabilir mi? Açılır menü olmayacak şekilde ve arama alanı.https://dosyam.org/2BQk/örnek.png

Bilgi

Bilgi

dosyam.org

 

[Korhan Ayhan]

Excelin arama menüsünü neden kullanmak istemiyorsunuz?

 

[Tunabilisim]

Daha hızlı ve daha pratik olması adına. Her seferinde arama sayfasını açıp kapatmamak için.
Çünkü bütün sayfaları aktif olarak kullanıyor ve gün boyunca kullandığım bir çalışma kitabıdır.

Yardımcı olabilecek misiniz?

 

[Korhan Ayhan]

Bul penceresini kapatmadan kullanabilirsiniz.

Ribbon menüyü yönetmek biraz sıkıntılıdır. Taruz beyin bu konuyla ilgili bir başlığı vardı. Bulunca paylaşırım.

 

[Korhan Ayhan]

Linkler;

https://www.excel.web.tr/threads/ribbon-menue-sihirbazi.112834/

https://www.excel.web.tr/threads/excel-office-menue-sihirbazi.113634/

 

[Korhan Ayhan]

Ek olarak ribbon menüye videodaki gibi buton eklenebiliyor. Ama elle yapmak gerekiyor.

 

[Korhan Ayhan]

Ben videodaki anlatıma göre bir dosya hazırladım.

Sizde kendiniz yapabilirsiniz.

Harici Link (Silinebilir) ; https://dosyam.org/2BSh/Ribbon_Menü_Sayfa_Listesi.xlsm

 

[1mak1mak]

İnceleyiniz.

Sayfa değiştirme menüsü oluşturmak istiyorum

Private Sub UserForm_Activate() For s = 1 To Sheets.Count Me.ListBox1.AddItem Sheets(s).Name Next End Sub burada hata veriyor

www.excel.web.tr

Sayfaları Menü Halinde Gösterme

Belgedeki sayfaları menu halinde gösteren ve menüden ilgili sayfa seçilince o sayfayı açan kodlar. Sub auto_open() Dim AnaMenu As CommandBarControl Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True) With AnaMenu .Caption = "Sayfalar" .BeginGroup =...

www.excel.web.tr

Hocam her ikisinide xla xlam olarak Hem Library Klasöründe hem addins klasöründe denedim
Eklentilerde gözüküyor ekliyorum ama Menüye gelmiyor sebebi nedir acaba.
Buradaki çalışmayıda denedim o da olmadı. Alttaki yerde hata veriyor.

Sheets(Application.CommandBars.ActionControl.Caption).Select

Ribbon bende çalışmıyor diyecem ama bugün paylaşılan "Ribbon Based Calendar Date Picker" denedim
Menüde şak diye "Calendar" Tabını açtı. Banada olsaydı iyi olurdu bir dosyamda 54 sayfa var sayfalara gitmek baya zahmetli oluyor.
İyi çalışmalar

 

[1mak1mak]

Bu arada Sağ Sol Sayfa okuna Sağ Klik Yaptığımda zaten normalde Sayfa Listesi Menüsü açılıyor.
Konu gündeme gelince acaba bende çalışırmı daha basit olurmu diye merak ettim bu yüzden denemek istedim.

 

[Korhan Ayhan]

Bu linkte paylaştığım dosya aşağıdaki şekilde menüyü oluşturuyor.

Sayfa değiştirme menüsü oluşturmak istiyorum

Private Sub UserForm_Activate() For s = 1 To Sheets.Count Me.ListBox1.AddItem Sheets(s).Name Next End Sub burada hata veriyor

www.excel.web.tr