DEĞİŞKENLİ HÜCREYE KÖPRÜ KURMAK - İSTEK

Katılım
29 Aralık 2017
Mesajlar
50
Excel Vers. ve Dili
Excel başlangıç
Merhaba arkadaşlar herkese iyi günler diliyorum. Bilgisi olan arkadaşlardan yardım talebim vardır. Ekte bir boş sayılacak excel dosyası ekledim. Bu dosyada Sayfa 1 ana sayfa olacak şekilde, sayfa 2, sayfa 3 ... devamlı artacak şekilde sayfalarımız bulunmaktadır. (bu sayfaların isimleri farklı olacaktır ana dosyamda) Sayfa 1 ana sayfada A sütunundaki her hücreye farklı sayılar, isimler vb şeyler yazacam. A sütunu sabit olacak ancak hücreler daima değişecek, yani sayılar veya isimler. Bu sayılar veya isimler aslında diğer sayfaların sayfa adı olacak. Örneğin; sayfa 5'in ismi 2018-258, ben ana sayfamda A sütununda herhangi bir hücreye 2018-258 yazdığımda buna tıkladığımda beni sayfa 5'e yani 2018-258 isimli sayfaya atabilir mi? Normal köprüleme yapmaya çalıştığımda hücredekilerin sabit kalması gerekiyor ancak bu değişkenli olduğundan böyle bir şey mümkün müdür? Saygılarımla.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Dosyanız ekte. Kodlardaki açıklamaları okuyunuz.
 

Ekli dosyalar

Katılım
29 Aralık 2017
Mesajlar
50
Excel Vers. ve Dili
Excel başlangıç
Merhaba.

Dosyanız ekte. Kodlardaki açıklamaları okuyunuz.
Sayın dalgalikur; vaktinizi ayırdığınız için çok teşekkür ediyorum. Ancak şahsi bir hatamdan dolayı, konu başlığından da anlaşılacağı gibi açıklamasını yaptığım ancak ekine farklı dosyayı yüklediğimi farkettim. Çok özür diliyorum. Ek listeyi güncelledim, köprü.xlsx şeklinde doğru olanını ekledim. İlgilenirseniz çok sevinirim.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Eklediğim dosyadaki kodları bu dosyanız için de kullanabilirsiniz.
Kod:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Dim Syf As Worksheet
    If Sh.Name = "NÖBET LİSTESİ" Then Exit Sub 'NÖBET LİSTESİ sayfasında A sutununa çift tıklayınca kodlar çalışmaz.
    On Error Resume Next
    Worksheets(Target.Text).Select
    'Eğer "Busayfa bulunamadı" mesajı vermesini istemiyorsanız kodların buradan sonrasını silin.
    If Err.Number = 9 Then
        MsgBox "Busayfa bulunamadı"
    End If
End Sub
Bu kodu dosyanızın "BuÇalışmaKitabı" adlı kod sayfasına kopyalayın. sorun yok bunda da çalışır.
 
Katılım
29 Aralık 2017
Mesajlar
50
Excel Vers. ve Dili
Excel başlangıç
Eklediğim dosyadaki kodları bu dosyanız için de kullanabilirsiniz.
Kod:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Dim Syf As Worksheet
    If Sh.Name = "NÖBET LİSTESİ" Then Exit Sub 'NÖBET LİSTESİ sayfasında A sutununa çift tıklayınca kodlar çalışmaz.
    On Error Resume Next
    Worksheets(Target.Text).Select
    'Eğer "Busayfa bulunamadı" mesajı vermesini istemiyorsanız kodların buradan sonrasını silin.
    If Err.Number = 9 Then
        MsgBox "Busayfa bulunamadı"
    End If
End Sub
Bu kodu dosyanızın "BuÇalışmaKitabı" adlı kod sayfasına kopyalayın. sorun yok bunda da çalışır.
Sayın dalgalikur; çok teşekkür ediyorum. Emeğinize, elinize sağlık. Allah razı olsun.
 
Üst