Köprü bulunan ana sayfa haricindeki sayfaları gizleme

[evlek]

Merhaba, 4 sayfalı bir excel dosyam var. Birinci sayfası ana sayfa ve bu sayfada diğer sayfalara link verilmiş. Ben sadece ana sayfanın görünür olmasını, linklere basılınca gizlenmiş olan sayfanın görünmesini istiyorum. Ancak sağ tıkla--gizle yapınca ana sayfadaki linke tıklamakla sayfa açılmıyor, illa ki görünür olması gerekiyor. İstediğim şekilde sayfaları gizleyip linke tıklayınca görünmesini sağlayabilir miyim acaba?
Şimdiden teşekkürler

 

[Mahir64]

Merhaba, 4 sayfalı bir excel dosyam var. Birinci sayfası ana sayfa ve bu sayfada diğer sayfalara link verilmiş. Ben sadece ana sayfanın görünür olmasını, linklere basılınca gizlenmiş olan sayfanın görünmesini istiyorum. Ancak sağ tıkla--gizle yapınca ana sayfadaki linke tıklamakla sayfa açılmıyor, illa ki görünür olması gerekiyor. İstediğim şekilde sayfaları gizleyip linke tıklayınca görünmesini sağlayabilir miyim acaba?
Şimdiden teşekkürler

Merhaba
Eki İnceleyin fikir vermesi açısından faydalı olabilir

 

[evlek]

Kusura bakmayın haftasonu bakamadım internete. Bu gönderdiğiniz örnekte sayfa2 gizli, düğmeye basınca açılıyor ama sayfa listesinde (tab listesinde) sayfa2 görünüyor. Sanırım orada görünmemesi için yapacak birşey yok. Peki siz bu örnek dosyayı nasıl yaptınız, en azından bu örnek gibi birşeyler yapayım?
Teşekkürler

 

[Mahir64]

Merhaba
ALT F11 basara VBA kısmına giriniz,kodları göreceksiniz.

 

[evlek]

Teşekkür ederim

 

[Mahir64]

Teşekkür ederim

Kolay gelsin
İyi çalışmalar :hey:

 

[spacebar]

Merhaba, 4 sayfalı bir excel dosyam var. Birinci sayfası ana sayfa ve bu sayfada diğer sayfalara link verilmiş. Ben sadece ana sayfanın görünür olmasını, linklere basılınca gizlenmiş olan sayfanın görünmesini istiyorum. Ancak sağ tıkla--gizle yapınca ana sayfadaki linke tıklamakla sayfa açılmıyor, illa ki görünür olması gerekiyor. İstediğim şekilde sayfaları gizleyip linke tıklayınca görünmesini sağlayabilir miyim acaba?
Şimdiden teşekkürler

merhabalar. aynı şekilde bir sorunum var. yukarıdaki gibi her sayfaya makro butonu ile değilde; sadece ana sayfa açıkken köprüye tıkladığında istenilen sayfayı açıp gidecek sayfadan ana sayfaya döndüğünde sayfayı gizleyecek bir yol varmıdır acaba. şimdiden teşekkürler...

 

[çıtır]

Dosya ilk açıkdığında İlk sayfada A2 hücresinden itibaren link oluşturur.Her sayfanın A1 hücresinde geri dönüş linki oluşturur.Ana sayfa hariç sayfaları gizler. Linklere tıklandığında sayfalar açılır ve sayfalara gidilir.Dönüş linkine tıklandığında sayfa gizlenir.
Kitap kodu.

Private Sub Workbook_Open()
   Dim i As Integer, sat As Integer, sut As String
    sut = "A"
     sat = 2
     Range(sut & sat + Sheets.Count - 1 & ":" & sut & sat + Sheets.Count - 1).ClearContents
For i = 1 To Worksheets.Count
        Sheets(1).Cells(sat, sut).Hyperlinks.Add Anchor:=Sheets(1).Cells(sat, sut), Address:="", SubAddress:= _
       Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
If Sheets(i).Name <> Sheets(1).Name Then
        Sheets(i).Cells(1, sut).Hyperlinks.Add Anchor:=Sheets(i).Cells(1, sut), Address:="", SubAddress:= _
        Sheets(1).Name & "!A1", TextToDisplay:=Sheets(1).Name
  Sheets(i).Visible = xlSheetHidden
End If
sat = sat + 1
Next i
End Sub

Ana sayfa kodu(İlk sayfa kodu) olarak kopyalayınız.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
For i = 2 To Worksheets.Count
Sheets(i).Visible = False
Next i
End Sub

 

[spacebar]

üstad ilgilendiğiniz için teşekkür ederim. ama sanırım yapamadım. örnek bir dosya yükledim. nerede hata yaptığımı bulamadım. çok sayfalı çalışmalarda çok işime yarayacak. ilgilenirseniz sevinirim.

 

[çıtır]

Kodları modüle kopyalama hatası yapmışsınız.
ilk kod kitap kodu yazan kodu.
(Kitap kodu.)
Geliştirici sekmesinde,Visual basic tıklayınız.Soldaki kitap ve sayfa seçeneklerinden.BuÇalışmaKitabı çift tıkla ve sağ boşluğa kopyalayınız.
Aşağıdaki Sayfa1(Anasayfa çift tıkla) sağ alana.
Ana sayfa kodu(İlk sayfa kodu) olarak kopyalayınız.
denen kodları kopyalayınız.
Sayfayı kayıt edip kapatınız tekrar açınız.
Listelemeyi A sütununa yapar.Değiştirmek isterseniz.
ilk koddaki sut= "N" şeklin yazınız.

 

[spacebar]

üstad harika olmuş. ellerinize sağlık. bütün çalışmalarımda kullanacağım. çok teşekkür ederim.

 

[spacebar]

üstad yalnız ana sayfadaki bilgileri siliyor. bunu nasıl engelleyebiliriz.

 

[çıtır]

Rica ederim .Dönüş yaptığınız için teşekkür ederim.

 

[çıtır]

Sat =2 yazan alandan sonraki kodu değiştirmeyi unutmuşum.Düzeltim.Siz önçeki silip aşağıdaki ifadeyi kopyalayınız.Sadece link yazılan alanlar silinir değiştirilir.

Range(sut & sat + Sheets.Count - 1 & ":" & sut & sat + Sheets.Count - 1).ClearContents

 

[spacebar]

tamam üstadım. çok teşekkür ederim.

 

[çıtır]

tamam üstadım. çok teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.