Hỗ trợ code VBA để copy dữ liệu từ file Excell qua 1 file excell khác

[dothetai]

Chào mọi người.Tình hình là mình có 2 file excel này.Mong mọi người giúp mình code VBA để copy dữ liệu từ file data sang file tong hop.Trong đó file tong hop dữ liệu được điền bắt đầu từ ô A12.Cảm ơn mọi người rất nhiều.

 

[Hoàng Tuấn 868]

Chào mọi người.Tình hình là mình có 2 file excel này.Mong mọi người giúp mình code VBA để copy dữ liệu từ file data sang file tong hop.Trong đó file tong hop dữ liệu được điền bắt đầu từ ô A12.Cảm ơn mọi người rất nhiều.

Mình thấy bạn này bài trước có mấy bạn hỏi để giúp mà không thấy phản hồi, không biết bài này tình hình thế nào đây.

 

[dothetai]

Mình thấy bạn này bài trước có mấy bạn hỏi để giúp mà không thấy phản hồi, không biết bài này tình hình thế nào đây.

Xin lỗi bạn rất nhiều.Bài trước mình quên mất phản hồi.Bạn thông cảm giúp mình nhé.

 

[Hoàng Tuấn 868]

Xin lỗi bạn rất nhiều.Bài trước mình quên mất phản hồi.Bạn thông cảm giúp mình nhé.

Mình vừa xem bài của bạn xong, nhưng bài này ngoài khả năng của mình mất rồi, bạn chịu khó chờ bạn khác vậy.

 

[Maika8008]

Chào mọi người.Tình hình là mình có 2 file excel này.Mong mọi người giúp mình code VBA để copy dữ liệu từ file data sang file tong hop.Trong đó file tong hop dữ liệu được điền bắt đầu từ ô A12.Cảm ơn mọi người rất nhiều.

Chẳng biết sheet nào của data.xlsm cần copy, và sẽ copy sang sheet nào của tong hop.xlsx? Tiêu đề 2 bên cũng không tương đồng.

 

[dothetai]

Mình vừa xem bài của bạn xong, nhưng bài này ngoài khả năng của mình mất rồi, bạn chịu khó chờ bạn khác vậy.

Không sao.Cảm ơn bạn nhé

Bài đã được tự động gộp: 14/6/21

Chẳng biết sheet nào của data.xlsm cần copy, và sẽ copy sang sheet nào của tong hop.xlsx? Tiêu đề 2 bên cũng không tương đồng.

Chào bạn.Mình muốn copy toàn bộ các sheet của data qua các sheet của tong hop.Bạn copy thử dữ liệu từ data vào ô A12 của sheet bất kì bên tong hop sẽ thấy sự tương đồng ạ

 

[Maika8008]

Không sao.Cảm ơn bạn nhé

Bài đã được tự động gộp: 14/6/21

Chào bạn.Mình muốn copy toàn bộ các sheet của data qua các sheet của tong hop.Bạn copy thử dữ liệu từ data vào ô A12 của sheet bất kì bên tong hop sẽ thấy sự tương đồng ạ

Một bên 5 cột thế này (không tính cột Graphic)

còn một bên 6 cột thế này

thì tương đồng thế nào?

 

[dothetai]

Một bên 5 cột thế này (không tính cột Graphic)
View attachment 260636
còn một bên 6 cột thế này
View attachment 260637
thì tương đồng thế nào?

Sorry bạn.Mình có update lại file data rồi.mình có thêm 1 cột giữa D và E để tương đồng với tong hop.Bạn thông cảm giúp mình

 

[VetMini]

Một bên 5 cột thế này (không tính cột Graphic)
View attachment 260636
còn một bên 6 cột thế này
View attachment 260637
thì tương đồng thế nào?

Tự dịch tiếng Anh ra thì biết chỡ tương đồng.
Rất tiếc cái tự điển của tôi nó hiểu cái "Material" trong file 1 thành "Profile" cho nên chịu thua.

 

