Otomatik Köprü Oluşturma-Hücreden Hücreye

[emre67z]

Merhaba, Özet sayfasında bulunan sicil numarasına tıklandığında "Genel Veri" sayfasındaki aynı sicill numarasına sahip kişiye otomatik köprü kurmak mümkün müdür? Fazlaca veri olduğundan el ile kurmada zorluk yaşıyorum. yardımcı olan arkadaşlara şimdiden teşekkür ederim.

Örnek çalışma taslak şeklinde hazırlanmıştır.

 

[Ziynettin]

Özet sayfası kod alanına

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim s1 As Worksheet
Set s1 = Sheets("Genel Veri")
son = s1.Range("G" & Rows.Count).End(3).Row
If son > 0 Then
    If Target.Column = 2 And Target.Count = 1 And Target.Row > 1 Then
        If Target <> "" Then
            Cancel = True
            deg = Target.Value
            On Error Resume Next
            sat = s1.Range("G1:G" & son).Find(deg, , , , xlByRows, xlNext).Row
            If Err = 0 Then
                s1.Select
                s1.Cells(sat, 7).Select
            Else
                MsgBox "Seçim bulunamadı.", vbCritical
            End If
            On Error GoTo 0
        End If
    End If
End If
End Sub

 

[TUNCA ERSİN]

Sy. @Ziynettin ;
Hocam aynı sayfa içinde B sütunda isimler yazıyor G1 sütunundan ADD1 sütununda aynı isimler yazıyor. buna nasıl otomatik köprü yaparız.