نموذج اختبار الاسم

[ماجدجلال]

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

اخواني الاعزاء الملف المرفق به نموذج يتم فية اختبار الاسماء المدخلة هل هي موجودة مسبقا او لا , 

ارجو منكم المساعدة وشكرا لكم 

 

[ماجدجلال]

نست ارفاق الملف

156.zip

[ماجدجلال]

اخواني الاعزاء 

هناك ملاحظة مهمة حول الدالة المستخدمة وهي استخدمت الدالة conutif   وقد جعلت المدي غير محدد بمعني حعل الدالة اكثر مرونه قد تزيد الاسماء قي جدول الاسماء عن المدي المحدد مسبقا وقد لا ينتبه المستخدم الي ذلك وتحصل مشكلة 

والكود المستخدم هو :

If WorksheetFunction.CountIf(Worksheets("ÇáÇÓãÇÁ").Range("A7").End(xlDown), TextBox1)

ولكنة لم ينجح ارجو المساعدة وشكرا لكم 

[حسين العصلوجى]

جرب المرفق لعله يكون المطلوب 

 

H-المصنف1.rar

[ماجدجلال]

شكرا لك اخي حسين علي سرعة الرد 

ولكن اذا اردنا ان نجعل النطاق غير محدد 

وايضا من باب التعليم والفائدة هل يمكن جعل النطاق غير محدد 

a = Application.Match(TextBox1.Text, ورقة2.Range("a6:a65535"), 0)

اي نستبدل الجزء التالي   a65535   بهذا الجزء  .End(xlDown))   لكي نضم ان البحث يتم في النطاق الذي يوجد فية بيانات 

[حسين العصلوجى]

شكرا لك اخي حسين علي سرعة الرد 

ولكن اذا اردنا ان نجعل النطاق غير محدد 

وايضا من باب التعليم والفائدة هل يمكن جعل النطاق غير محدد 

a = Application.Match(TextBox1.Text, ورقة2.Range("a6:a65535"), 0)

اي نستبدل الجزء التالي   a65535   بهذا الجزء  .End(xlDown))   لكي نضم ان البحث يتم في النطاق الذي يوجد فية بيانات 

a = Application.Match(TextBox1.Text, ورقة2.Range("a6:a" & ورقة2.Range("A65536").End(xlUp).Row), 0)

استخدم هذا الكود بدل الكود السابق

[ماجدجلال]

شكرا لك اخي الكريم الف شكر