Xin các anh chị trợ giúp hoàn thiện code! (1 người xem)

[ruamap9]

Chào các anh chị trên diễn đàn. Em đang gặp một vấn đề mà nghĩ mãi chưa tìm ra cách làm. Hiện tại mới thực hiện được đoạn code chọn nhiều Sheet một lúc nhưng không làm sao để viết code tự động copy từ vùng 1 vào vùng 2 như đã gửi kèm file. Nếu thực hiện thao tác bằng tay như file gửi kèm theo thì sẽ thực hiện được tuy nhiên với mục đích học tập VBA em muốn tạo một đọn code để thực hiện vấn đề nêu trên. Mong các anh chị hỗ trợ giúp em.
Xin cảm ơn các anh chị

 

[ruamap9]

Nhờ các anh chị trợ giúp hoàn thiện code!

Xin các anh chị trợ giúp hoàn thiện code!
Chào các anh chị trên diễn đàn. Em đang gặp một vấn đề mà nghĩ mãi chưa tìm ra cách làm. Hiện tại mới thực hiện được đoạn code chọn nhiều Sheet một lúc nhưng không làm sao để viết code tự động copy từ vùng 1 vào vùng 2 như đã gửi kèm file. Nếu thực hiện thao tác bằng tay như file gửi kèm theo thì sẽ thực hiện được tuy nhiên với mục đích học tập VBA em muốn tạo một đọn code để thực hiện vấn đề nêu trên. Mong các anh chị hỗ trợ giúp em.
Xin cảm ơn các anh chị

 

[dhn46]

Bạn dùng Code sau, Copy vào 1 module nhé

Sub Copy()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.[M3:O21].Copy ws.[S3]
    Next
End Sub

Chú ý: File của bạn có sheet9(Xlpopy) => có thể đây là file chứa virút ở đâu đó khi chạy code này sẽ lỗi. Bạn tự tìm cách khắc phục nhé coi như tìm hiểu thêm về VBA

 

[ruamap9]

Hoàn thiện code

Bạn dùng Code sau, Copy vào 1 module nhé

Sub Copy()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.[M3:O21].Copy ws.[S3]
    Next
End Sub

Chú ý: File của bạn có sheet9(Xlpopy) => có thể đây là file chứa virút ở đâu đó khi chạy code này sẽ lỗi. Bạn tự tìm cách khắc phục nhé coi như tìm hiểu thêm về VBA

Cảm ơn anh đã hỗ trợ. Quả thật bị virut như anh nói vẫn chưa khắc phục được.

 

[dhn46]

Vấn đề Virut Macro nếu bạn tìm kiếm trên diễn đàn là thấy.
Bạn có thể tham khảo Link sau:
http://www.giaiphapexcel.com/forum/...irusMacroWarning-Cảnh-báo-và-diệt-Virus-Macro