başka dosyalardan veri alma

[zetay]

Merhaba,

forumda bulabildiğim çözümler tam olarak işime yaramadı.

Ekteki liste.xls dosyasını açtığımda "yeni klasör" içerisinde yer alan dosyaların isimlerini ve istediğim verileri o dosyalardan almasını istiyorum. kitap 1 .... 5 bunların sayısı artacaktır. office 2010 kullanıyorum. şimdiden teşekkürler.

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.

Sub DolayliFormulYaz()
yol = ThisWorkbook.Path
For i = 3 To Range("b1048576").End(3).Row
Cells(i, "c").Formula = "=" & "'" & yol & "\[" & Cells(i, 2) & ".xlsx]Sayfa1'!$D$2"
Cells(i, "d").Formula = "=" & "'" & yol & "\[" & Cells(i, 2) & ".xlsx]Sayfa1'!$D$5"
Cells(i, "e").Formula = "=" & "'" & yol & "\[" & Cells(i, 2) & ".xlsx]Sayfa1'!$D$8"
Cells(i, "f").Formula = "=" & "'" & yol & "\[" & Cells(i, 2) & ".xlsx]Sayfa1'!$D$11"
Next
End Sub

 

[zetay]

teşekküe ederim