gizli sayfaya köprü ekleme

Endless033

Altın Üye
Katılım
25 Haziran 2013
Mesajlar
140
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
07-09-2025
arkaşlar gizlenen syafaya köprü yapmak istiyorum araştırmama göre bu kodu sayfanın kod bölümüne yazdım gizlediğim zaman sayfayı görüntülenmiyor
mizan genel köprü yapacağım yer sayfada turkcel ve diğerleri


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
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Gizlenmemesi gereken sayfalar hangileri?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bir de MİZAN GENEL sayfasında G24 hücresinde hangi sayfaya köprü kurulacak?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,269
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
O zaman siz köprü eklenmiş halini paylaşın. Ben makro kodlarını eklerim.
 

Endless033

Altın Üye
Katılım
25 Haziran 2013
Mesajlar
140
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
07-09-2025
O zaman siz köprü eklenmiş halini paylaşın. Ben makro kodlarını eklerim.
Korkan bey sayfalara git sayfası oluşturdum..kalacak sayfalar mizan genel , sayfalara git ,veri, raporlar sayfaları
köprü değilde şekliden gitmesini istiyorum böyle yaparsak daha iyi olur mizan sayfasını personel görmemesi doğru olur diye düşündüm daha geliştireceğim çünkü

belirtmiş olduğumun dışındaki diğer safalar gizli kalacak devamlı tıkladığım zaman sadece o sayfa açılsın tekrar diğer sabit sayfalara geçince gizlesin otomatik amaç fazla sayfa kalabalığından kurturmak..ilginiz için şimdiden tşkler.
 

Ekli dosyalar

Endless033

Altın Üye
Katılım
25 Haziran 2013
Mesajlar
140
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
07-09-2025
tşk ederim akşam bir kod buldum onunla yapmıştım sizin kod daha karmaşık değil

Sub OtomatikŞekil1_Tıklat()
Sheets("TURKCELL").Visible = True
Sheets("TURKCELL").Select
End Sub
Sub OtomatikŞekil2_Tıklat()
Sheets("AVEA").Visible = True
Sheets("AVEA").Select
End Sub
Sub OtomatikŞekil3_Tıklat()
Sheets("VODOFONE").Visible = True
Sheets("VODOFONE").Select
End Sub
Sub OtomatikŞekil4_Tıklat()
Sheets("FATURAMATİK").Visible = True
Sheets("FATURAMATİK").Select
End Sub
Sub OtomatikŞekil5_Tıklat()
Sheets("TELEFON SATIŞ").Visible = True
Sheets("TELEFON SATIŞ").Select
End Sub
Sub OtomatikŞekil6_Tıklat()
Sheets("BİLGİSAYAR VE TABLET SATIŞ").Visible = True
Sheets("BİLGİSAYAR VE TABLET SATIŞ").Select
End Sub
Sub OtomatikŞekil7_Tıklat()
Sheets("AKSESUAR SATIŞ").Visible = True
Sheets("AKSESUAR SATIŞ").Select
End Sub
Sub OtomatikŞekil8_Tıklat()
Sheets("TEKNİK SERVİS").Visible = True
Sheets("TEKNİK SERVİS").Select
End Sub
Sub OtomatikŞekil9_Tıklat()
Sheets("FOTOKOBİ VE ÇIKTI").Visible = True
Sheets("FOTOKOBİ VE ÇIKTI").Select
End Sub
Sub OtomatikŞekil10_Tıklat()
Sheets("BANKA GELİRLERİ").Visible = True
Sheets("BANKA GELİRLERİ").Select
End Sub
Sub OtomatikŞekil11_Tıklat()
Sheets("DİĞER GELİRLER (MUZ SERASI)").Visible = True
Sheets("DİĞER GELİRLER (MUZ SERASI)").Select
End Sub
Sub OtomatikŞekil12_Tıklat()
Sheets("ŞİRKET FATURALARI").Visible = True
Sheets("ŞİRKET FATURALARI").Select
End Sub
Sub OtomatikŞekil13_Tıklat()
Sheets("PERSONEL MAAŞLARI").Visible = True
Sheets("PERSONEL MAAŞLARI").Select
End Sub
Sub OtomatikŞekil14_Tıklat()
Sheets("DÜKKAN KİRA GİDERİ").Visible = True
Sheets("DÜKKAN KİRA GİDERİ").Select
End Sub
Sub OtomatikŞekil15_Tıklat()
Sheets("İAŞE GİDERLERİ").Visible = True
Sheets("İAŞE GİDERLERİ").Select
End Sub
Sub OtomatikŞekil16_Tıklat()
Sheets("TEMİZLİK MALZEMESİ").Visible = True
Sheets("TEMİZLİK MALZEMESİ").Select
End Sub
Sub OtomatikŞekil17_Tıklat()
Sheets("KIRTASİYE VE SARF MALZEME").Visible = True
Sheets("KIRTASİYE VE SARF MALZEME").Select
End Sub
Sub OtomatikŞekil18_Tıklat()
Sheets("YOL VE ULAŞIM GİDERLERİ").Visible = True
Sheets("YOL VE ULAŞIM GİDERLERİ").Select
End Sub
Sub OtomatikŞekil19_Tıklat()
Sheets("MUHASEBE GİDERLERİ").Visible = True
Sheets("MUHASEBE GİDERLERİ").Select
End Sub
Sub OtomatikŞekil20_Tıklat()
Sheets("REKLAM GİDERLERİ").Visible = True
Sheets("REKLAM GİDERLERİ").Select
End Sub
Sub OtomatikŞekil21_Tıklat()
Sheets("HIRDAVAT VB. MALZEME GİDERLERİ").Visible = True
Sheets("HIRDAVAT VB. MALZEME GİDERLERİ").Select
End Sub
Sub OtomatikŞekil22_Tıklat()
Sheets("BANKA GİDERLERİ").Visible = True
Sheets("BANKA GİDERLERİ").Select
End Sub
Sub OtomatikŞekil23_Tıklat()
Sheets("DİĞER GEDERLER (MUZ SERASI)").Visible = True
Sheets("DİĞER GEDERLER (MUZ SERASI)").Select
End Sub
Sub OtomatikŞekil24_Tıklat()
Sheets("MİZAN GENEL").Visible = True
Sheets("MİZAN GENEL").Select
End Sub
Sub OtomatikŞekil25_Tıklat()
Sheets("VERİ").Visible = True
Sheets("VERİ").Select
End Sub
Sub OtomatikŞekil26_Tıklat()
Sheets("RAPOR").Visible = True
Sheets("RAPOR").Select
End Sub
Sub OtomatikŞekil27_Tıklat()
Sheets("SAYFALARA GİT").Visible = True
Sheets("SAYFALARA GİT").Select
End Sub

sayfalarada kod bölümünede bunu yaptım tek tek

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

Endless033

Altın Üye
Katılım
25 Haziran 2013
Mesajlar
140
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
07-09-2025
ama sizinkini yapacağım bu çok uğraştırıyor
 

Endless033

Altın Üye
Katılım
25 Haziran 2013
Mesajlar
140
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
07-09-2025
emeğinize sağlık sagolun
 
Üst