Gởi Hoangtuankhanh
bạn đã dùng validation / List nên không dùng custom được nữa, bạn phải dùng code thôi theo như dưới đây.
J=3 là so sánh từ dòng 3 trở đi
cells(j,2) xét trên cột B
chọn sheet cần chặn trùng dữ liệu Alt+F11
dán đoạn code bên dưới là xong
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo loi
Dim j As Long, s3 As String, s4 As String
j = 3
Do Until IsEmpty(Cells(j, 2).Value)
s3 = Cells(j, 2).Value
s4 = Target.Value
If s3 = s4 And j <> Target.Row Then
MsgBox "ten nay da co roi"
Exit Sub
End If
j = j + 1
Loop
Exit Sub
loi:
End Sub