báo lỗi khi nhập dữ liệu trùng !

[chiprock126]

Các bác ui giúp em với !
Em đang phụ trách mãng BHXH, báo tăng giảm hàng tháng, số lượng nhân viên thì đông, có những người trùng cả họ và tên, ngày tháng năm sinh. Em muốn hỏi anh / chị có cách nào mổi lần em nhập dữ liệu 2 người trùng vào sẽ báo màu đỏ ( màu để phân biệt ). Em xin chân thành cám ơn.
Nếu anh chị nào có lòng hảo tâm cho em xin địa chỉ yahoo, hoặc số điện thoại để liên lạc được không ạ !:dogrun::022::043::imwithstu

 

[tamnt07]

Bạn thử dùng hàm if và hàm countif kết hợp với condition formatting xem sao!

 

[QDuc]

Các bác ui giúp em với !
. . .số lượng nhân viên thì đông & trùng cả họ và tên, ngày tháng năm sinh. Em muốn hỏi anh / chị có cách nào mổi lần em nhập dữ liệu 2 người trùng vào sẽ báo màu đỏ ( màu để phân biệt ). Em xin chân thành cám ơn.
Nếu anh chị nào có lòng hảo tâm cho em xin địa chỉ yahoo, hoặc số điện thoại để liên lạc được không ạ !:dogrun::022::043::imwithstu

Giả sử [NgaySinh] đang ở cột 'C'; [HoTen] đang ở cột 'D'; tréo ngoe chút!)
Bạn dùng macro này:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tRow As Long, Clls As Range

If Not Intersect(Target, Range("C2:C999")) Is Nothing Then
tRow = Target.Row - 1
Set Clls = Cells.Find(What:=Target, After:=Range("c2"), LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not Clls Is Nothing And (Target.Offset(, 1) = Clls.Offset(, 1)) Then
Clls.Interior.ColorIndex = 35
MsgBox Clls.Address
End If
End If
End Sub

Tôi đang dùng màu nền xanh nhạt (35) nếu bạn vẫn thích chói chan với màu đỏ thì tìm chỉ số màu đỏ & thay vô (3)
( /)/ếu đạt iêu cầu thì nhắn tin cho mình hay!)

 

[QDuc]

Hi !
Cám ơn bạn đã dành thời gian giúp mình giải đáp câu hỏi trên. Mình làm theo sự hướng dẫn của bạn nhưng không được, nhập vào cùng tên, cùng ngày sinh nhưng không hiện màu phân biệt. Rất tiếc khi trả lời muộn như thế này !
Thân !

Bạn xem trong file đính kèm có ở bài trước. Chúc vui!!