Soru Makro ile Farklı Sayfadan Veri Çekme

[Umut_Ccaann]

Merhaba arkadaşlar, bir makro ile hücreye farklı bir sayfadan veri çeken bir formül yazdırıyorum ancak dosya ismi değiştiği zaman sayfanın ismi de değişiyor ve makronun düzgün bir şekilde çalışması için dosya isminin sabit olması gerekiyor. Bu makroyu farklı dosya ve farklı sayfa isimlerinde çalışacak şekilde nasıl yazabilirim?

    Range("C3").Select
    ActiveCell.FormulaR1C1 = "Toplam Giriş"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(KonaklayanlarınListesi!C[3],Sayfa1!RC[-2])"
    Range("C4").Select
    SonSatir_pvt = ActiveSheet.Range("a65536").End(3).Row
    Selection.AutoFill Destination:=Range(Cells(4, 3), Cells(SonSatir_pvt - 1, 3)), Type:=xlFillDefault

Burada dosyamın ismi ve sayfamın ismi "KonaklayanlarınListesi". Makro KonaklayanlarınListesi sayfasında bulunan tablodan bir Pivot Tablosu oluşturuyor ve bu pivot tablosunu "Sayfa1" adındaki sayfaya yerleştiriyor. Yukarıda vermiş olduğum kod ise pivot tablosundan ve konaklayanların listesi sayfasında bulunan tablodan veri çekiyor. Dosyanın ismi değiştiği zaman makro çalışmıyor ve dosya gezginini açıyor. Bu makroyu dosyanın isminden bağımsız bir şekilde nasıl çalıştıra bilirim?

 

[Korhan Ayhan]

Merhaba,

Bunun için şöyle birsey yapabilirsiniz.

İlgili adı değişen raporu bir klasöre alırsınız. Sonra sizin kodların en başına bu klasordeki dosyanın adını DIR komutunu kullanarak bulacak kodları yerleştirirsiniz. Böylece değişken dosya adı sorunundan kurtulabilirsiniz. Forumda bununla ilgili bolca örnek var. Arama yaparsanız ulaşabilirsiniz.