• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sayfa Sekmelerini Gizlemek İstiyorum Ama Köprü Bağlantıları Yok Olmasın.

Katılım
29 Haziran 2013
Mesajlar
7
Excel Vers. ve Dili
türkçe
Merhaba Arkadarşlar.

Ekteki Exceldeki Gibi Sayfa Sekmelerini Gizlemek İstiyorum Çünki 250 Sayfa Kafa Karıştırıyor Ama Köprü Bağlantılarınında Yok Olmaması Lazım Yardımcı Olurmusunuz?
Makro İle Yaptım Ama Köprü Bağlantıları Yok Oldu.
 
Sn alper19881
Köprüyü kaldırın, o hücreye sadece active olacak sayfanın adını yazın.
Bu sayfanın Kod sayfasına aşağıdaki kodu yapıştırın.
Hücreye çift tıklayınca Sayfa görünür ve aktif olacaktır.
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To Sheets.Count
If Target = Sheets(i).Name Then
Sheets(Target.Value).Visible = -1
Sheets(Target.Value).Activate
End If
Next
End Sub
 
Ayrıca gizli kalması gereken sayfalardan çıkınca, bu sayfaların tekrar gizlenmesi için aşağıdaki kodu ThisBook'un kod sayfasına yapıştırın, Köprülerin bulunduğu sayfanın adı "Sayfa1" değilse kodlarda buna göre değişiklik yapın,
Kod:
]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Sayfa1" Then
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Sayfa1" Then
Sheets(i).Visible = 0
End If
Next
End If
End Sub
 
Geri
Üst