Kiểm tra trùng trên text box

[khunglongcodon]

Em có đoạn mã kiểm tra trùng sau đây:

Private Sub txtMaNV_AfterUpdate()
Dim n As Byte
n = Application.WorksheetFunction.CountIf(Range("VungMaNV"), txtMaNV)
If n > 1 Then
MsgBox "Trung ma"
End If
End Sub

Sao nó không hoạt động được vậy mấy anh chị?

 

[ndu96081631]

Em có đoạn mã kiểm tra trùng sau đây:

Private Sub txtMaNV_AfterUpdate()
Dim n As Byte
n = Application.WorksheetFunction.CountIf(Range("VungMaNV"), txtMaNV)
If n > 1 Then
MsgBox "Trung ma"
End If
End Sub

Sao nó không hoạt động được vậy mấy anh chị?

Tôi thấy nó vẫn hoạt động bình thường
Còn bạn, thay vì đưa đoạn mã, sao không đưa file lên cho tiện việc kiểm tra ---> Phải có sai sót ở chổ nào đó chứ

 

[khunglongcodon]

Em hiểu rồi, vì em nhầm với Validation nên đưa n>1, đúng ra phải là n=1
Thanks anh nhiều