Çalışma kitabı ile aynı adı paylaşan sayfaya geç

[simetri.]

Merhabalar.

Butona tıkladığım zaman kitap ile aynı ada sahip sayfa var ise

o sayfaya geçiş yapacak kod gerekli değerli arkadaşlar.

Çalışma kitabımızın adı Türkiye olsun

eğer Türkiye adlı bir sayfa var ise

hangi sayfada olur isek olalım Türkiye sayfasına geçiş yapacağız

yardımlarınızı bekliyorum. Teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Git()
 
    Dim d, uzantı As String, dosyaAdı As String
 
    With ActiveWorkbook
        d = Split(.Name, ".")
        uzantı = d(UBound(d))
        dosyaAdı = Left(.Name, Len(.Name) - Len(uzantı) - 1)
    End With
 
    On Error GoTo atla
    Sheets("" & dosyaAdı & "").Select
 
    Exit Sub
atla:
    MsgBox dosyaAdı & " Adlı Sayfa Yok"
 
End Sub

.

 

[simetri.]

Çok teşekkür ederim.

Ellerinize sağlık Ömer hocam.