Xin giúp Marco copy và past dữ liệu

[letuongqt]

Do yêu cầu phải tổng hợp dữ liệu ( copy và past dữ liệu) ở nhiều file khác nhau .Xin nhờ các anh giúp cho đoạn Marco để tự động copy và past dữ liệu vào bảng tổng hợp . Tôi cũng đã thử bằng cách thu Marco để sửa lại nhưng không được , rất mong được chỉ dẫn - Nhờ các anh xem yêu cầu ở file đính kèm và chỉ dẫn giúp . Xin cảm ơn .

 

[letuongqt]

Không biết giải pháp như trên có khả thi không ,xin các anh tư vấn thêm .- Tức là dùng marco copy các ô có dữ liệu ở 2 file khác nhau để past vào file tổng hợp ? Xin cảm ơn .

 

[ditimdl]

Bạn download file attach nha, Có gì nhờ các pro chỉnh sửa thêm code

Private Sub Copydulieu_Click()
    Application.ScreenUpdating = False
    Sheets("Sheet1").Range("D2:E11").ClearContents
    Dim wb As Workbook
    Set wb = Application.Workbooks.Open("C:\Documents and Settings\Endless\My Documents\Downloads\6A.xls")
    Sheets("Sheet1").Range("D2:E5").Copy
    Windows("TONGHOP").Activate
    Sheets("Sheet1").Range("D2").Select
    
    Selection.PasteSpecial Paste:=xlValues
    Application.DisplayAlerts = False
    wb.Close
    Set wb = Application.Workbooks.Open("C:\Documents and Settings\Endless\My Documents\Downloads\7A.xls")
    Sheets("Sheet1").Range("D6:E11").Copy
    Windows("TONGHOP").Activate
    Sheets("Sheet1").Range("D6").Select
    
    Selection.PasteSpecial Paste:=xlValues
    Application.DisplayAlerts = False
    wb.Close
    Range("B2").Select
    
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
End Sub

Bạn để ý trong đoạn code chỉ đến đường dẫn của 2 file 6A.xls và 7A.xls, bạn để 2 file 6A.xls và 7A.xls ở đâu thì chỉnh sửa lại đường dẫn cho phù hợp.