Bağ Yapıştır Otomotik Köprü Kurara mı?

[bendiler]

Sayfanın kendi içinde yada diğer sayfalardan kopyaladığımız hücreyi bağ yapıştır olarak yaptığımızda, bağ yapıştırılan hücreye tıkladığımızda direk verinin geldiği yere gidebilir mi?
Teşekkürler...

 

[hamitcan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim strSheet As String
   'On Error Resume Next
   If InStr(1, Target.Formula, "!") Then
       If InStr(1, Target.Formula, "'") Then
           strSheet = Mid(Replace(Target.Formula, "'", ""), 2, InStr(1, Target.Formula, "!") - 4)
       Else
           strSheet = Mid(Target.Formula, 2, InStr(1, Target.Formula, "!") - 2)
       End If
       Sheets(strSheet).Activate
       ActiveSheet.Range(CStr(Right(Target.Formula, Len(Target.Formula) - InStr(1, Target.Formula, "!")))).Select
   End If


End Sub

Kaynak:http://en.allexperts.com/q/Excel-1059/2008/3/reference-double-click.htm

 

[bendiler]

sn hamitcan;
Teşekkür Ederim...