Köprü Atanan Gizli Sayfa Açma

[SDorak]

Merhaba,
Bir dosyam var. 1. Giriş 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 konuda ne yapabilirim. Şimdiden teşekkürler...

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

sayfa isimlerini çift tıklayınız!

sayfa1'in kod sayfasında

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Sheets(ActiveCell.Text).Visible = True
Sheets(ActiveCell.Text).Select
End Sub

diğer sayfaların kod sayfasında

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden
End Sub

 

[SDorak]

Üstad Öncelikle İlgi ve alakan için çok teşekkür ederim ama maalesef gönderdiği kodlarla olmadı biz şekilden köprü yapmıştık listelerde senn gönderdiğn gibi sayfa1 ve sayfa2 yazdığımızda da debug ve run time eror hatası aldık dosyayı sana göndersem inceleme şansın olurmu incelersen ne şekilde gönderebilirim ? şimdiden tekrar teşekkürler

 

[uzmanamele]

merhaba
dosyanızı bana göndermeyin.
benzer bir örnek hazırlayarak sorunuzun devamına ekleyiniz.

 

[SDorak]

sizin gönderdiğiniz dosyadaki şekilde sayfa2 ve sayfa3 yazarak denedim hata verdi ama benim isteğim şekilde şekillere köprü atayarak yapmak fakat o şekildede hata veriyo dosyayı ekte sunutorum yardmınız için teşekkürler

 

[uzmanamele]

merhaba
"418000 No'lu Seri $" için;
köprüyü kaldırıp şekle makro atasanız olur mu?

Sub OtomatikŞekil13_Tıklat()
Sheets("418 SERİ €").Visible = True
Sheets("418 SERİ €").Select
End Sub

 

[SDorak]

Valla üstad Benim Sadece Giriş Sayfası Gözüküp Ordan diğer 9 sayfaya geçis ve 9 sayfdanda ana sayfaya dönüş olsunda yöndeti farketmez

 

[SDorak]

Uzmanamele üstadım tüm emeklerin için çok teşekkür ederim. Işimi halletmemde yardımcı olduğun için. Kolay gelsin

 

[uzmanamele]

Uzmanamele üstadım tüm emeklerin için çok teşekkür ederim. Işimi halletmemde yardımcı olduğun için. Kolay gelsin

merhaba
çözümü bulduğunuzdan emin olamadığım için sizin yerinize dosyayı düzenledim, güle güle kullanın.

 

[mehmettekgoz]

Merhaba, Gizli sayfalara köprü attigimda gizli sayfalara baglanamiyorum. Kodlari denedim ancam yapamadim. Yardimci olabilir misiniz?
E-mail:mehmettekgoz@yahoo.com

 

[*Freeman*]

Sayın uzmanamele paylaşımınız için teşekkürler çok faydalı bir bilgi öğrenmiş oldum sayenizde, bu konu üzerine bir şey danışmak isterim. Vermiş olduğunuz örnekte butonlara tanımlama yapmışsınız, aynı sistemi ben 170 sheet için hücre içine yazmış ve hyperlink tanımlamış olduğum bir kelimeye nasıl tanımlarım, yardımcı olabilir misiniz, teşekkürler iyi çalışmalar...

 

[Endless033]

merhaba
çözümü bulduğunuzdan emin olamadığım için sizin yerinize dosyayı düzenledim, güle güle kullanın.

bunada uyarlama şansınız varmı mizan genel sayfasındaki ana başlıklar belli zaten veri sayfası kalacak sadece

 

[gsbaran]

üstadlar hayırlı akşamlar nedendir bilmem ama köprüler çalışıyor
sayfayı gizleyince gitmiyor ayrıca
2.verilen kod varya anasayfaya tıklayınca sayfa kapansın oçalışıyor ama
ana sayfadan gizli pencereye giden bağlantı tıklayınca olmuyor bağlantılar resim bu arada nasıl yapaiblirim

 

[gsbaran]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column = 1 Then
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End If
Application.ScreenUpdating = True
End Sub


bu ve

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub





bu iki formülü denedim çalışıoyr fakat yazı olarak yazarsam çalışıypr
resim olarak çalışmasını istiyorum nasıl olabilir acaba

 

[irfan034]

Arkadaşlar bende farklı forumlardan bulduğum kodları harmanlayıp çalışan bi kod yaptım diye düşünüyorum benim işime yaradı umarım sizin işinize de yarar.

1.Adım; Köprülerin olduğu ana sayfaya aşağıdaki kodları yazın;

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fty As String, Ftr As String
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Fty = Target.SubAddress
Ftr = Replace$(Mid$(Fty, 1, InStr(Fty, "!") - 1), "'", "")
Sheets(Ftr).Visible = -1: Target.Follow
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

2.Adım: Köprü oluşturduğunuz sayfalara aşağıdaki koru yazın;

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden
End Sub

Not: Köprüyü tıkladığında gizli olan köprü oluşturduğunuz sayfalar görünüyor farklı bir sayfayı tıkladığınızda tekrar gizleniyor.
Umarım anlatabildim.