Cần giúp đỡ code lấy dữ liệu từ nhiều sheet (1 người xem)

[phuoclocvl]

Xin chào các Pro,
Các huynh giúp đệ code lấy dữ liệu từ nhiều sheet thành một sheet.
nghĩa là em có một file gồm 3 sheet. sheet "Inquiry" và sheet "CO" và sheet thứ 3 là sẽ lấy dữ liệu từ cột A của cả 2 sheet kia, nếu dữ liệu trùng nhau thì chỉ lấy một. và cứ thế tiếp tục lấy dữ liệu nếu có dữ liệu mới. xin giúp đỡ.
Xem file em có đính kèm theo.View attachment 88535
Cảm ơn!

 

[Quang_Hải]

Xin chào các Pro,
Các huynh giúp đệ code lấy dữ liệu từ nhiều sheet thành một sheet.
nghĩa là em có một file gồm 3 sheet. sheet "Inquiry" và sheet "CO" và sheet thứ 3 là sẽ lấy dữ liệu từ cột A của cả 2 sheet kia, nếu dữ liệu trùng nhau thì chỉ lấy một. và cứ thế tiếp tục lấy dữ liệu nếu có dữ liệu mới. xin giúp đỡ.
Xem file em có đính kèm theo.View attachment 88535
Cảm ơn!

Bạn cho code này vào sheet thứ 3 xem thế nào

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Sheet1.Range(Sheet1.[a4], Sheet1.[a65536].End(3)).Copy
[B1].PasteSpecial 3
Sheet2.Range(Sheet2.[a2], Sheet2.[a65536].End(3)).Copy
[b65536].End(3).Offset(1).PasteSpecial 3
Range([b4], [b65536].End(3)).AdvancedFilter 2, , [a1], 2
[b:b].Clear
Application.ScreenUpdating = True
End Sub

 

[phuoclocvl]

Bạn cho code này vào sheet thứ 3 xem thế nào

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Sheet1.Range(Sheet1.[a4], Sheet1.[a65536].End(3)).Copy
[B1].PasteSpecial 3
Sheet2.Range(Sheet2.[a2], Sheet2.[a65536].End(3)).Copy
[b65536].End(3).Offset(1).PasteSpecial 3
Range([b4], [b65536].End(3)).AdvancedFilter 2, , [a1], 2
[b:b].Clear
Application.ScreenUpdating = True
End Sub

Cho mình hỏi thêm tí, làm sao để nó tự động cập nhật khi bên 2 sheet kia có dữ liệu mới.
Thanks

 

[Quang_Hải]

Cho mình hỏi thêm tí, làm sao để nó tự động cập nhật khi bên 2 sheet kia có dữ liệu mới.
Thanks

Có lẻ bạn chửa thử cho code hoạt động nên mới hỏi như vậy, mỗi lần bạn chọn sheet này là bạn sẽ có dữ liệu cập nhật tự động

 

[phuoclocvl]

Có lẻ bạn chửa thử cho code hoạt động nên mới hỏi như vậy, mỗi lần bạn chọn sheet này là bạn sẽ có dữ liệu cập nhật tự động

mình thử rồi nhưng nó không cập nhật nên mình mới hỏi, không biết tại sao nữa, ay za..

 

[Ba Tê]

mình thử rồi nhưng nó không cập nhật nên mình mới hỏi, không biết tại sao nữa, ay za..

Nếu nó "không nhúc nhích" thì chắc là do bạn chưa Enable Macros cho File đó rồi.