Tìm dữ liệu bi trùng Tên.

[tuantu315]

Như tiêu đề nhờ các Pro xem hộ em . Hiện tại em có 1 userform trên đó có nút insert để lưu dữ liệu vào sheet . Bây giờ em có thử sử dụng 1 đoạn code trong sheet để ko cho nhập dữ liệu trùng tên tại cột A . Nhưng Vấn đề là Khi bấm nút insert trên userforms thì dữ liệu vẫn được nhập vào sheet mặc dù code vẫn báo bị trùng dữ liêu. Có thể là phải viết code thẳng vào nút insert luôn . Mong giúp em chỉnh sữa lại file . Cám ơn anh chị nhiều

 

[vu_tuan_manh_linh]

Có thể là phải viết code thẳng vào nút insert luôn

Không cần đâu bạn! Viết ở đâu chả được!

Khi bấm nút insert trên userforms thì dữ liệu vẫn được nhập vào sheet mặc dù code vẫn báo bị trùng dữ liệu

Code của bạn có kiểm tra điều kiện trùng tên đâu nên cứ vô tư nhập dữ liệu là đúng rồi! Phải thế này nhé!

If Application.WorksheetFunction.CountIf(Range("A3:A65536"), Me.nametxt) = 0 Then
    Cl.Value = Me.nametxt
    Cl(, 2) = Me.notxt
    Cl(, 3) = Me.sizetxt
    Cl(, 4) = Me.shoelasttxt
    Cl(, 5) = Me.outsoletxt
    Cl(, 6) = Me.cuttingdietxt
    Cl(, 7) = Me.notetxt
    Cl(, 8) = Me.TPictxt
 
 nametxt = "": notxt = "": sizetxt = "": shoelasttxt = "": outsoletxt = "": cuttingdietxt = "": notetxt = "": TPictxt = ""
 End If

 

[tuantu315]

Không cần đâu bạn! Viết ở đâu chả được!

Code của bạn có kiểm tra điều kiện trùng tên đâu nên cứ vô tư nhập dữ liệu là đúng rồi! Phải thế này nhé!

If Application.WorksheetFunction.CountIf(Range("A3:A65536"), Me.nametxt) = 0 Then
    Cl.Value = Me.nametxt
    Cl(, 2) = Me.notxt
    Cl(, 3) = Me.sizetxt
    Cl(, 4) = Me.shoelasttxt
    Cl(, 5) = Me.outsoletxt
    Cl(, 6) = Me.cuttingdietxt
    Cl(, 7) = Me.notetxt
    Cl(, 8) = Me.TPictxt
 
 nametxt = "": notxt = "": sizetxt = "": shoelasttxt = "": outsoletxt = "": cuttingdietxt = "": notetxt = "": TPictxt = ""
 End If

ok được rồi thanks bạn nha ! nhưng bạn cho minh hỏi thêm cho nó hiện lên msgbox để báo mỗi khi bị trùng nhau

 

[giaiphap]

ok được rồi thanks bạn nha ! nhưng bạn cho minh hỏi thêm cho nó hiện lên msgbox để báo mỗi khi bị trùng nhau

Nếu vậy chỉ cần thêm cái else nửa chứ gì bạn.

If Application.WorksheetFunction.CountIf(Range("A3:A65536"), Me.nametxt) = 0 Then
    Cl.Value = Me.nametxt
    Cl(, 2) = Me.notxt
    Cl(, 3) = Me.sizetxt
    Cl(, 4) = Me.shoelasttxt
    Cl(, 5) = Me.outsoletxt
    Cl(, 6) = Me.cuttingdietxt
    Cl(, 7) = Me.notetxt
    Cl(, 8) = Me.TPictxt
 
 nametxt = "": notxt = "": sizetxt = "": shoelasttxt = "": outsoletxt = "": cuttingdietxt = "": notetxt = "": TPictxt = ""
 Else
    MsgBox "Du lieu da bi trung"
 End If

 

[tuantu315]

Nếu vậy chỉ cần thêm cái else nửa chứ gì bạn.

If Application.WorksheetFunction.CountIf(Range("A3:A65536"), Me.nametxt) = 0 Then
    Cl.Value = Me.nametxt
    Cl(, 2) = Me.notxt
    Cl(, 3) = Me.sizetxt
    Cl(, 4) = Me.shoelasttxt
    Cl(, 5) = Me.outsoletxt
    Cl(, 6) = Me.cuttingdietxt
    Cl(, 7) = Me.notetxt
    Cl(, 8) = Me.TPictxt
 
 nametxt = "": notxt = "": sizetxt = "": shoelasttxt = "": outsoletxt = "": cuttingdietxt = "": notetxt = "": TPictxt = ""
 Else
    MsgBox "Du lieu da bi trung"
 End If

Ok Thanks bạn nhiều nha !