عبدالله المجرب

الاستاذ الفاضل احمد وقبل ان افتح الملف انا متاكد من جودة العمل كما عهدناه منكم سلمت يداك ابواحمد

بالفعل عمل رائع يستحق الاستاذ بن عليه الثناء عليه =OFFSET(Sheet1!$A$2;;;COUNTA(Sheet1!$A:$A)-1) هذه هي معادلة تعريف List والله اعلم ابو احمد

اخي العيدروس اظنه يقصد هذا المرفق والله اعلم fin-st-ex1.rar

اخي الفاضل جرب المرفق قائمة منسدلة متغيرة.rar

الاستاذ الفاضل جمال بالفعل تعديلي الاخير كان على الدالة القديمة اشكرك جزيل الشكر على لفت الانتباه لا اقول الا لقد هرمنا هرمنا والدالة التي بالمشاركة الاولى بعد التعديل اصبحت كالاتي Function VLOOK2ALL(قيمة_البحث As Variant, جدول_البيانات As Range, عمود_النتيجة, رقم_الظهور) For x = 1 To جدول_البيانات.Rows.Count If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then Counter = Counter + 1 If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For If VLOOK2ALL = 0 Then VLOOK2ALL = "" End If End If Next End Function شكراً لك مرة اخرى

اخي الفاضل ارفق ملف لفهم المطلوب ويمكنك مراجعة الرابط ادناه يمكن ينفع http://www.officena.net/ib/index.php?showtopic=37164

اخي شمس الثورة تفضل المرفق شمس.rar

السلام عليكم المرفق هو ملف الاستاذ جمال الفار ليصبح التحميل من المنتدى الاخ wongchung2 راجع المشاركة الاولى في الرابط المرفق ففيها ملف ممتاز للتوزيع حسب الصفوف اول وثان ..... http://www.officena.net/ib/index.php?showtopic=37531 ابواحمد الفار.rar

الاخ الفاضل عمل ممتاز وجهد واضح تشكر عليه ابواحمد

استاذي ووالدي الفاضل جمال دغيدي في البداية جمعة مباركة هل تقصد ان كانت الدالة كما كتبها الاستاذ ابو تامر؟؟ فالجواب لا فالدالة اصبحت معربة ومشابهة لترتيب دالة Vlookup واصبح لها نيو لوك ولكن المضمون هو ما كتبه استاذنا الغائب ابو تامر ام ان القصد شيء اخر

اخي الفاضل هل هذا ما تقصده ابواحمد شمس الثورة.rar

اخي محمود الدالة من ابداع الاستاذ ابوتامر حفظه الله ورعاه واعاده الله الينا بكل خير ولي تعديلات لا تكاد تذكر ابواحمد

اخي workscad اهلا وسهلا بك بين اخوانك ابواحمد

السلام عليكم كما يعرف من استخدم دالة VLOOK2ALL فان ناتج الدالة اذا لم يكن هناك قيمة تكون صفر اليوم ارفق لكم تعديل طفيف لتصبح الخلية بدون بيانات اذا كانت النتيجة صفر التعديل هو اضافة هذا السطر الى الدالة If VLOOK2ALL = 0 Then VLOOK2ALL = "" لتصبح الدالة كالتالي Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة) For x = 1 To جدول_البيانات.Rows.Count If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then Counter = Counter + 1 If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For If VLOOK2ALL = 0 Then VLOOK2ALL = "" End If End If Next End Function

عند فتح محرر الاكواد ستجد موديل به الدالة اسحبه الى الملف الذي تريد او انسخ الكود والصقه في اي ملف وستجد الداله بين دوال الاكسل

اسف اخي الفاضل لم انتبه للشق الثاني تفضل المرفق اذا كان القيمه هي المرة الاولى يكون اللون اخضر اما اذا كانت الثانية اللون ازرق فاتح اكبر او يساوي ثلاث وردي اما بخصوص نقله الى اي ملف يمكنك نسخ المعادلة التي في التنسيق الشرطي مع مراعاة المدى ان شاء الله اكون وفقت VLOOK2ALL.rar

تفضل المرفق ATTAch23.rar

اخي تم استخدام دالة مضافة وهي VLOOK2ALL جرب المرفق VLOOK2ALL.rar

استاذعماد الحسامي حل رائع جداً بالاضافة الى الحل المميز للاستاذ عماد (سلمت يمينه) وحفظه الله ارفق لك حل باستخدام الحماية كود اخفاء المعادلات.zip

هل هذا ما تقصده حجم خانة الاختيار.rar

اخي جرب المرفق هناك مصدر مفقود للبيانات يرجى تحديده ATTAch22.rar

اخي هل الطلب يخص ملف وورد؟؟ اذا كان كذلك نرجو منك ارفاق ملف ليتمكن الاخوة في قسم الورد من المساعدة ابواحمد

الموضوع في القسم الخطاء يرجى من المشرفين نقله الى منتدى الاكسل * ملاحظة لصاحب الموضوع اذكر بانك رفعت طلب بنفس المطلب وكان هناك رد مني بان المطلوب غير مفهوم فيرجى منك التوسع في شرح المطلوب ابواحمد

اخي الفاضل راجع هذا الرابط عبدالله المجرب ان شاء الله تجد ما تريد

الاستاذ الفاضل جمال عمل ممتاز ومجهود تشكر عليه ابواحمد