Xin nhờ trợ giúp về Macro Copy dữ liệu

---

Xin nhờ trợ giúp về Macro Copy dữ liệu Posted: 25 Jan 2013 06:19 AM PST Tại File Tổng hợp HSG, tôi có 1 Macro để Copy dữ liệu từ nhiều File khác; nhưng mỗi lần lấy dữ liệu lại phải mở tất cả các File kia lên. (Nếu không mở thì có Macro báo lỗi) Vậy nhờ các bạn viết giúp đoạn code để mở nhanh tất cả các File kia lên được không? Hoặc có thể chỉnh sửa Code cũ để không cần mở các File kia mà vẫn copy được dữ liệu không? Đậy là đoạn Code cũ! Code: Sub CapnhatHSG() Application.ScreenUpdating = False     Windows("DIEM 6A.xls").Activate     Sheets("K.Thuong").Select     Range("B6:E48").Select     Selection.Copy     Windows("HSG").Activate     Range("B5").Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows("DIEM 6B.xls").Activate     Sheets("K.Thuong").Select     Range("B6:E48").Select     Selection.Copy     Windows("HSG").Activate     Range("B50").Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False Application.ScreenUpdating = Truse End sub Cảm ơn các bạn trước!

You are subscribed to email updates from Giải Pháp Excel - Excel và Giáo Dục To stop receiving these emails, you may unsubscribe now.	Email delivery powered by Google
Google Inc., 20 West Kinzie, Chicago IL USA 60610