DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
2 gündür ne yapsam sorunu çözemedim diğer kodlar işime yaramadı bu kod ile sorun çözüldü çok teşekkür ederim...Merhabalar,
Bir Abimizin verdiği cevaptır.
Önce köprü oluşturacağınız gizli olmayan sayfanın kod bölümüne;
yazıp, daha sonra ilgili sayfalara köprü işlemini tamamlayınız. Köprü kurduğunuz sayfaları gizleyip gerekli bağlantılara tıklayarak sonucu gözlemleyiniz.Kod: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
Uitser Madina