çok sayfalı excel dosyasında çift tıklama ile ana sayfaya gitme

[u.L.a.s]

100 sayfalı bir excel dosyam var.
en başta olan sayfamın ismi Ana Dosya
ben x bir sayfada işlem yaptıktan sonra Ana Dosya sayfasına gitmek için bulunduğum x sayfasındaki A1 hücresine çift tıklayadığımda bu Ana Dosya sayfasına gitsin istiyorum. ama bu işlemi her sayfada yapsın istiyorum. 100. sayfadayken de a1 e çift tıklayınca Ana Dosyaya gitsin 5. sayfadaykende.

bilgi ve yardımınızı rica ederim

 

[Necdet]

Merhaba,

Aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayıp deneyiniz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    
    If ActiveSheet.Name <> "Ana Dosya" Then Sheets("Ana Dosya").Select
    
End Sub

 

[Erdal]

Merhabalar
Makrosuz alternatifte benden olsun. Yalnız çift tıklama ile değil tek tıklama ile…
- Ana dosya haricindeki bir sayfanın A1 hücresine tıklayarak Ana sayfaya köprü ekleyin
-Bu hücreyi (A1) hücresini kopyalayın.
-Ana sayfa ve bulunduğunuz sayfa haricindeki tüm sayfaları seçin. (shift tuşu ile)
-Seçtiğiniz sayfaların herhangi birinin A1 hücresine tümünü yapıştır diyin.

 

[u.L.a.s]

üstadım çok teşekkür ederim.
bir şey daha sormak isterim.

Ana Dosyam içerisinde A4 ten A100 e kadar her hücrede diğer sayfaların isimleri var
tabi kişi isimleri bunlar
örneğin
A4 te Adem Badem
A5 te Ali Veli
A6 da Bayram Seyran

ve her hücredeki isme görede sayfa ismi var.

ben Adem Badem yazan hücreye tıklayınca Adem Badem hücresine gitsin istiyorum
Ana Dosya da A100 hücresinde Selma Elma var mesela buna tıklayınca da Selma Elma Sayfasına gitsin istiyorum

bilgi ve yardımını rica ederim

 

[u.L.a.s]

tab, bunu hyperlink yaparak yapmak istemiyorum. tektek uğraştırır bu. bir makro kod ile yapılabiliyorsa o kodla olsun istiyorum

 

[Necdet]

Merhaba,
Neden taksit taksit soruyorsunuz ki?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    If ActiveSheet.Name = "Ana Dosya" Then
        If Intersect(Target, Range("A4:A" & Cells(Rows.Count, "A").End(3).Row)) Is Nothing Then Exit Sub
        If Target.Value <> "" Then Sheets(Target.Value).Select
    Else
        Sheets("Ana Dosya").Select
    End If
    
End Sub

 

[u.L.a.s]

bu soru önceden yoktu sonradan aklıma bu geldi kusura bakmayın nolur

bu koduda this workbook kod sayfasınamı yazacağım acaba

zira diğer kodla çakışıyor sanırım. ilk kod çalışıyor ama bu sayfa adına göre gitme kodu çalışmıyor.

İlk kod ana dosya ya gitme kodunu pasif bırakıorum o zaman hücrede yazan veriye göre sayfaya gitme kodu çalışıyor bu durumd

 

[Necdet]

Sadece şaka yaptım.
Tabi ki buçalışmakitabı'nın kod sayfasına kopyalayacaksınız, eskisi silinecek, doğal olarak.

 

[u.L.a.s]

çok teşekkür ederim üstadım emeğine bilgine sağlık