Hücreye yazılan sayfa ismine köprü.?

[ZİNDAN]

Arkadaşlar bi konuda yardımınıza ihtiyacım var.
Ekteki dosyadan da anlaşılacağı üzere, Sayfa1 deki B sütünunda yazan diğer sayfa isimleri otomatik olarak köprü oluştursun istiyorum.Hücreye tıkladığında o sayfaya gitsin istiyorum.


Yardım ederseniz sevinirim.Teeşekkürler.
Kolay gelsin.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error GoTo Son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    Cancel = True
    Sheets(Target.Text).Select: Exit Sub
Son:
    MsgBox "Sayfa bulunamadı !", vbCritical, "Dikkat !"
End Sub

 

[ZİNDAN]

Süper.Tek kelime ile.
Teşekkürler sayın Korhan Ayhan.

 

[tahsinanarat]

Başka bir altarnatif

Sub Tabellennamen_auflisten()
Dim i As Integer
Dim myRange As Range
Set myRange = ActiveCell
myRange.Resize(Worksheets.Count).Select
If (MsgBox("UYARI: Sayfalara köprü oluşturulacak... !" & vbCrLf & _
Chr(13) & " Emin misin ?", vbYesNo)) _
<> vbYes Then Exit Sub
For i = 1 To Worksheets.Count
With myRange.Cells(i)
.Value = Worksheets(i).Name
.Hyperlinks.Add _
Anchor:=myRange.Cells(i), _
Address:="", _
SubAddress:=.Value & "!" & .Address, _
ScreenTip:="Blatt (" & .Value & ")", _
TextToDisplay:=.Value
End With
Next i
myRange.Select
MsgBox (" Toplam ") & ThisWorkbook.Worksheets.Count & _
(" &#199;al&#305;&#351;ma sayfas&#305;na k&#246;pr&#252; olu&#351;turuldu"), vbOKOnly, ThisWorkbook.Name
End Sub