[Maika8008]

Sorry bạn.Mình có update lại file data rồi.mình có thêm 1 cột giữa D và E để tương đồng với tong hop.Bạn thông cảm giúp mình

Tôi thì vẫn thấy tên tiêu đề tréo hèo 2 chỗ nên bạn xác nhận dùm cái, sau này không đổi ý nữa nghe!

 

[dothetai]

Tôi thì vẫn thấy tên tiêu đề tréo hèo 2 chỗ nên bạn xác nhận dùm cái, sau này không đổi ý nữa nghe!

Tôi thì vẫn thấy tên tiêu đề tréo hèo 2 chỗ nên bạn xác nhận dùm cái, sau này không đổi ý nữa nghe!

Không đổi nữa đâu bạn.ý mình là bạn đừng quan tâm tên tiêu đề.mình chỉ cần copy dữ liệu từ data sang tonghop được thôi bạn

Bài đã được tự động gộp: 14/6/21

Tự dịch tiếng Anh ra thì biết chỡ tương đồng.
Rất tiếc cái tự điển của tôi nó hiểu cái "Material" trong file 1 thành "Profile" cho nên chịu thua.

Bạn đừng quan tâm tiêu đề.mình chỉ cần copy dữ liệu bên data sang tổng hợp là được thôi bạn

 

[VetMini]

...Bạn đừng quan tâm tiêu đề.mình chỉ cần copy dữ liệu bên data sang tổng hợp là được thôi bạn

Tiếng Tây tôi học khác bạn cho nên làm hổng nổi.
Bạn chờ người cùng trình độ Tây với mình nhé.

 

[dothetai]

Tiếng Tây tôi học khác bạn cho nên làm hổng nổi.
Bạn chờ người cùng trình độ Tây với mình nhé.

cảm ơn bạn nhiều nhé

 

[Maika8008]

Không đổi nữa đâu bạn.ý mình là bạn đừng quan tâm tên tiêu đề.mình chỉ cần copy dữ liệu từ data sang tonghop được thôi bạn

Bài đã được tự động gộp: 14/6/21

Bạn đừng quan tâm tiêu đề.mình chỉ cần copy dữ liệu bên data sang tổng hợp là được thôi bạn

Bấm nút Copy để chạy. Khi áp dụng trong file của bạn nhớ co các hình ở cột G cho vừa chiều rộng cột. Nếu không thì sẽ không copy hình sang tonghop được.

 

[dothetai]

Bấm nút Copy để chạy. Khi áp dụng trong file của bạn nhớ co các hình ở cột G cho vừa chiều rộng cột. Nếu không thì sẽ không copy hình sang tonghop được.

mình chạy được file rồi.cảm ơn bạn rất rất nhiều nhé

 

[dothetai]

Bấm nút Copy để chạy. Khi áp dụng trong file của bạn nhớ co các hình ở cột G cho vừa chiều rộng cột. Nếu không thì sẽ không copy hình sang tonghop được.

Bạn ơi cho mình hỏi thêm xíu với:
Mình không hiểu lắm 3 dòng này:
- arrCol = Array(1, 2, 3, 4, 5, 6)
- WbD.Sheets(CStr(k)).Range("A12").Resize(UBound(arrS, 1), UBound(arrS, 2)) = arrS
- Sh.Range("G2:G" & endR).Copy WbD.Sheets(CStr(k)).Range("G12") '.Resize(UBound(arrS, 1), 1)
3 dòng này là ý nghĩa là gì thế bạn? Tks bạn nhiều nhé

 

[Maika8008]

Bạn ơi cho mình hỏi thêm xíu với:
Mình không hiểu lắm 3 dòng này:
- arrCol = Array(1, 2, 3, 4, 5, 6)
- WbD.Sheets(CStr(k)).Range("A12").Resize(UBound(arrS, 1), UBound(arrS, 2)) = arrS
- Sh.Range("G2:G" & endR).Copy WbD.Sheets(CStr(k)).Range("G12") '.Resize(UBound(arrS, 1), 1)
3 dòng này là ý nghĩa là gì thế bạn? Tks bạn nhiều nhé

