Giúp em lấy dữ liệu theo điều kiện lọc cho trước (1 người xem)

[Bikey_4]

em muốn lấy giá trị của cột D (mã hồ sơ) & copy nó ra chỗ khác (sheet khác càng tốt) nếu ở cột B hoặc cột C cùng hàng có giá trị thoả mãn
Cụ thể trong file đính kèm em Ctrl+F giá trị 147/4 thì sẽ có 17 ô có (bao gồm cả 147/4 và '147/4), 17 ô này xuất hiện ở 14 dòng, vậy em muốn xuất 14 cái mã hồ sơ tương ứng ở cột D ra. Tuy nhiên khi gõ 147/4 thì có thể bao gồm cả 147/45 (đại loại thế), mà em chỉ muốn điều kiện là 147/4 và '147/4 thôi. Mong mọi người giúp đỡ

 

[Ba Tê]

em muốn lấy giá trị của cột D (mã hồ sơ) & copy nó ra chỗ khác (sheet khác càng tốt) nếu ở cột B hoặc cột C cùng hàng có giá trị thoả mãn
Cụ thể trong file đính kèm em Ctrl+F giá trị 147/4 thì sẽ có 17 ô có (bao gồm cả 147/4 và '147/4), 17 ô này xuất hiện ở 14 dòng, vậy em muốn xuất 14 cái mã hồ sơ tương ứng ở cột D ra. Tuy nhiên khi gõ 147/4 thì có thể bao gồm cả 147/45 (đại loại thế), mà em chỉ muốn điều kiện là 147/4 và '147/4 thôi. Mong mọi người giúp đỡ

Thử file này xem sao, nhập mã vào ô C2 là code chạy.

 

[Bikey_4]

Cảm ơn anh đúng ý em luôn ạ, anh có thể chỉ dùm em làm sao có được cái đó không ạ?

 

[Ba Tê]

Cảm ơn anh đúng ý em luôn ạ, anh có thể chỉ dùm em làm sao có được cái đó không ạ?

Alt+F11, trong Module1 có 1 Sub GPE_X
Trong sheet LOC thì có cái này:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then GPE_X
End Sub

Thay đổi ô C2 thì Sub GPE_X hoạt động.
Chỉ có bi nhiêu thôi. Hông thể chỉ gì được nữa.

 

[Hoàng Trọng Nghĩa]

Alt+F11, trong Module1 có 1 Sub GPE_X
Trong sheet LOC thì có cái này:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then GPE_X
End Sub

Thay đổi ô C2 thì Sub GPE_X hoạt động.
Chỉ có bi nhiêu thôi. Hông thể chỉ gì được nữa.

Em nghiệm ra rằng, thay vì như vầy:

If Target.Address = "$C$2" Then

Đối với các thành viên mới (kể cả chúng ta) cho dễ nắm, dễ xoay sở dễ thay đổi địa chỉ ô, thì khi cho địa chỉ rồi thì khỏi phải cho thêm "đô la" làm gì nữa! ẹc ... ẹc ...

If Target.Address[B][COLOR=#0000ff](0, 0)[/COLOR][/B] = [COLOR=#ff0000][B]"C2"[/B][/COLOR] Then