Her Sekmede Sabit Sekme Bağlantısı

[ZuCChiNi]

Bazı çalışma kitapları çok sekme içerebiliyor. Sekmeler arası gezinebilmek için bazı sekmelere link, bazıları için buton oluşturarak makro ataması yapıyorum.
İçeriği çok olan (çok satırlı ve çok sütunlu) sekmelerde bu bağlantılar tıklama alanının dışında kalıyor.
Her sekmenin belirtilen bir yerinde sabit kalabilecek bir kısayol eklemek mümkün mü?
Bölmeleri dondurarak yapmak dışında tabii.
Sekme sağa-sola ne kadar kayarsa kaysın, bu bağlantı belirtilen koordinatta hep sabit kalsın.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki gibi bir form yardımı ile yapılabilir.
Formun ShowModal Özelliği False yapılmıştır. Aksi halde form açıkken sayfaya erişim mümkün değil.
Combobox yada ListBox dan biri ile yapılabilir.

 

[ZuCChiNi]

Bu aklıma gelmemişti.
Microsoft böyle bir özellik koyana kadar bununlla idare ederiz.
Teşekkür ederim.

 

[burhancavus61]

Bu formu makro ile nasıl çalıştırıyorsunuz

 

[burhancavus61]

Tamam çözdüm arkadaşlar.

 

[burhancavus61]

Peki bu sayfalarda gösterilmesini istemediğimiz sayfalar için ne yapmalıyız.

 

[Muzaffer Ali]

Formun kodlarını silin aşağıdakileri ekleyin

Sayfa1 ve Sayfa2 listeye eklenmez

Private Sub cbSayfalar_Change()
    Worksheets(cbSayfalar.Text).Activate
End Sub

Private Sub lbSayfalar_Click()
    Worksheets(lbSayfalar.Text).Activate
End Sub

Private Sub UserForm_Initialize()
    Dim Bak As Worksheet
    Dim HaricSayfalar
    Dim Ekle As Boolean
    For Each Bak In ThisWorkbook.Worksheets
        For Each HaricSayfalar In Array("Sayfa1", "Sayfa2")
            If Bak.Name = HaricSayfalar Then
                Ekle = False
                Exit For
            Else
                Ekle = True
            End If
        Next
        If Ekle Then
            cbSayfalar.AddItem Bak.Name
            lbSayfalar.AddItem Bak.Name
        End If
    Next
End Sub

 

[burhancavus61]

Sayfa sınırı varmı, Birde bu butonu çağırmak için Activx öğesimi kullanmalıyım.

 

[Korhan Ayhan]

Merhaba,

Dosyanızdaki sayfaları listeleyebilir. Bu anlamda sınır yoktur. Formu açacak bir nesne ekleyip nesneye makro atayabilirsiniz.