Tô màu họ và tên bị trùng từ 2 sheet khác nhau (2 người xem)

[Gà Công Nghệ]

Xin nhờ Anh, chị xem hỗ trợ giùm em: khi nhập liệu nếu họ và tên cột E sheet DS-GPE nhập trùng với họ và tên cột C ở sheet PC-GPE thì họ và tên nhập trùng ở cột E sheet DS-GPE sẽ tô màu vàng. Em xin cám ơn Anh chị nhiều.

 

[HUONGHCKT]

Xin nhờ Anh, chị xem hỗ trợ giùm em: khi nhập liệu nếu họ và tên cột E sheet DS-GPE nhập trùng với họ và tên cột C ở sheet PC-GPE thì họ và tên nhập trùng ở cột E sheet DS-GPE sẽ tô màu vàng. Em xin cám ơn Anh chị nhiều.

Xem file đính kèn:
đặt chuột vào 1 ô trong vùng E6:E...(những ô đã có dữ liệu), hoặc nhập vào ô rỗng và Enter====> nếu trùng ===> tô màu ô đó.
Lưu ý code chỉ chạy khi:
+2 Workbook này đều đặt chung trong 1 folder.
+Tên của sheet là PC2022.

 

[Gà Công Nghệ]

Xem file đính kèn:
đặt chuột vào 1 ô trong vùng E6:E...(những ô đã có dữ liệu), hoặc nhập vào ô rỗng và Enter====> nếu trùng ===> tô màu ô đó.
Lưu ý code chỉ chạy khi:
+2 Workbook này đều đặt chung trong 1 folder.
+Tên của sheet là PC2022.

Anh xem hộ giùm em khi em nhập thêm tên thì báo lỗi như vậy.

 

[Maithy46]

Mình thì dùng Conditional Formatting, gửi bạn tham khảo thêm ở file đính kèm. Thân!

 

[HUONGHCKT]

Anh xem hộ giùm em khi em nhập thêm tên thì báo lỗi như vậy.

Bạn chạy lại modul1 sau đó quay về Trang tính : từ đây bạn gõ tên vào cột E , nếu tên trùng (đã có trong cột C/Sh PC2022/File PC.... thì ô đó sẽ tô màu vàng
Còn nếu muốn sửa lại cho chạy để lần sau khi mở máy ra không vấp lỗi nữa thì.
1-Thêm dòng lệnh để chạy Sub Add_Dic(modul1) khi mở file DS-GPE.xlsm
Copy code dưới đây và paste vào module ThisWorkbook

Private Sub Workbook_Open()
Call Add_Dict
End Sub

xem file đính kèm

 

[Maika8008]

Mình thì dùng Conditional Formatting, gửi bạn tham khảo thêm ở file đính kèm. Thân!

Cách này dùng ổn !

 

[Gà Công Nghệ]

Bạn chạy lại modul1 sau đó quay về Trang tính : từ đây bạn gõ tên vào cột E , nếu tên trùng (đã có trong cột C/Sh PC2022/File PC.... thì ô đó sẽ tô màu vàng
Còn nếu muốn sửa lại cho chạy để lần sau khi mở máy ra không vấp lỗi nữa thì.
1-Thêm dòng lệnh để chạy Sub Add_Dic(modul1) khi mở file DS-GPE.xlsm
Copy code dưới đây và paste vào module ThisWorkbook

Private Sub Workbook_Open()
Call Add_Dict
End Sub

xem file đính kèm

Vâng, em cám ơn anh nhiều.

Bài đã được tự động gộp: Hôm qua, lúc 13:21

Mình thì dùng Conditional Formatting, gửi bạn tham khảo thêm ở file đính kèm. Thân!

Vâng, cám ơn bạn đã hỗ trợ thêm.