xlSheetVeryHidden ile gizlenmiş sayfaya köprü

[Yesilyurtlu]

Hayırlı akşamlar;
Visible özelligini xlSheetVeryHidden yaptığımız bir sayfaya ki bu sayfa TABLO sayfası olsun.Bu sayfaya köprü ile nasıl açabiliriz?

 

[Korhan Ayhan]

Selamlar,

Bu işlemi makro ile yapabilirsiniz. Aşağıdaki kodu köprü kullandığınız sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If InStr(1, Target, "!") > 0 Then
    If Sheets(Mid(Target, 1, InStr(1, Target, "!") - 1)).Visible <> -1 Then
    Sheets(Mid(Target, 1, InStr(1, Target, "!") - 1)).Visible = -1
    End If
    Target.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    End If
End Sub

 

[Yesilyurtlu]

ÜSTADIM;

İlkönce Sayfa 1 de bir hücreye SAYFA2 yazdım ve köprü verdim
Kod sayfasında SAYFA2 ye yukarıda verdiğiniz kodu yazdım ve Visible özelligini xlSheetVeryHidden yaptım. Sayfa1 de köprü verdiğim SAYFA2 yi tıkladım ama açmadı. Hatalı yaptığım bir yermi var acaba

 

[Korhan Ayhan]

Selamlar,

Bu durumda kodu Sayfa1 e uygulamalısınız.

 

[Yesilyurtlu]

Üstadım olmadı vallaha. beceremedim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Yesilyurtlu]

ÜSTADIM Örnek dosya ekleyeceğinizi vallaha bekliyordum. Beceriksizliğim mesajlarla çözülmüyordu.
Örnek dosyada a1 hücresine tıklayınca köprü ile istenilen sayfaya gidiyor ÜSTAD.
Bende ki dosyaya aynısını uyarladım oldu üstad. Allah razı olsun.

Teşekkür Ederim. Dua İle