Nhờ giúp đỡ - Macro copy data các sheets vào 1 sheet (1 người xem)

[timhieu02]

Thân chào các ace,

Trong công việc mình có report cần copy dữ liệu từ tất cả các sheets vào 1 file mới chứa 1 sheet duy nhất. Report này làm nhiều lần trong tháng mà làm bằng tay thì đau khổ quá. Nên nhờ các ace viết giúp macro với ạ.

Mình có đính kèm 2 files:

- Tên file :"Template 1 - Input" -> hiện tại em đang ví dụ có 3 sheets
- Tên file :"Template 2 - Output (Result)" -> Là kết quả cần, sau khi chạy macro thì open 1 workbook mới, có 1 sheet tên "Tables", trong sheet này là copy dữ liệu 3 sheets trong file 1 ở trên, mỗi dữ liều từ các sheet khi sau copy qua thì cách nhau 4 dòng trống.


Mong các ace nhín chút thời gian giúp mình với nhé

 

[be_09]

Góp ý cho bạn:

1/ File :"Template 1 - Input" nên thêm 1 cột (ngày tháng năm) và nhập liệu chung trong 1 sheet chứ không ai theo dõi riêng lẽ mỗi tháng 1 sheet.

2/ Việc lấy dữ liệu từ nhiều File hay chỉ có 1 File Template 1 - Input (duy nhất), bạn nên nêu rỏ để các thành viên hiểu để trợ giúp cho dễ.

 

[timhieu02]

Các ơn bạn.
1/ Do tính chất bảo mật nên mình chỉ demo File 1 như vậy.
2/ Việc lấy dữ liệu từ 1 File Template 1 - Input (duy nhất thôi ạ)

Mong các ace giúp đỡ

 

[timhieu02]

Mong các ace tối nay nhín chút thời gian giúp em với ạ

 

[khongcan]

Input dữ liệu từ nhiều file/sheet

Cái này trên diễn đàn cũng có nhiều, bàn nhiều.
Riêng mình có một file để làm việc này (hình như cũng tìm được trên GPE này thì phải), không biết của tác giả nào, nhưng mình dùng thấy phù hợp và giải quyết được vấn đề như của bạn.
Bạn tham khảo nhé!
View attachment Join and Split data.xls

 

[timhieu02]

Cám ơn bạn nhiều. Tool của bạn rất hữu dụng. Nhưng áp dụng cho yêu cầu của mình thì output ra dư 1 cột đầu tiền + các dữ liệu copy qua không cách nhau 4 dòng trống.

Nên bạn hoặc các anh chị giúp mình macro cho yêu cầu nhỏ của mình ở trên nhé

Cám ơn nhiều ạ

 

[be_09]

................Nhưng áp dụng cho yêu cầu của mình thì output ra dư 1 cột đầu tiền + các dữ liệu copy qua không cách nhau 4 dòng trống....................Cám ơn nhiều ạ

Vậy thì sử dụng thử File này.

Lưu ý khi sử dụng:

1/ Dường dẫn File là D:\Gop File_Folder\ và tất cả các File cần lấy dữ liệu phải chứa trong Folder có tên Gop File_Folder

2/ Muốn lấy dữ liệu của sheet nào thì mở từng File và chọn sheet đó và lưu lại sau đó mới nhấn nút Gộp Dữ liệu (ví dụ File có 3 sheet: Trước đó ta chọn sheet 1 nó sẽ lấy dữ liệu sheet1 của File đó, nếu file khác ta chọn sheet 3 nó lấy dữ liệu sheet3 của File khác).

3/ Sheet có tên Gop_DuLieu bạn có thể thay bất kỳ tên nào khác cũng được.

 

[timhieu02]

Dạ. Em cảm ơn anh nhiều lắm. Anh có thể giúp thêm tí nữa để hoàn thiện cho report như yêu cầu ở trên của em được không ạ?

Anh có thể sửa macro lại là sẽ tự động copy tất cả dữ liệu trong tất cả các sheets hiện có vào 1 file mới với sheet có tên "Tables".

sau đó em dùng macro của anh làm add-in (để khi open file bất kỳ, click chọn macro từ add-in thì ra kết quả luôn - không cần chọn sheet active cần copy nữa)

Mong tin anh.

 

[timhieu02]

Các ace ơi, có gì giúp mình với nhé

 

[HieuCD]

Thân chào các ace,
Trong công việc mình có report cần copy dữ liệu từ tất cả các sheets vào 1 file mới chứa 1 sheet duy nhất. Report này làm nhiều lần trong tháng mà làm bằng tay thì đau khổ quá. Nên nhờ các ace viết giúp macro với ạ.
Mình có đính kèm 2 files:
- Tên file :"Template 1 - Input" -> hiện tại em đang ví dụ có 3 sheets
- Tên file :"Template 2 - Output (Result)" -> Là kết quả cần, sau khi chạy macro thì open 1 workbook mới, có 1 sheet tên "Tables", trong sheet này là copy dữ liệu 3 sheets trong file 1 ở trên, mỗi dữ liều từ các sheet khi sau copy qua thì cách nhau 4 dòng trống.
Mong các ace nhín chút thời gian giúp mình với nhé

khai báo tháng và năm trong sheet để tạo tên file mới
file mới sẽ lưu trong thư mục hiện hành
trong code có 2 dòng ghi chú nếu không cần thì xóa đi
bấm ngôi sao chạy code

 

[be_09]

Dạ. Em cảm ơn anh nhiều lắm. Anh có thể giúp thêm tí nữa để hoàn thiện cho report như yêu cầu ở trên của em được không ạ?

Anh có thể sửa macro lại là sẽ tự động copy tất cả dữ liệu trong tất cả các sheets hiện có vào 1 file mới với sheet có tên "Tables".

sau đó em dùng macro của anh làm add-in (để khi open file bất kỳ, click chọn macro từ add-in thì ra kết quả luôn - không cần chọn sheet active cần copy nữa)

Mong tin anh.

Bạn kiểm tra thử File.

 

[timhieu02]

Dạ, em cám anh HieuCD. ngất ngây con gà tây luôn!

Anh HieuCD ơi, do bên em có sẵn 1 số macro tạo trong menu (add-in) nên anh có thể chỉnh macro để em nạp vào add-in: với yêu cầu: chỉ cần click macro, sau đó, giống nhu hiện tại macro của anh, open file cần và copy all data vào workbook mới (chương trình tự mở file mới) với tên sheet tự tao "Tables". (không cần sheet "Main")


@anh be09. Chạy được rồi. Như em có để cập ở trên, nếu được thì anh giúp em giống vậy luôn nhé.

cám ơn 2 anh nhiều ạ

 

[timhieu02]

Anh HieuCD có gì giúp em tí nữa nhé