KİTAPTAKİ SAYFALARI GİZLEME HAKKINDA..

[Endless033]

Arkadaşlar Aynı kitap içerisindeki sayfaları gizleyip isimlerini tek bir sayfada toplayıp tıklayınca o sayfaya gitmesini sağlanmasını istiyorum Mizan genel sayfaısnda mavi hücreler zaten sayfaları işaret ediyor onların üstüne köprü yapıyorum yalnız sayfalar çok olunca gizliyorum gizli olduğu için sayfaya gitmiyor yardımız için tşkler şimdiden

 

[Ömer]

Merhaba,

"BuÇalışmaKitabı" kod sayfasında kopyalayın.
"MİZAN GENEL" sayfasında ilgili hücreye çift tıkladığında sayfaya gider, gidilen sayfada herhangi bir hücreye çift tıklarsanız; açılan sayfa gizlenerek "MİZAN GENEL" sayfasına döner.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
    ByVal Target As Range, Cancel As Boolean)

    On Error GoTo atla
    If ActiveSheet.Name = "MİZAN GENEL" Then
        Sheets(Target.Value).Visible = True
        Sheets(Target.Value).Select
    Else
        If ActiveSheet.Name <> "RAPOR" Then
            ActiveSheet.Visible = False
        End If
        Sheets("MİZAN GENEL").Select
    End If
    Exit Sub
atla:
    MsgBox "Sayfayı Bulamadım"
    
End Sub