kapalı dosyadan veri alırken dosya yolu değiştirmek

[excile]

Selamlar,

Aşağıdaki dosyayı forumdan almıştım soyle bir şey gerekti fakat bir türlü yapamadım. Bu macro kapalı dosyalardan verileri alıp alt alta yerleştiryor. Kapalı dosyalar(ece emre ve serkan ) ve ana dosya (toplu) aynı dizinde olunca çalışıyor.


Kapalı dosyalar ana dosyanın bir altındaki folderlarda olsa ve isimleri sırasıyla E F ve G olsa kodda nasıl bir değişiklik yapmak gerekir acaba.

Private Sub CommandButton1_Click()
d1 = ThisWorkbook.Name
yol = ThisWorkbook.Path
a = 2
For t = 1 To Sayfa3.[a65536].End(3).Row
dadi = Sayfa3.Cells(t, 1)
dosya = yol & "\" & dadi & ".xls"
Workbooks.Open dosya
ad = ActiveWorkbook.Name
Set sy1 = Workbooks(ad).Sheets("Satışlar")
Workbooks(d1).Activate

For i = 2 To sy1.[a65536].End(3).Row
Sayfa1.Cells(a, 1) = sy1.Cells(i, 1)
Sayfa1.Cells(a, 2) = sy1.Cells(i, 2)
Sayfa1.Cells(a, 3) = sy1.Cells(i, 3)
Sayfa1.Cells(a, 4) = sy1.Cells(i, 4)
Sayfa1.Cells(a, 4) = Left(ad, Len(ad) - Len(Right(ad, 4)))
a = a + 1
Next
Workbooks(ad).Close False
Next
End Sub
Alıntı

Yardımlarınız için şimdiden tşkler.

 

[Korhan Ayhan]

Selamlar,

Koddaki yol = ThisWorkbook.Path kısmını aşağıdaki şekilde değiştirip denermisiniz. (Kırmızı renkli kısmı kendinize göre düzenleyin.)

yol = ThisWorkbook.Path & "\" & [COLOR=red]Folder_Adı[/COLOR]

Ayrıca dosyalarınızın isimlerini Sayfa3 ten almaktadır. A sütunundan düzeltirseniz istediğiniz sonuca ulaşabilirsiniz.

 

[excile]

Cevabınız için çok teşekkür ederim Korhan Bey.

yol = ThisWorkbook.Path & "\" & E,F,G ??

yapamadım.



Ama dediğiniz gibi A kolonuna dosya yolunu yazdım ve sonuca ulaştım, teşekkürler.

Dosya belki birilerine lazım olur diye ekliyorum.

 

[cenderus]

dosya

arkadaşlar paylaşılan dosya ektedir