Farklı yerlerdeki dosyalardaki bilgiyi bir sayfada toplama için aşağıdaki şekilde makro yazdım. Bilgim buna yetiyor, sizden ricam hedefdeki dosyaları açmadan bu bilgi alabilirmiyim?
AY = Cells(2, 2)
For T = 0 To 60
YOL = Cells(4 + T, 2)
Workbooks.Open Filename:= _
"P:\İmalat\MAKİNA DURUÃLARI\makina duruşları\" & YOL & ".XLS"
Worksheets(AY).Select
D1 = Cells(38, 2)
D2 = Cells(38, 3)
D3 = Cells(38, 4)
D4 = Cells(38, 5)
D5 = Cells(38, 6)
D6 = Cells(38, 7)
D7 = Cells(38, 8)
D8 = Cells(38, 9)
ActiveWorkbook.Save
ActiveWindow.Close
Windows("makina duruşları.xls").Activate
Worksheets("DURUÃLAR").Cells(4 + T, 2) = D1
Worksheets("DURUÃLAR").Cells(4 + T, 3) = D2
Worksheets("DURUÃLAR").Cells(4 + T, 4) = D3
Worksheets("DURUÃLAR").Cells(4 + T, 5) = D4
Worksheets("DURUÃLAR").Cells(4 + T, 6) = D5
Worksheets("DURUÃLAR").Cells(4 + T, 7) = D6
Worksheets("DURUÃLAR").Cells(4 + T, 8) = D7
Worksheets("DURUÃLAR").Cells(4 + T, 9) = D8
Worksheets("DURUÃLAR").Cells(4 + T, 10) = YOL
Next T
AY = Cells(2, 2)
For T = 0 To 60
YOL = Cells(4 + T, 2)
Workbooks.Open Filename:= _
"P:\İmalat\MAKİNA DURUÃLARI\makina duruşları\" & YOL & ".XLS"
Worksheets(AY).Select
D1 = Cells(38, 2)
D2 = Cells(38, 3)
D3 = Cells(38, 4)
D4 = Cells(38, 5)
D5 = Cells(38, 6)
D6 = Cells(38, 7)
D7 = Cells(38, 8)
D8 = Cells(38, 9)
ActiveWorkbook.Save
ActiveWindow.Close
Windows("makina duruşları.xls").Activate
Worksheets("DURUÃLAR").Cells(4 + T, 2) = D1
Worksheets("DURUÃLAR").Cells(4 + T, 3) = D2
Worksheets("DURUÃLAR").Cells(4 + T, 4) = D3
Worksheets("DURUÃLAR").Cells(4 + T, 5) = D4
Worksheets("DURUÃLAR").Cells(4 + T, 6) = D5
Worksheets("DURUÃLAR").Cells(4 + T, 7) = D6
Worksheets("DURUÃLAR").Cells(4 + T, 8) = D7
Worksheets("DURUÃLAR").Cells(4 + T, 9) = D8
Worksheets("DURUÃLAR").Cells(4 + T, 10) = YOL
Next T