DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Örnek dosya yollayın yapayım.kısa bir örnek verirmisiniz
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim sayfa As String
On Error Resume Next
sayfa = Mid(Target.SubAddress, 1, InStr(1, Target.SubAddress, "!", vbTextCompare) - 1)
If Sheets(sayfa).Visible >= 0 Then
Sheets(sayfa).Visible = -1
End If
With Application
.EnableEvents = False
Target.Follow
.EnableEvents = True
End With
End Sub