Hücre Adına Göre Köprü

[civil.engineer]

Arkadaşlar merhaba

Epey bir formül denedim ama uygulayamadım.

Excelimde 200 sayfa var.
Her sayfanın A1 hücresinde sayfa adı var : "Rapor-1" şeklinde. Rapor-1 gibi. Bu aynı zamanda sekmenin de adı.
Başka bir sayfamda ("özet sayfası"adında), A sütununda, diğer sayfaların A1 hücresinden bu sayfaların adını çekiyorum. Yani

a1 hücresi : rapor-1
a2 hücresi : rapor-2

şeklinde

Sorum şu, A sütununa veya bağımsız bir B sütuna öyle birşey yapmalıyım ki tıklayınca o sayfaya gitsin.


İkinci sorum, 200 sayfaya tek seferde köprü içeren bir hücre eklemek istiyorum, bunlarda tıklayınca özet sayfama gelecek.

yardımlarınız için teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sayfa isimlerinin yazdığı sayfa adını sağ tıklatıp "Kod Görüntüle" seçin açılan sayfaya aşağıdaki kodu kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim syf As Worksheet
    If Not Intersect(Target, Range("A:A")) Is Nothing And Not Target.Text = "" And Target.Cells.Count = 1 Then
        For Each syf In ThisWorkbook.Worksheets
            If syf.Name = Target.Text Then
                Worksheets(Target.Text).Activate
                Exit Sub
            End If
        Next
        MsgBox "'" & Target.Text & "' isimli sayfa bulunamıyor."
    End If
End Sub

Kodlar A sütununda yazan sayfa adını tıklatınca(seçince) o sayfayı açar.
Sayfa isimlerini başka bir kolona ayarlamak için Range("A:A") kısmını değiştirmeniz yeterli

 

[asimavi50]

Ekteki dosyayı inceleyebilirsiniz, uyarlama yapabilirsiniz. Yapamaz iseniz yardımcı olurum. Formül ile de köprü yapılabilir...

 

[civil.engineer]

Merhaba.

Sayfa isimlerinin yazdığı sayfa adını sağ tıklatıp "Kod Görüntüle" seçin açılan sayfaya aşağıdaki kodu kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim syf As Worksheet
    If Not Intersect(Target, Range("A:A")) Is Nothing And Not Target.Text = "" And Target.Cells.Count = 1 Then
        For Each syf In ThisWorkbook.Worksheets
            If syf.Name = Target.Text Then
                Worksheets(Target.Text).Activate
                Exit Sub
            End If
        Next
    End If
    MsgBox "'" & Target.Text & "' isimli sayfa bulunamıyor."
End Sub

Kodlar A sütununda yazan sayfa adını tıklatınca(seçince) o sayfayı açar.
Sayfa isimlerini başka bir kolona ayarlamak için Range("A:A") kısmını değiştirmeniz yeterli

hocam teşekkürler.

bunu yazdıgımda sadece A sütunu değil tüm sutunlarda hangi hücreye tıklasam çalışıyor. Bunu nasıl düzeltiriz.

Bir de ilk sorumda aslında hatalı yazdıgım birşeyi farkettim. Sekme adı "rapor-1" fakat sayfalarda "Rapor:1" şeklinde yazıyor. O nedenle özet sayfamada Rapor:1 şeklinde geliyor bu nedenle sizin formül çalışmadı. Nasıl birşey yapabiliriz? Ben hemen yanına sekme adlarının yazdıgı bir sütun oluştururum buna tıklayınca o sekmeye gitmesini sağlayabiliriz.

 

[Muzaffer Ali]

Yukarıdaki kodu düzelttim şimdi yeniden deneyin.

 

[civil.engineer]

Ekteki dosyayı inceleyebilirsiniz, uyarlama yapabilirsiniz. Yapamaz iseniz yardımcı olurum. Formül ile de köprü yapılabilir...

hocam merhaba

200 sayfa oldugu için birine yapınca, aşağı sürükleyip hepsinde çalışacak birşey olmalı. köprü ekleme ile yapamadım bunu

 

[civil.engineer]

Yukarıdaki kodu düzelttim şimdi yeniden deneyin.

Yukarıdaki kodu düzelttim şimdi yeniden deneyin.

hocam selamlar

çalıştı saolun, fakat yine sadece a:a değil nereye tıklasam uyarıyor

 

[Muzaffer Ali]

A sütunundan başka yerde çalışması imkansız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim syf As Worksheet
    If Not Intersect(Target, Range("A:A")) Is Nothing And Not Target.Text = "" And Target.Cells.Count = 1 Then
        For Each syf In ThisWorkbook.Worksheets
            If syf.Name = Target.Text Then
                Worksheets(Target.Text).Activate
                Exit Sub
            End If
        Next
        MsgBox "'" & Target.Text & "' isimli sayfa bulunamıyor."
    End If
End Sub

 

[Turgay KARAŞAH]

syn; dalgalıkur.
kod kapyalanamıyor. yardımınızı rica etsem.

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/sayfa-cogaltma-ve-icindekiler/

.

 

[Muzaffer Ali]

Dosya ekte

https://s4.dosya.tc/server7/ugzole/civil.engineer.xlsm.html

 

[Turgay KARAŞAH]

işlem tamam teşekkürler