• DİKKAT

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

İsmi değişen sayfalardan veri alma

Katılım
21 Eylül 2012
Mesajlar
26
Excel Vers. ve Dili
2010
sayfa1 e köprü ile safa2 ve sayfa3...50 den veri alıyorum.
sayfaların ismi değişince köprü devre dışı kalıyor.
Bende 50 sayfalık veri var ve isimlerini değiştirmem gerekiyor ve sürekli köprüyü yeniliyorum.
bunu nasıl halledebilirim ,BAŞKA BİR YÖNTEMİ VARMIDIR
SAYGILAR.
 
Son düzenleme:
Merhaba Sayın
yolgezen
Örnek Dosya Eklerseniz
Daha Hızlı Ve Net Bir Yanıt Alabilirsiniz.
 
Dosya ektedir, deneyin...

Kod:
Sub Refresh_Links()
    Dim s As Worksheet
    
    For Each s In ThisWorkbook.Worksheets
        If s.CodeName <> "Sayfa43" Then
            c = c + 1
            Sayfa43.Hyperlinks.Add _
                Sayfa43.Cells(c + 2, "a"), _
                "", _
                "'" & s.Name & "'!A1", _
                "Sayfayı açmak için tıklayın", _
                s.Name
        End If
    Next
End Sub
 

Ekli dosyalar

çok teşekkür ederim zeki bey
 
Geri
Üst