Formül içine başvuru

[command]

Aşağıdaki förmülde
KÖK\[KÖK-2006.xls]
yazan yeri a1 hücresinden almak istiyorum. yani a1 hücresinde KÖK\[KÖK-2006.xls] yazıyor. aşağıdaki kodda kalın harf yazan yere a1 yazacağım ve genel formül olarak ilgili excel dosyasını ilgili hücredeki verisini gösterecek.


='X:\DOSYA\TİCARİ\RAPOR\KÖK\[KÖK-2006.xls]G.V.'!$I$9

 

[Merhum İdris SERDAR]

indirect-dolaylı fonksiyonu


Buradaki dosyayı inceleyin.

.

 

[command]

çok teşekkürler ama , ben yeniyim, bunu çözmem için daha uzun zamana ihtiyacım var. buna kısa sürede ithiyacım var. ilgili dosya olundaki xls lerden veri alacağım fakat dosya yolundaki bi adresi başka bir hücreden alacağım.

zahmet olmazsa örneğe ekleyebilir misiniz.

tşkler.

 

[command]

başka önerisi olan?

 

[Ömer]

Merhaba,

Yeni dosya yolu A1 eski dosya yolu B1 hücresinde olduğu düşünülmüştür.

Sub KaynakDegis()
On Error Resume Next
ActiveWorkbook.ChangeLink Name:="X:\DOSYA\TİCARİ\RAPOR\" & Range("B1"), _
NewName:="X:\DOSYA\TİCARİ\RAPOR\" & Range("A1"), Type:=xlExcelLinks
End Sub

Yalnız A1 ve B1 e verileri,

KÖK\[KÖK-2000.xls] değil KÖK\KÖK-2000.xls şekilde giriniz.

Yada,

Sub Degis()
On Error Resume Next
Cells.Replace Range("B1"), Range("A1")
End Sub

Bu şekilde değiştirebilirsiniz.

.