1/ arrCol = Array(1, 2, 3, 4, 5, 6) là dòng thừa từ code cũ phía trên, tôi quên xóa. Trước đây, nếu các cột nguồn và đích không cùng trật từ thì phải dùng thủ thuật arrCol = Array(1,2,4,3,6,5) chẳng hạn để chép từng cột từ sheet nguồn theo cách không trật tự qua sheet đích đúng trật tự 1 - 6 (đó là mục đích của đoạn sub CopyData). Sau, khi biết cùng trật tự thì mọi việc đơn giản => như 2/
2/ Ở đây nguồn và đích cùng trật tự thì tại ô A12 của sheet tên là k (chạy từ 1 - 4) của Book đích (WbD.Sheets(CStr(k)).Range("A12") điều chỉnh kích thước cho bằng mảng nguồn arrS lấy ở bên trên (Resize(UBound(arrS, 1), UBound(arrS, 2))) gán giá trị = mảng nguồn arrS.
3/ Sh.Range("G2:G" & endR).Copy là copy cột G ở sheet nguồn (tới từ dòng 2 tới dòng cuối động endR) vào vị trí ô G12 của sheet tên k của Wbook đích (WbD.Sheets(CStr(k)).Range("G12")) - đoạn sau dấu nháy đơn là điều chỉnh kích thước bằng với nguồn nếu thấy muốn tường minh kích thước, còn không thì thôi, chỉ cần chỉ đến G12 là được

P/S: Quên: Bạn chép thêm 2 dòng này vào đầu code
Application.ScreenUpdating = False
Application.Calculation=xlCalculationManual
và 2 dòng này vào cuối code:
Application.ScreenUpdating = True
Application.Calculation=xlCalculationAutomatic
để chạy nhanh hơn khi có nhiều dữ liệu phải copy

 

[dothetai]

1/ arrCol = Array(1, 2, 3, 4, 5, 6) là dòng thừa từ code cũ phía trên, tôi quên xóa. Trước đây, nếu các cột nguồn và đích không cùng trật từ thì phải dùng thủ thuật arrCol = Array(1,2,4,3,6,5) chẳng hạn để chép từng cột từ sheet nguồn theo cách không trật tự qua sheet đích đúng trật tự 1 - 6 (đó là mục đích của đoạn sub CopyData). Sau, khi biết cùng trật tự thì mọi việc đơn giản => như 2/
2/ Ở đây nguồn và đích cùng trật tự thì tại ô A12 của sheet tên là k (chạy từ 1 - 4) của Book đích (WbD.Sheets(CStr(k)).Range("A12") điều chỉnh kích thước cho bằng mảng nguồn arrS lấy ở bên trên (Resize(UBound(arrS, 1), UBound(arrS, 2))) gán giá trị = mảng nguồn arrS.
3/ Sh.Range("G2:G" & endR).Copy là copy cột G ở sheet nguồn (tới từ dòng 2 tới dòng cuối động endR) vào vị trí ô G12 của sheet tên k của Wbook đích (WbD.Sheets(CStr(k)).Range("G12")) - đoạn sau dấu nháy đơn là điều chỉnh kích thước bằng với nguồn nếu thấy muốn tường minh kích thước, còn không thì thôi, chỉ cần chỉ đến G12 là được

P/S: Quên: Bạn chép thêm 2 dòng này vào đầu code
Application.ScreenUpdating = False
Application.Calculation=xlCalculationManual
và 2 dòng này vào cuối code:
Application.ScreenUpdating = True
Application.Calculation=xlCalculationAutomatic
để chạy nhanh hơn khi có nhiều dữ liệu phải copy

Ak.mình hiểu rồi.cảm ơn bạn nhiều lắm.tại mình mới học vba nên chỉ viết được mấy code đơn giản thôi