Otomatik link oluşturma

[bayararda]

Merhabalar,
bir excel dosyamda iki tane sekme var.
İlk sekmede bir isim listesi mevcut.
İkinci sekmede bu isimlere ait bazı bilgiler (ilk satırda isimleri altında da bazen 5 kalem bazen 6 kalem gelire ait sayılar olmak üzere toplam 10 kişinin toplam 50-60 satır bilgisi) mevcut.
Bu ilk sekmedeki isim listesinde bir ismin üstüne tıkladığımda ikinci sekmedeki ilgili isime ekranın gitmesini istiyorum.
Yani yapmaya çalıştığım şey ilk sekmedeki isimlerden bir şekilde ikinci sekmedeki isimlere otomatik olarak link oluşturma.

 

[Erdal]

Merhabalar,
bir excel dosyamda iki tane sekme var.
İlk sekmede bir isim listesi mevcut.
İkinci sekmede bu isimlere ait bazı bilgiler (ilk satırda isimleri altında da bazen 5 kalem bazen 6 kalem gelire ait sayılar olmak üzere toplam 10 kişinin toplam 50-60 satır bilgisi) mevcut.
Bu ilk sekmedeki isim listesinde bir ismin üstüne tıkladığımda ikinci sekmedeki ilgili isime ekranın gitmesini istiyorum.
Yani yapmaya çalıştığım şey ilk sekmedeki isimlerden bir şekilde ikinci sekmedeki isimlere otomatik olarak link oluşturma.

Merhabalar eki inceleyiniz.

İndir Kitap1

Dosyayı indir Kitap1

dosya.co

 

[Muzaffer Ali]

Alternatif.

Aşağıdaki kodu Sayfa1 in kod kısmına kopyalayın.
Sayfa1 A sütununda herhangi bir hücreyi çift tıkladığınızda Sayfa2 A sütununda arar bulduğu hücreyi seçer. Link değil ama link gibi çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Bul As Range
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Set Bul = Worksheets("Sayfa2").Range("A:A").Find(what:=Target.Text, lookat:=xlWhole)
        If Bul Is Nothing Then
            MsgBox "diğer sayfada bulunmadı"
        Else
            Worksheets("Sayfa2").Select
            Bul.Select
        End If
    End If
End Sub