Saturday, February 16, 2013

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

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!

No comments:

Post a Comment

Dịch vụ quản trị website|Chăm sóc website Thiết kế web giá rẻ Dịch vụ SEO giá rẻ|SEO chuyên nghiệp Công ty thiết kế web chuyên nghiệp Dịch vụ nâng cấp website|Sửa chữa website