bir hücreden alacağım dosya adı sayesinde, nasıl linkleme yapılır?

[ouzan83]

Ana kitabımın içinden belli bir hücreden dosya ismi almak istiyorum.
Örneğin;
A1 de Ali Çoban adlı bir kişi olsun;Bu değeri okutup
A2 ye Ali Çoban.xls kitabının A3 ünü nasıl linklerim.
Ana kitap ile kişilere ait kitaplar aynı klasördeler.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu kullanınız. Eğer birkaç hücre için bunu yapacaksanız, döngü içerisine alınız.

 Sub Makro1()
ActiveSheet.Hyperlinks.Add Anchor:=Sheets(1).Cells(1, 2), _
                          Address:=ThisWorkbook.Path & "\" & Cells(1, 1) & ".xls#Sayfa1!A3", _
                    TextToDisplay:=Cells(1, 1) & ".xls"
'Eğer belirtilen kitaptak sayfa ismi "Sayfa1" ise çalışır.
'Değilse, Sayfa1 yazan kısmı uygun sayfa ismi ile değiştiriniz.
End Sub