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
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
-
330.8 KB Görüntüleme: 2