B Sütununda Yazılı Olanlara Tıklayıp Sayfasına Gitmek

[htsumer]

B Sütununda yüzlerce isim var ve bu isimlere ait açılmış sayfalar var. Kişi bu isimlere tıkladığında o sayfasına gitmesi için koda ihtiyacım var.
B Sütuna isimler zamanlae eklenebilir..

 

[kulomer46]

Aşağıdaki kod işinize yarar.. Selamlar...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 2 Then
For i = 1 To Worksheets.Count

If Target.Value = Worksheets(i).Name Then
Worksheets(i).Select
GoTo atla1
End If

Next
End If

atla1:

End Sub

 

[askm]

B2 den itibaren çift tıklama ile çalışacak makro kodu.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B2:B65536")) Is Nothing Then Exit Sub
If Target.Value <> Empty Then Sheets(Target.Value).Select
End Sub

 

[htsumer]

Çok teşekkür ederim iki kod da çalıştı çakışmaları kontrol edeceğim selamlar.