Değerli arkadaşlarım ekteki dosyada göreceğiniz üzere çalışma kitabımda 5 sayfam var. birisi anasayfa diğerleride dört bankamın verilerinin olduğu sayfa.ben anasayfada banka sayfalarıma köprü eklediğim 4 adet bankamın resmini koydum.ama o dört adet banka sayfamın görünmesini istemiyorum sadece bir adet sayfa olsun ve o da anasayfam olsun ama resimlere tıkladığım zamanda ilgili bankanın sayfasına gitsin istiyorum lütfen acil yardım.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayfaları gizleyerek köprü oluşturmak
- Konbuyu başlatan SuedaNur
- Başlangıç tarihi
mustafa1205
Altın Üye
- Katılım
- 23 Ekim 2010
- Mesajlar
- 1,436
- Excel Vers. ve Dili
- Office 2016 / 64 Bit - Türkçe
Bildiğim kadarı ile köprü ile gizleme olmuyor ama makro ile yapabilirsiniz. Daha kolayı ve kullanışlısı araçlar - seçenekler - görünüm de bulunan sayfa sekmeleri bölümündeki işareti kaldırırsanız sayfalarınız görünmez...
Sağolun Mustafa bey o şekilde gizleyebiliyorum ama benim istediğim işe yaramıyor eğer makro ile yapılabiliyorsa o konuda bana yardımcı olursanız yada anasayfamda nasıl bir değişiklik yapmam gerektiğini söylerseniz sevinirim.
- Katılım
- 11 Ağustos 2008
- Mesajlar
- 5,891
- Excel Vers. ve Dili
- Office 2013 Tr - Win10 x64
. . .
Anasayfa nın kod bölümüne yapıştırın. Resimler üzerindeki köprüleri kaldırın. Daha sonra bankalara göre makro atayın.
. . .
Anasayfa nın kod bölümüne yapıştırın. Resimler üzerindeki köprüleri kaldırın. Daha sonra bankalara göre makro atayın.
Kod:
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Sheets("GARANTİ").Visible = False
Sheets("YKB").Visible = False
Sheets("HSBC").Visible = False
Sheets("AKBANK").Visible = False
Application.ScreenUpdating = True
End Sub
Sub kod_garanti()
Application.ScreenUpdating = False
Sheets("GARANTİ").Visible = True
Sheets("GARANTİ").Select
Application.ScreenUpdating = True
End Sub
Sub kod_YKB()
Application.ScreenUpdating = False
Sheets("YKB").Visible = True
Sheets("YKB").Select
Application.ScreenUpdating = True
End Sub. . .
Hüseyin bey çok teşekkürler sağolun.çok işime yarayacak