Farklı excel dosyaların aynı verilerini listeleme

[mrtyzc]

farklı excel dosyalarının sabit isimli iki sayfasından sabit 3-5 adet verisini listelendirmek istiyorum. excel dosyasını seçtiğim zaman bana böyle bir liste vermesi mümkün mü
excel dosya isimleri değişik ama veri almak istediğim iç sayfaların isimleri

HAKEDİŞ RAPORU (sayfa adı)
I2 (bağlantı yapmak istediğim hücre adları)
I3
E10


KAPAK (sayfa adı)
J11 (bağlantı yapmak istediğim hücre adları)
J26
J49

adında iki sheet

yardımlarınız için şimdiden teşekkür ederim

 

[Orion1]

Örnek dosyalarınızı ekleyiniz.

 

[mrtyzc]

https://yadi.sk/i/T66kFc9vuyQ8U

kırmızı ile işaretledim bağlantı yapmak istediğim yerleri

dosya adı değişken dosya uzantısı xlsm

 

[Orion1]

Bu çalışma kitabı modülünde kodlar yazılı.
Ben her 2 sayfa içinde 1er tane veri aldım.
R11C10 satır 11 kolon 10 dur.
Buna göre diğer kodlarıda siz yazınız.
Her 2 dosyada ayni klasör içinde olmalıdır.
Dosya linktedir.

DOSYAYI İNDİR

Private Sub Workbook_Activate()
Range("B2").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[01-Taslak1.xlsm]HAKEDİŞ RAPORU'!R2C9")
Range("D2").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[01-Taslak1.xlsm]Kapak'!R11C10")
End Sub