köprü sorunu

[e-seyyah]

Merhaba
ekli dosyada firmalar ve bunlara yapılan ödemeler listesi ve genel toplam sayfasında da firma adları ve ödeme toplamları var
bütün sayfalarda, sayfadaki c1 hücresini değiştirince sayfa adının da değişmesini sağlayan şu kod var (koddan anlamam, kopyala-yapıştır yaptım):
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
If ActiveSheet.Name <> [C1] Then
ActiveSheet.Name = [C1]
End If
End Sub

sorun şu:
genel toplam sayfasından ilgili firma sayfasına köprü kuruyorum ancak, ilgili firmanın c1 hücresini değiştirdiğim zaman ana sayfadan köprüye tıklayınca hata veriyor, ve çalışmayı kaydettiğim zaman köprünün hücre başvurusu a1 hücresi olarak otomatik değişiyor
rica etsem yardımcı olur musunuz.

 

[kemal turan]

Merhaba,
Çözümlü dosyanız ektedir.
Köprü yapmanıza gerek yok.hücreye çift tıklmanız yeterli.
Bu çalışma ustadlarımzın emeğidir.Sizin adınıza biraz araştırdım ve buldum.
Sonraki sorununuzda sizinde bu şekilde çözüme ulaşmanızı tavsiye ederim.
Selametle kalın.

 

[kemal turan]

Bu örnek ise ;
Tek tıklama ile köprü gerçekleşiyor ayrıca anasayfa köprüsü de makro.
Kolay gelsin

 

[leylaz]

Kemal Bey yukarıdaki dosyadaki vb kodunda tek tıklayınca ilgili sayfaya köprü yapıyor. Bunun çift tıklamada çalışmasını sağlamak için nasıl değişiklik yapmalıyız?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [a1:a10000]) Is Nothing Then
Sheets(Target.Value).Select
End If
End Sub

 

[kemal turan]

2 nolu mesaj dosyası çift tıklama özelliğindedir.
Selametle kalın