PHP Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
' Eðer týklanan hücre A sütunundaysa
If Target.Column = 1 Then
' Belirtilen sayfa adýna sahip bir sayfa var mý kontrol et
On Error Resume Next
Set ws = Sheets(Target.Value)
On Error GoTo 0
' Sayfa varsa ilgili sayfaya git
If Not ws Is Nothing Then ws.Select
End If
If Target.Column = 2 Then
' Belirtilen sayfa adýna sahip bir sayfa var mý kontrol et
On Error Resume Next
Set ws = Sheets(Range("A" & Target.Row).Value)
On Error GoTo 0
Dim bul As Range
Set bul = ws.Cells.Find(Target.Value2, , , , 1)
If Not bul Is Nothing Then
If Not ws Is Nothing Then ws.Select
bul.Activate
End If
' Sayfa varsa ilgili sayfaya git
Set bul = Nothing
End If
End Sub