Diğer gizli sayfaları otomatik çağırma

[banaoi77]

Merhaba,
Ekteki örneği inceleyebilirseniz sevinirim.Ben excele yeni başladım.İstiyorumki bir buton hazırlayabileyim ve ve ona basınca hazırladığım diğer sayfalar otomatik gelsin.
Şimdiden teşekkürler.:yardim:

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne yazınız açılmasını istediğiniz sayfa numarası üzerine çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = "1" Then
Sheets("1").Visible = True
Else
Sheets("1").Visible = False
End If
If Target = "2" Then
Sheets("2").Visible = True
Else
Sheets("2").Visible = False
End If
If Target = "3" Then
Sheets("3").Visible = True
Else
Sheets("3").Visible = False
End If
End Sub

 

[Orion1]

Merhaba.
Alternatif kodlar.
Sarı kırmızı olan hücrelere çift tıklayarak ilgili sayfayı görünür yapabilirsiniz.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim syf As String
On Error Resume Next
If Intersect(Target, [A8,A11,A14]) Is Nothing Then Exit Sub
    syf = Target.Offset(-1, 0)
    Sheets("1").Visible = False
    Sheets("2").Visible = False
    Sheets("3").Visible = False
    Sheets(syf).Visible = True
End Sub

 

[banaoi77]

çok teşekkür ederim ama ben yapamadım.biraz daha açıklar mısınız:???:

 

[Orion1]

çok teşekkür ederim ama ben yapamadım.biraz daha açıklar mısınız:???:

Benim eklediğim dosyayı denedinizmi?

 

[banaoi77]

evet sonradan gördüm inceledim.bunu buton şeklinde yapmak mümkün mü acaba.ona basılacağını karşı tarafın bilmesi açısından

 

[Orion1]

evet sonradan gördüm inceledim.bunu buton şeklinde yapmak mümkün mü acaba.ona basılacağını karşı tarafın bilmesi açısından

Evet olabilir 1 dakika bekleyiniz.

 

[Orion1]

İstediğiniz böyle bir şeymi?
Butona Basmanız yeterli.

Sub sayfa_gizle_goster_1()
    For i = 2 To 4
        Sheets(i).Visible = False
    Next i
    Sheets(2).Visible = True
    Sheets(2).Select
End Sub

Sub sayfa_gizle_goster_2()
    For i = 2 To 4
        Sheets(i).Visible = False
    Next i
    Sheets(3).Visible = True
    Sheets(3).Select
End Sub

Sub sayfa_gizle_goster_3()
    For i = 2 To 4
        Sheets(i).Visible = False
    Next i
    Sheets(4).Visible = True
    Sheets(4).Select
End Sub

 

[banaoi77]

süper olmuş.peki birşey daha rica etsem.örneğin 1 nolu butona basınca direk o sayfa açılabilir mi

 

[Orion1]

süper olmuş.peki birşey daha rica etsem.örneğin 1 nolu butona basınca direk o sayfa açılabilir mi

Merhaba.
Dosyayı güncelledim.Önceki mesajımdan indirip deneyebilirsiniz.

 

[banaoi77]

ne desem boş süper.
ancak ben şimdi o butunların ismini nasıl değiştiricem?sayfaların ismini değiştirmeyi başardım ama butonların ismini değiştirirken macro çalışmıyor :yardim:

 

[banaoi77]

Yaptim Yaptim Çok KolaymiŞ.Çok TeŞekkÜrlerrrr

 

[Orion1]

ancak ben şimdi o butunların ismini nasıl değiştiricem?sayfaların ismini değiştirmeyi başardım ama butonların ismini değiştirirken macro çalışmıyor

Merhaba.
Dosyayı günceleldim.
Sayfa isimlerini değiştirsenizde kodlar çalışacaktır.
Önceki mesajımdan indirip deneyebilirsiniz.