طلب كود vba لمنع تكرار الادخال

[mahmoudafefy]

السلام عليكم ورحمه الله وبركاته

 

 

انا عملت نموذج ادخال وهو شغال تمام بس فيه مشكله واحده

 

 

انا عامل زى للبحث عن اول سطر فارغ ويكتب فيه تمام المشكله انى لما بكتب اسم وبدوس ادخاال الأسم بيتكتب عادى لو مسحت وكتبت نفس الاسم مره تانيه الاسم بردو بيتكتب عاو احلى التكست بوكس او البتون ميكررش الاسم اكثر من مره وشكرا 

 

 

ورقه بالحصه.rar

تم تعديل أغسطس 22, 2013 بواسطه mahmoudafefy

[ياسر خليل أبو البراء]

أخي الحبيب عذراً أرفق ملفك لكي يسهل على الأخوة الأفاضل مساعدتك

[mahmoudafefy]

تم

[الـعيدروس]

السلام عليكم

 

تفضل المرفقات

ورقه بالحصه_1.rar

[mahmoudafefy]

تمام ياريت بعد اذنك بس تفهمنى الكود وكمان عاوز زى حفظ كمان انا عامل فى خانه الاسم لما ابحث هيظهرلى الاسم لو مسحتو ودوست حفظ بيتمسح فأنا لو كاتب اسمين مختلفين وجيت عملت مسح للأسم التانى وخليتو زى الاول ودوست حفظ بيتسيف عادى وبيبقى فى اسمين تحت بعض بنفس الاسم 

 

ياريت تكون فهمتنى 

 

 

ورقه بالحصه.rar

[الـعيدروس]

السلام عليكم

Ch = TextBox1
'-----------------------------------------------
' A'اخر صف به بيانات للعمود
La = Cells(Rows.Count, 1).End(xlUp).Row
 'CountIf = حساب عدد الخلايا في نطاق والتي تحقق الشرط المعطى
 ' النطاق = Range("A14:A" & اخر صف به بيانات)
 ' الشرط = Ch ' متغير لمربع النص
 If Application.CountIf(Range("A14:A" & La), Ch) = 1 Then
  MsgBox "الاسم مكرر": TextBox1 = "": TextBox1.SetFocus: Exit Sub
 End If

تم عمل تنبية للتكرار على زر الحفظ ايضاً في المرفقات

ورقه بالحصه_2.rar

[أبو عبد الملك السوفي]

السلام عليكم

أخي عباد أرجو أن تضيف هذا الكودللملف المرفق في شيت كل القوائم فأنا أيضا لا أريد أن يتكرر الاسم

و بشرط أن يكون التنبيه عند زر ترحيل البيانات في نموذج إدخال بيانات جديدة

برنامج المنحة المدرسية 18.rar