Xin xem sửa dùm code lọc mã trùng (1 người xem)

[thanhtam348]

Đoạn code dưới đây không biết lổi chổ nào mà chọn trùng hay không trùng nó cũng báo, nhờ anh chị các bạn xem sửa dùm cho.

Private Sub ComboBox6_Click()
  With Worksheets("In Cong Nhat")
  If ComboBox6.Text <> "" And Not .Range("J:J").Find(ComboBox6.Text, _
LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False) Is Nothing Then
  MsgBox "Mã nầy đã được chọn !" & Chr(10) & "Hãy chọn lại.", , "THÔNG-BÁO!"
  ComboBox6.Text = Clear
  Cancel = True
  Else
  .Range("A65536").End(xlUp)(2) = ComboBox6.Text
Cancel = False
  End If
  End With
  End Sub