ماجدجلال قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 السلام عليكم ورحمة الله وبركاته اخواني الاعزاء الملف المرفق به نموذج يتم فية اختبار الاسماء المدخلة هل هي موجودة مسبقا او لا , ارجو منكم المساعدة وشكرا لكم
ماجدجلال قام بنشر مايو 14, 2014 الكاتب قام بنشر مايو 14, 2014 اخواني الاعزاء هناك ملاحظة مهمة حول الدالة المستخدمة وهي استخدمت الدالة conutif وقد جعلت المدي غير محدد بمعني حعل الدالة اكثر مرونه قد تزيد الاسماء قي جدول الاسماء عن المدي المحدد مسبقا وقد لا ينتبه المستخدم الي ذلك وتحصل مشكلة والكود المستخدم هو : If WorksheetFunction.CountIf(Worksheets("ÇáÇÓãÇÁ").Range("A7").End(xlDown), TextBox1) ولكنة لم ينجح ارجو المساعدة وشكرا لكم
حسين العصلوجى قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 جرب المرفق لعله يكون المطلوب H-المصنف1.rar
ماجدجلال قام بنشر مايو 14, 2014 الكاتب قام بنشر مايو 14, 2014 شكرا لك اخي حسين علي سرعة الرد ولكن اذا اردنا ان نجعل النطاق غير محدد وايضا من باب التعليم والفائدة هل يمكن جعل النطاق غير محدد a = Application.Match(TextBox1.Text, ورقة2.Range("a6:a65535"), 0) اي نستبدل الجزء التالي a65535 بهذا الجزء .End(xlDown)) لكي نضم ان البحث يتم في النطاق الذي يوجد فية بيانات
حسين العصلوجى قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 شكرا لك اخي حسين علي سرعة الرد ولكن اذا اردنا ان نجعل النطاق غير محدد وايضا من باب التعليم والفائدة هل يمكن جعل النطاق غير محدد 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) استخدم هذا الكود بدل الكود السابق
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.