köprü

[yaşar681]

excel de gizlenmemiş sayfadan gizlenmiş sayfalara nasıl köprü atabilirim

 

[yaşar681]

cevap

cevap veren yokmu

 

[Orion1]

Aşağıdaki kodu kendi gizli sayfanıza göre uyarlayın.
Önce sayfayı görünür yapmanız gerekiyor.

Sheets("Sayfa1").visible=true
sheets("Sayfa1").select

 

[yaşar681]

yapamadım

kısa bir örnek verirmisiniz

 

[Orion1]

kısa bir örnek verirmisiniz

Örnek dosya yollayın yapayım.

 

[Ferhat Pazarçevirdi]

Köprülerin bulunduğu çalışma sayfasının kod bölümüne, aşağıdakileri kopyalayın.

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

 

[yaşar681]

kısa bir örnek

gizli sayfaları köprü ile açmak istiyorum

 

[Orion1]

Dosya hazır.