Hướng dẫn cách tổng hợp dữ liệu từ nhiều sheet thành 1 sheet có chọn lọc

[lanhngocd]

Chào tất cả ace trên diễn đàn, hiện tại mình đang gặp một vấn đề rất khó chịu như sau:

Giả sử em có 3 sheet: KPI, KPI2, KetQua. Dựa vào cột "Đánh giá kế hoạch follow up KH" trong Sheet KPI và KPI2 có giá trị ="Đang Follow Up" thì dữ liệu nhập vào sẽ tự động coppy sang Sheet KetQua và trình bày thông tin như trong File đính kèm.
Rất mong ace chỉ dẫn mình, nếu làm mình chỉ có thể coppy dữ liệu nguyên xi từ Sheet KPI sang Sheet KetQua, cái quan trọng là lọc theo cột "Đánh Giá Kế hoạch follow up KH".

Mình có up file lên cho ace dễ hình dung.
Rất mong nhận được phản hồi.

Thank for read and help

 

[lanhngocd]

Có ai giúp mình ko? Help meeee

 

[SA_DQ]

Xài macro sự kiện, khi trang 'KetQua' được kích hoạt

 

[lanhngocd]

Thank HYen17 đã chỉ giúp. Rất cảm ơn.

 

[SA_DQ]

. . . Nhưng mình cũng muốn hiểu một vài dòng lệnh để sau này mình edit lại dễ dàng mà ko làm mất thời gian của mọi người trên diễn đàn.
Ví dụ
(1) Mình muốn đổi "Đang Follow up" sang "OK" thì mình sữa code ra sao,
(2) Mình muốn chèn thêm 1 cột ở sheet KetQua thì làm như thế nào?

(1) Ngay sau khai báo các biến sử dụng , chúng ta có dòng lệnh

Tim = [iu1].Value:

Tại địa chỉ này ta có nội dung của mệnh đề "Đang Follow up"; Chẳng qua tại chữ 'Đ' tiếng Việt nên làm vậy (Tất nhiên cũng có cách khác để không fải làm vậy, nhưng với bạn sẽ rối hơn)
Giờ ta có thể đổi câu lệnh đó lại là

 Tim = "OK":

(2) Chèn thêm cột ở 'KetQua' thì sẽ có vài trường hợp sẩy ra như sau:

 With [b65500].End(xlUp).Offset(1)
2     .Value = Sh.Cells(sRng.Row, "B").Value
     .Offset(, 1).Resize(, 2).Value = Sh.Cells(sRng.Row, "C").Resize(, 2).Value
4     .Offset(, 3).Resize(, 2).Value = Sh.Cells(sRng.Row, "o").Resize(, 2).Value
  End With

(|) Chén trước cột 'B' thì sửa dòng lệnh đầu trong trích dẫn

(|) Nếu thêm ngay trược cột [SDT] thì sửa tăng cột cho dòng lệnh 4, như

4     .Offset(, 4).Resize(, 2).Value = Sh.Cells(sRng.Row, "o").Resize(, 2).Value

(|) Chèn ngay sau cột 'B' thì sửa dòng lệnh 3 lại để nó tăng thêm 1 cột
như:

.Offset(, 2).Resize(, 2).Value = Sh.Cells(sRng.Row, "C").Resize(, 2).Value

& dòng lệnh 4 cũng được sửa như trên
(|) Thêm sau cột 'F' thì vô hại với macro;

(|) Thêm vố các cột trung gian khác thì fải viết lại các dòng lệnh này đó bạn!

Thân ái

 

[lanhngocd]

Hihi, cái code thì mình yếu lắm. Cảm ơn lần nữa.