Dosyalara Köprü Oluşturma.!!!!

[sinan05]

İyi günler Sayın Hocalarım,
Bir konuda yardımınızı rica ediyorum .Aşağıya eklemiş olduğum çalışma kitabımda makro, klasördeki dosyaların, makroda ki koşula uygun olan sayfalarıdan veri getiriyor. Benim olmasını istediğim verileri getirdiği çalışma kitabımdaki sayfanın a hücrelerine veriyi aldığı sayfalara köprü oluştursun. Yardımlarınız için şimdiden teşekkür ederim.

Örnek dosya : https://s4.dosya.tc/server14/x1iqy4/Desktop.rar.html

 

[sinan05]

Çözümü deneyerek aşağıdaki kodlarla buldum.Teşekkürler.

x = S1.Cells(Rows.Count, "A").End(3).Row + 1
Ad = Dosyam.Name
Ad1 = Dosyam.Sheets(i).Name
S1.Hyperlinks.Add Anchor:=S1.Cells(x, "A"), Address:= _
"ARAÇ KAYITLARI\" & Ad, SubAddress:="'" & Ad1 & "'!A1", TextToDisplay:=Dosyam.Sheets(i).Range("H8").Value