İki dosya arası veri aktarımı

[bilalakyol]

Yoklama listesi hazırlamak için oluşturduğum bir excel dosyası var. Bu dosyaya sistemden indirdiğimiz öğrenci listesinden (Report) veri çekiyoruz. Basit bir makro yaptım. Benim dosyanın adı YOKLAMA diğer dosyanın adı Report, fakat farklı sınıfların dosyalarını indirdikçe Report (1) Report 2 gibi farklı adlarla kaydediyor Chrome ve excel makrosu hata veriyor. Bunu aktif dosyaya açık olan diğer dosyadan veri çekecek şekilde nasıl değiştirebiliriz?


' OLUSTUR Makro
'

'
Windows("Report.xls").Activate
Columns("C:F").Select
Selection.Copy
Application.CutCopyMode = False
Range("C11:H150").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Windows("Yoklama.xlsm").Activate
Sheets("Sınıf Listesi").Select
ActiveWindow.SmallScroll Down:=-30
Range("C11:D11").Select
ActiveSheet.Paste
Range("X11").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-21]"
Range("Y11").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-20]"
Range("X11:Y11").Select
Selection.Copy
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("X11:Y150"), Type:=xlFillDefault
Range("X11:Y150").Select
Selection.Copy
Application.CutCopyMode = False
End Sub