Çözüldü Metin Kutusuna Tıklayarak Sayfa Değiştirme

[md3m1ray]

Merhaba,

Değerlerini belirtilen hücrelerden alan metin kutuları mevcut ve bu kutulara tıklanınca içinde yazan değerle aynı isimde olan sayfaya gitmesini istiyorum.

Örnek dosya yüklenmiştir.

Not: Eğer bu metin kutusuna uygun değilse başka şekil kullanımı için önerilerinize uyarım.

Teşekkürler.

 

[muygun]

Merhaba;
A sütununda sayfa adlarına çift tıklayarak deneyin.
Dosyada sayfa mevcut ise sayfaya gidecektir.
İyi çalışmalar.

 

[md3m1ray]

Merhaba;
A sütununda sayfa adlarına çift tıklayarak deneyin.
Dosyada sayfa mevcut ise sayfaya gidecektir.
İyi çalışmalar.

bu kodlar için teşekkürler başka bir projemde işe yarayacaktır.
Ancak benim istediğim hücreye tıklayınca değil hücrenin bağlı olduğu şekillerde veya metin kutularında tıklama olunca gitmesi

 

[md3m1ray]

merhaba. konu günceldir yardımlarınızı, tavsiyelerinizi rica ederim

 

[md3m1ray]

merhaba. konu günceldir yardımlarınızı, tavsiyelerinizi rica ederim

 

[md3m1ray]

muygun beyden ve başka konulardaki arkadaşların cevaplarından ilham alarak bu kodları denedim ve istediğim oldu belki başkasının da işine yarar:

Function SayfaVarMi(Sayfa As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function

Private Sub Textbox1_GotFocus()
On Error Resume Next

    Dim Sayfa As String
    Sayfa = Worksheets("Sayfa1").Textbox1.Value
    
    If SayfaVarMi(Sayfa) Then
        Range("A1").Select
        Sheets(Sayfa).Select
    Else
        MsgBox Sayfa & " İsimli Sayfa Yok", vbCritical
    End If
    
End Sub