Help! COPY DỮ LIỆU LÀM BÁO CÁO (1 người xem)

[toangiaphat]

Mình có 1 file dữ liệu, hằng ngày sẽ nhập ở đây. Mình nhờ các bạn giúp khi bấm trích xuất tự động sẽ copy toàn bộ dữ liệu qua file báo cáo. Ngày tiếp theo khi bấm lệnh sẽ copy toàn bộ dữ liệu sang file báo cáo và xếp dưới dữ liệu cũ.
Thanks các bạn

 

[toangiaphat]

mình bỏ vào button nó ko chạy bạn ơi. nó bao thê này....

 

[toangiaphat]

nhờ bạn kiểm tra giúp nhé. thanks

 

[madao2]

Em xin phép sửa lại một chút, bỏ thông báo Update Link bằng cách thay Application.DisplayAlerts thành Application.AskToUpdateLinks

Sub GPE()
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
Dim fName As String, Wb As Workbook, Sh As Worksheet, Data As Range
Set Data = Range([A2], [A65000].End(3)).Resize(, 16)
    fName = ThisWorkbook.Path & "\" & "BAO CAO.xlsx"
    Set Wb = Application.Workbooks.Open(fName)
    Set Sh = Wb.Worksheets("BAO CAO")
    Data.Copy Sh.[A65000].End(3).Offset(1)
    Wb.Save
    Wb.Close True
Application.AskToUpdateLinks = True
Application.ScreenUpdating = True
End Sub

 

[toangiaphat]

ko diễn đàn nào nhiệt tình như diễn đàn chúng ta.
cám ơn các bạn

 

[toangiaphat]

Mình đã làm theo hướng dẫn thì OK. nhưng khi bổ vào file mình cần thì ko được. mình gởi AE file gốc kiểm tra hộ mình nhé. thanks

 

[madao2]

Mình đã làm theo hướng dẫn thì OK. nhưng khi bổ vào file mình cần thì ko được. mình gởi AE file gốc kiểm tra hộ mình nhé. thanks

Rename Sheet1 trong File BAO CAO thành "BAO CAO" là được.
Lời khuyên chân thành của mình là bạn nên tiếp xúc vấn đề theo hướng khác hữu dụng hơn. Vì bạn đang dùng công thức cho những ô chứa dữ liệu ở file nguồn , macro sẽ copy ra thành lỗi toàn số 0 hoặc khoảng trắng ở nhiều hàng ở file đích, bạn không thể báo cáo file này mà không chỉnh sửa lại. Đó là chưa kể tới việc bạn chia sẻ file cho FV khác sử dụng, một số trường hợp máy lỗi, đã bấm button chuyển dữ liệu nhưng không biết sub có chạy không, phải mở file nguồn kiểm tra. Chúc bạn thàng công!