• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Köprü bulunan ana sayfa haricindeki sayfaları gizleme

  • Konbuyu başlatan Konbuyu başlatan evlek
  • Başlangıç tarihi Başlangıç tarihi
E

evlek

Katılım
3 Şubat 2011
Mesajlar
38
Excel Vers. ve Dili
2007 türkçe
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
 
evlek' Alıntı:
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
Genişletmek için tıkla ...
Merhaba
Eki İnceleyin fikir vermesi açısından faydalı olabilir
 

Ekli dosyalar

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
 
Merhaba
ALT F11 basara VBA kısmına giriniz,kodları göreceksiniz.
 
evlek' Alıntı:
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
Genişletmek için tıkla ...

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...
 
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.
Kod: 
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.

Kod: 
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
 
Son düzenleme:
ü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.
 

Ekli dosyalar

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.
 
üstad harika olmuş. ellerinize sağlık. bütün çalışmalarımda kullanacağım. çok teşekkür ederim.
 
üstad yalnız ana sayfadaki bilgileri siliyor. bunu nasıl engelleyebiliriz.
 
Rica ederim .Dönüş yaptığınız için teşekkür ederim.
 
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.
Kod: 
Range(sut & sat + Sheets.Count - 1 & ":" & sut & sat + Sheets.Count - 1).ClearContents
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst