Köprü Atanan Gizli Sayfa Açma

[enesdurukan]

arkadaşlar merhaba
Bir dosyam var. veri sayfasında diğer sekmelerin linkini verdim ve sorunsuz çalışıyor. Fakat link verdiğim (Köprü atadığım) sekmeler görünmesin istediğim için Biçim-Sayfa-Gizle Yaptım Şimdi köprüme tıklayınca o sayfalar gizli olduğu için açılmıyor.

bu problemin aynısını başka bir arkadaş bu yaşamış sorun çözülmüş.
http://www.excel.web.tr/f50/kopru-atanan-gizli-sayfa-acma-t73016.html

fakat aynı kodları ekledim benim sayfamda çalıştıramadım bir türlü.
acaba nerede yanlış yapıyorum yardımcı olabilirseniz sevinirim.

 

[Korhan Ayhan]

Köprüleri kaldırın. Kodu aşağıdaki gibi değiştirin.

Private Sub Worksheet_Activate()
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "veri" Then
            Sayfa.Visible = False
        End If
    Next
End Sub
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
    Sheets(ActiveCell.Text).Visible = True
    Sheets(ActiveCell.Text).Select
End Sub

"teklif sayfası" isimli sayfanızın adınıda "TEKLİF" olarak düzelttikten sonra F sütununa çift tıklayarak deneyin.

 

[enesdurukan]

ilginiz için teşekkür ederim tek sayfa için verdiğiniz kod çalıştı. fakat benim çalışma kitabımda 1 den fazla teklif sayfası olacak 59 adet araç var yani 59 adet teklif1.....teklif59 sayfam olacak. bu durumda bütün linkler teklif sayfasına gidiyor.

 

[enesdurukan]

arkadaşlar yokmu bunun gerçekten bir yolu

 

[Korhan Ayhan]

Bu durumda "F" sütunundaki yazıları değiştirin.

TEKLİF_1
TEKLİF_2
TEKLİF...

Bu şekilde sayfa isimleri ile "F" sütununa yazdıklarınız aynı olursa sorun yaşamazsınız.

 

[enesdurukan]

hocam teşekkür ederim.