Khắc phục lỗi thông báo Update Sheet khi chạy Code

[hoahuongduong1986]

Dear Anh chị,
Em có đoạn Code sau nhưng khi bấm chạy Code luôn bị hiện ra thống báo Update value Sheet2 (Là sheet Sao ke TD). Chả là Sheet Sao ke TD nó có nhiều trường dài quá không cần thiết nên khi xử lý em đã lệnh xóa toàn bộ EC1:GD20000 của nó và bắt đầu tạo công thức từ cột EC. Làm sao để bỏ cái thống báo và update Sao ke TD ạ. Em cảm ơn.

Sub Baocao()

ActiveWorkbook.RefreshAll
Sheet2.Select
Sheet2.Range("EC1:GD20000").ClearContents
With Sheet2.Range("EC2:EC20000")
.FormulaR1C1 = "=IFERROR(IF(RC8=""VND"",RC32,IF(RC8=""USD"",RC32*'Bao cao'!R4C3,'Sao ke'!RC32*'Bao cao'!R5C3))/1000000,"""")"
.Value = .Value

Sheet2.Range("EC1").Formula = "Du no quy doi"

End With
Sheet1.Select
End Sub

 

[leonguyenz]

Đăng bài hỏi code thì đăng vào box Lập trình với Excel, đăng ở box Hàm và công thức Excel là không đúng rồi.
Bạn thử bỏ dòng lệnh: ActiveWorkbook.RefreshAll và chạy code lại thử xem. Có thể file có nhiều link tham chiếu đến nơi khác.