Gizlenen sekmelere link atama hak.

[Aretha10]

Forumda arattım ama bulamadım.. Belki de mevcut bir konuydu şimdiden kusura bakmayın..

Excel e bir kaç sekme ekledim ve ilk sekmeden bunlara link attım herşey normal ancak sekmeleri gizlediğimde linkler çalışmıyor..

Çok fazla sekme olacağı için herseferinde excel o sekmeye gidiyor ve ana sekme gözükmüyor.. Sadece link e tıkladığım sekme açılsın ana sekmeye döndüğümde o sekme kapansın gibi bir şey yapmamız mümkünmü?

 

[hamitcan]

Aşağıdaki kodu, Sayfa1'in kod kısmına ekleyin.

Private Sub Worksheet_Activate()
    For Each Sht In Worksheets
       If Sht.Name <> "Sayfa1" Then Sht.Visible = False
    Next
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Sheets(Target.TextToDisplay).Visible = True
    Sheets(Target.TextToDisplay).Select
End Sub

 

[Aretha10]

Teşekkürler örnek işime yaradı ancak kod kendi dosyamda çalışmadı örneğinizde Sayfa1 olan isim ben de farklı isimde bunu kodda sayfa1 yazısını değiştirerek hallettim

sayfa1 e tıkladıgımda diğer sayfalar gizleniyor buraya kadar sıkıntı yok

Sorun ise sayfa1 deki linklerden herhangi birine tıkladığımda hata veriyor

sheets(target.Texttodisplay).visible = true

komutu hata veriyor

Bende gizlediğim herbir sekmenin ismi farklı acaba bu yüzden mi?

Tabletden girdiğim için dosya paylaşamıyorum..

 

[hamitcan]

Sekme isimleri, kod içindeki sayfa isimleri ve köprü isimleri ile örtüşmeli yoksa hata mesajı alabilirsiniz.