Copy vùng dữ liệu từ file nhiều sheet sang file khác

[hahavuive]

Xin chào toàn thể các anh chị trong group. Em có một vấn đề muốn được giúp đỡ
Như tiêu đề trên: Em có 2 file cùng là 15 sheet tên giống nhau. Ở File 1 sau khi em lọc được dữ liệu data ra 2 cột N và P. Thì em muốn sao chép 2 cột của 15 sheet đó vào File thứ 2 cũng ở N và P vào 15 sheet tên giống.
Em đang làm tay và rất mất thời gian nếu có nhiều sheet hơn nữa. Mọi người có thể giúp em code VBA để tối ưu vấn đề này được không ạ? Em xin cảm ơn
Và nếu đổi cột N và P thành cột bất kì thì có được không ạ. Em xin cảm ơn lần nữa

 

[Maika8008]

1. Mọi người có thể giúp em code VBA để tối ưu vấn đề này được không ạ? Trả lời: Được ạ
2. nếu đổi cột N và P thành cột bất kì thì có được không ạ? Trả lời: Được ạ

 

[hahavuive]

1. Mọi người có thể giúp em code VBA để tối ưu vấn đề này được không ạ? Trả lời: Được ạ
2. nếu đổi cột N và P thành cột bất kì thì có được không ạ? Trả lời: Được ạ

Nếu được xin hãy giúp em ạ. Em cảm ơn

 

[Maika8008]

Nếu được xin hãy giúp em ạ. Em cảm ơn

Nếu được thì cho hỏi: làm ở đâu ạ?

 

[hahavuive]

Dạ trên excel 2016 ạ

 

[Maika8008]

Dạ trên excel 2016 ạ

Dạ làm trên file nào ạ?

 

[hahavuive]

Dạ làm trên file nào ạ?

Dạ đây ạ. File get data ở các sheet nó sẽ có 2 cột P và U sau khi em lọc . Ở file Book 1 có các sheet cùng tên và bảng cần được đưa data file 1 vào ạ. Em cảm ơn ạ

 

[Maika8008]

Dạ đây ạ. File get data ở các sheet nó sẽ có 2 cột P và U sau khi em lọc . Ở file Book 1 có các sheet cùng tên và bảng cần được đưa data file 1 vào ạ. Em cảm ơn ạ

Chạy Sub CopyData, chọn file đích => Open

 

[hahavuive]

Chạy Sub CopyData, chọn file đích => Open

Em cảm ơn anh đã giúp đỡ để e làm thử ạ. Chúc a cuối tuần vui vẻ

 

[Maika8008]

Em cảm ơn anh đã giúp đỡ để e làm thử ạ. Chúc a cuối tuần vui vẻ

Ban đầu thì nghiêm túc nhưng cuối cùng thì cũng a với e như thường

 

[hahavuive]

Ban đầu thì nghiêm túc nhưng cuối cùng thì cũng a với e như thường

Sorry anh tại em còn nhỏ nên bị quen cách viết như trên chứ em không có ý gì đâu ạ. Em cảm ơn anh đã giúp

 

[VetMini]

Ban đầu thì nghiêm túc nhưng cuối cùng thì cũng a với e như thường

Cuối cùng lại thò thêm cái tật Tây con.

Sorry anh tại em còn nhỏ ...

 

[hahavuive]

Cuối cùng lại thò thêm cái tật Tây con.

Xin lỗi anh nếu em làm các anh/chị cảm thấy khó chịu. Em còn phải học hỏi nhiều nên em sẽ để ý câu từ hơn. Cảm ơn các anh/chị nhiều.

 

[hahavuive]

Chạy Sub CopyData, chọn file đích => Open

Dạ em chào anh, trước tiên em xin lỗi vì em đã làm phiền anh, sau em muốn nhờ anh giúp đỡ thêm như sau:
Lần trước anh có giúp em 1 đoạn code VBA để sao chép dữ liệu về file đích. Sau khi em làm xong thì thay đổi ý định là từ file đích em sẽ có VBA để lấy đường dẫn của file cần sao chép sau đó tìm các tên sheet giống nhau rồi lấy dữ liệu từ cột B và C về ô B41 và C41 của file chính, file đích có nhiều sheet hơn file dữ liệu. Cụ thể là từ file datacoin là file chính và file result là lấy dữ liệu. Em đã thử những chưa làm được. Mong anh giúp đỡ em. Em cảm ơn anh nhiều.

 

[Maika8008]

Dạ em chào anh, trước tiên em xin lỗi vì em đã làm phiền anh, sau em muốn nhờ anh giúp đỡ thêm như sau:
Lần trước anh có giúp em 1 đoạn code VBA để sao chép dữ liệu về file đích. Sau khi em làm xong thì thay đổi ý định là từ file đích em sẽ có VBA để lấy đường dẫn của file cần sao chép sau đó tìm các tên sheet giống nhau rồi lấy dữ liệu từ cột B và C về ô B41 và C41 của file chính, file đích có nhiều sheet hơn file dữ liệu. Cụ thể là từ file datacoin là file chính và file result là lấy dữ liệu. Em đã thử những chưa làm được. Mong anh giúp đỡ em. Em cảm ơn anh nhiều.

Cuối tuần tôi sẽ làm cho bạn, chừ hổng có máy.

 

[hahavuive]

Cuối tuần tôi sẽ làm cho bạn, chừ hổng có máy.

Dạ em cảm ơn anh đã nhận lời.

 

[Maika8008]

Dạ em cảm ơn anh đã nhận lời.

Bạn xem thử file. Bấm nút ở sheet MENU để chạy code.

 

[hahavuive]

Bạn xem thử file. Bấm nút ở sheet MENU để chạy code.

Em cảm ơn anh nhiều, trưa em thấy rồi nhưng mà giờ mới thử được ạ, code chạy rất mượt, nó giúp em tùy biến nhiều thứ, em xin cảm ơn anh đã giúp.