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

استاذ نارت ابو ادم كلماتك عذبة بليغة جميلة شيقة تشد القارئ ما شاء الله عليك مبارك الترقية المستحقة وكل الشكر للاستاذ محمد على تقديره للجهود ابواحمد

السلام عليكم الاستاذ الفاضل محمد طاهر اولاً: شكراً لكم على هذا التقدير ثانياً : لا شكر على واجب ، وما اقوم به لا يساوي شيء كرد جميل لكم وللاساتذه الذين انارو لنا الطريق ثالثاً : اسأل الله العظيم رب العرش العظيم ان يديم هذا النشاط وروح المحبة والتفاني بيننا اخيراً : اهنئ نفسي واخواني كلاً فيما يخصه من ترقيات والسلام عليكم ورحمة الله وبركاته ابواحمد

اخي فضل شكراً لهذا الكم الهائل من المديح ابواحمد

سوال الى الاخ السائل لماذا لا تضع السلع في نفس الملف بدل وضعه في ملف منفصل (سيسهل عليك التعامل مع الدوال) ابواحمد

اخي الفاضل الشهابي شكراً لك الابن البار حمد شكراً لك على الدعم المتواصل

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

اولاً: لا شكر على واجب ثانياً : وحسب ما انا فهمت ضع السعر الجديد في الخلية الصفر ولاحظ النتيجة ابواحمد حفظ التغيير في الاسهم.rar

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

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

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

اخي ابو الشرف سيتم دمج الموضوعين وتعديل العنوان ============ الملاحظ في ملفك المرفق لا يوجد ميكرو الدالة فكيف تريدها ان تعمل (الدالة معرفة ويجب نسخ كودها الى ملفك) جربت انا التعامل مع هذه الدالة في ملف الاستاذ عمر الحسيني (اعاده الله الينا ومتعه بالصحة والعافية) ولاحظت بان الدالة لا تظهر الا صورة واحدة فقط اذا وضعت الصور أفقياً والله اعلم

اخي الفاضل تم عمل المطلوب في ملفك المرفق التالى والسابق.rar

اخي الفاضل اخي يمكنك استخدام الدالة SUMPRODUCT لعمل ذلك ابواحمد

اخي وائل اطمع براحتك فانت في أوفيسنا ابواحمد

اخي فضل راجع هذه المشاركة فلعل فيها ما يفيدك http://www.officena.net/ib/index.php?showtopic=38812

اذا كان المطلوب هو هذا استبدل هذا السطر Set Price = Range("N7: P14") بهذا Set Price = Sheets("ورقة2").Range("B3:D10") ولاحظ النتيجة يمكنك مسح البيانات في الجدول الاصفر في ورقة 1

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

السلام عليكم اخي الفاضل انت وضعت الملف ولكن لم تضع الباسوورد باسوورد فتح الملف هو 123 ابواحمد

شكراً للجميع شكراً لكل هذا الدعم انتم تحملونا ما لا نطيق ابواحمد

اخي الفاضل اظهار السعرين هو ما فهمته من طلبك فهل هناك طلب اخر ارجو التوضيح وهل الكود يفي بالغرض

بعد اذن الولد البار احمد جرب المرفق ان شاء الله هذا طلبك موردين1.rar

الاخ الفاضل / ابو ناصر حياك الله بين إخوانك وهذا هو ما ممرننا به جميعاً ففي اعناقنا جميل لأعمدة هذا الصرح لن نوفيه حقه مهما فعلنا ======== سيتم نقل الموضوع للمنتدى المفتوح فهو الاولى بمثل هذه المواضيع

الاستاذ الفاضل نارت ابا ادم الاخ العزيز الفارس الخلوق ابا الحارث اخي محمود شكراً جزيلاً لكم ابواحمد

اخي الفاضل على حد فهمي للمطلوب جرب الكود دا Sub dd() Dim cl As Range Dim c As Range For Each c In Sheets("ورقة2").Range("B3:D10") x = c.Value For Each cl In Range("f5:F28") If cl.Value = x Then Cells(cl.Row, 8).Value = Sheets("ورقة2").Cells(c.Row, 3).Value Cells(cl.Row, 10).Value = Sheets("ورقة2").Cells(c.Row, 4).Value End If Next cl Next c End Sub سيقوم بجلب البيانات من الجدول في الورقة 2 لكل مادة شاهد المرفق معادلات الى كود.zip

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