[حل شده] کد بررسی تکراری بودن مقدار textbox یوزر فرم درستون یک شیت

[matadoor]

سلام فایل زیر رو ببینید
داخل یوزرفرم یک تکست باکس دارم واسه وارد کردن کد ملی شخص
یک دکمه هم زیرش که این مقدار رو با مقدار های داخل ستون b شیت1 مطابقت بده اگر تکراری بود پیغام بده
ویا اینکه اصلا کاربر دکمه رو نزه به محض تایپ کدملی مقدارشو بررسی کنه و حالا رنگش قرمز بشه و خطا تکراری بودن ظاهر بشه
ممنون میشم اگر کدشو بهم بدید
سپاس
نمونه فایلو قرار میدم[ATTACH]16569[/ATTACH]

[ali.b]

سلام فایل زیر رو ببینید
داخل یوزرفرم یک تکست باکس دارم واسه وارد کردن کد ملی شخص
یک دکمه هم زیرش که این مقدار رو با مقدار های داخل ستون b شیت1 مطابقت بده اگر تکراری بود پیغام بده
ویا اینکه اصلا کاربر دکمه رو نزه به محض تایپ کدملی مقدارشو بررسی کنه و حالا رنگش قرمز بشه و خطا تکراری بودن ظاهر بشه
ممنون میشم اگر کدشو بهم بدید
سپاس
نمونه فایلو قرار میدم[ATTACH]16569[/ATTACH]

سلام
از نمونه کد زیر استفاده کنید

Private Sub TextBox1_Change()
If TextBox1.TextLength = 10 Then


For Each c In Sheet1.Range("a1:a100")
If c.Value <> "" And TextBox1.Text = c.Value Then
TextBox1.BackColor = &HFF&
MsgBox " ʘÑÇÑí ÇÓÊ"
TextBox1.BackColor = &H8000000F
TextBox1.Text = ""
Exit Sub


End If
Next c


End If
End Sub