ห้ามบันทึกชื่อซ้ำจากข้อมูลที่มี

[ploynattharat]

ขออนุญาตสอบถามผู้รู้คะ

ที่userform ชื่อ InputProd ฟอร์มนี้ไว้สำหรับกรอกชื่อผลิตภัณฑ์ใหม่ เมื่อกรอกข้อมูลผลิตภัณฑ์ ในส่วนของ ชื่อผลิตภัณฑ์ หลังจากกดบันทึก ข้อมูลจะไปบันทึกที่worksheet ชื่อ DataProd

ปัญหาคือ เมื่อกรอกชื่อผลิตภัณฑ์แล้วกดบันทึก เมื่อชื่อผลิตภัณฑ์ที่กรอกถ้าซ้ำกับชื่อที่มีอยู่แล้วในคอลัมน์ C ของ worksheet ชื่อ DataProd ก็ยังบันทึกซ้ำได้ทุกๆรอบ อยากให้ ถ้าชื่อของผลิตภัณฑ์ซ้ำจากชื่อข้อมูลเดิมที่มีอยู่แล้วที่คอลัมน์ C ชื่อผลิตภัณฑ์จะไม่บันทึกซ้ำอีก พร้อมขึ้นข้อความว่าข้อมูลซ้ำ !

ยกตัวอย่างเช่น กรอกชื่อผลิตภัณฑ์ที่ Userform ชื่อ Neckring 11,05,0624/1c-PG (ซึ่งข้อมูลนี้อยู่ในช่อง C3 ที่worksheet DataProd) หลังจากกดบันทึก ให้ขึ้นข้อความว่าข้อมูลซ้ำ ! แล้วข้อมูลต้องไม่บันทึกที่ Worksheet เพราะมีข้อมูลชื่อนี้อยู่แล้ว


รบกวนช่วยเหลือหน่อยนะคะ

ขอบคุณมากคะ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sheet5.Activate
If Application.CountIf(Range("c:c"), InputProd.tbProdName.Text) > 0 Then
    MsgBox "ข้อมูลซ้ำ"
    Exit Sub
End If

[ploynattharat]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sheet5.Activate
If Application.CountIf(Range("c:c"), InputProd.tbProdName.Text) > 0 Then
    MsgBox "ข้อมูลซ้ำ"
    Exit Sub
End If

ขอบคุณมากคะ