Xin hỗ trợ về code chép dữ liệu 1 vùng từ file này sang file khác

[yicharly]

Minh đã đánh lại đoạn code từ trên mạng để thực hiện copy một vùng dữ liệu từ file đang đóng sang sheet của file Master nhưng không kết quả gì, mong ace giúp đỡ, mình gửi kèm 2 file

 

[vanaccex]

Minh đã đánh lại đoạn code từ trên mạng để thực hiện copy một vùng dữ liệu từ file đang đóng sang sheet của file Master nhưng không kết quả gì, mong ace giúp đỡ, mình gửi kèm 2 file

Bạn xem bài viết này để sửa
https://www.giaiphapexcel.com/diend...từ-các-file-lẻ-sang-file-có-tên-master.99601/

 

[phulien1902]

Minh đã đánh lại đoạn code từ trên mạng để thực hiện copy một vùng dữ liệu từ file đang đóng sang sheet của file Master nhưng không kết quả gì, mong ace giúp đỡ, mình gửi kèm 2 file

Thử:

Sub Capnhat()
    Dim wb As String, LR&
    wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xlsx")
    With Workbooks.Open(wb)
       LR = Cells(Rows.Count, "A").End(xlUp).Row
        Sheets("REPORT").Range("A6:K" & LR).Copy ThisWorkbook.Sheets("Data").Range("A2")
        .Close False
    End With
End Sub