• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
7 Ekim 2013
Mesajlar
169
Excel Vers. ve Dili
2003 TR
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.
 
Merhaba,

Bu şekilde deneyin.

Kod:
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

.
 
Çok teşekkür ederim.

Ellerinize sağlık Ömer hocam.
 
Geri
Üst