İstenilen Sayfadaki İstenilen H?creye Gitme Vba

Merhaba arkadaşlar;
?rnek olması a?ısından eke dosyayı ekliyorum.
bu dosyada ANASAYFA isimli sayfamızda [B2:B24] arasında sayfa isimlerimiz mevcut. Bu sayfa isimlerinden gitmek istediğimiz sayfa hangisi ise ona DoubleClick yaptığımızda o sayfaya gidiyor. Eğer o sayfa yoksa MsgBox "BELİRTİLEN SAYFA BULUNAMADI!", vbExclamation, "Hata" mesajı vermektedir. Bunu personelci arkadaşlar dosyalarında kullanabilirler Anasayfa'da Personel isimlerinin yazılı olduğunu d?ş?n?rsek ve Personellerin kendi sayfalarının olduğunu d?ş?n?rsek kolayca ilgili sayfaya gitmek i?in kullanışlı bir dosya olduğunu d?ş?n?yorum.

Aşağıdaki kodu ANASAYFA' nın kod mod?l?ne yapıştırınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim wsName As String
    Dim ws As Worksheet
    Dim sheetExists As Boolean
    
    ' Hedef h?crenin B2 ile B24 aralığında olup olmadığını kontrol edin
    If Intersect(Target, Me.Range("B2:B24")) Is Nothing Then Exit Sub
    
    ' Hedef h?credeki sayfa adını alın
    wsName = Target.Value
    
    ' Belirtilen sayfanın varlığını kontrol edin
    sheetExists = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = wsName Then
            sheetExists = True
            Exit For
        End If
    Next ws
    
    ' Sayfa varsa a?ın, yoksa hata mesajı g?sterin
    If sheetExists Then
        ThisWorkbook.Sheets(wsName).Activate
    Else
        MsgBox "BELİRTİLEN SAYFA BULUNAMADI!", vbExclamation, "Hata"
    End If
End Sub