الشيباني1 قام بنشر أكتوبر 15, 2011 مشاركة قام بنشر أكتوبر 15, 2011 اخواني الاعزاء تحية طيبه جاد احد عمالقة منتدانا الرائع بالكود المرفق الذي اتمنى اجراء تعديل عليه ليأخذ البيانات من الجدول المثبت في ( ورقة2 ) بدلا من الجدول الموجود في ( ورقة1 ) مع الامتنان تعديل في كود.zip رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 15, 2011 مشاركة قام بنشر أكتوبر 15, 2011 ياريت توضح أكثر ايه المطلوب من الكود؟ وانت عايز ايه منه وإن شاء الله ستجد ما يسرك 1 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 15, 2011 الكاتب مشاركة قام بنشر أكتوبر 15, 2011 اخي العزيز تحية طيبه ما اريده هو تعديل على الكود ( الاسطر المؤشره بالاحمر ) ليتم الاعتماد على الجدول في ( ورقة2) لاستخراج النتائج بدلا من الجدول في ( ورقة1) الذي ارغب بالغائه مع الشكر رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر أكتوبر 15, 2011 مشاركة قام بنشر أكتوبر 15, 2011 السلام عليكم اتمني ان يكون هذا هو المطلوب MAHMOUDFOXMAM تعديل في كود mahmoudfoxmam.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 16, 2011 الكاتب مشاركة قام بنشر أكتوبر 16, 2011 اخواني الاعزاء مع شكري وتقديري ارفق طيا مثالا لما وددت الحصول عليه راجيا المساعدة مع الشكر والامتنان معادلات الى كود.zip رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 16, 2011 الكاتب مشاركة قام بنشر أكتوبر 16, 2011 اخواني الاعزاء اعتذر عن الازعاج ولكن الموضوع ملح قليلا مع الشكر رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 16, 2011 مشاركة قام بنشر أكتوبر 16, 2011 عزيزي الموضوع مش محتاج كود ضع في الخلية h5 المعادلة الآتية =VLOOKUP(F5,ورقة2!B$3:D$10,2) ثم استخدم التعبئة التلقائية لباقي العمود وكذلك في الخلية j5 وضع بها المعادلة التالية =VLOOKUP(F5,ورقة2!B$3:D$10,3) ثم استخدم التعبئة التلقائية لباقي العمود .... جرب وأخبرني بالنتيجة 1 رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر أكتوبر 16, 2011 مشاركة قام بنشر أكتوبر 16, 2011 السلام عليكم استاذنا mas123 معادلة رائعة جزاك الله كل خير :fff: رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أكتوبر 16, 2011 مشاركة قام بنشر أكتوبر 16, 2011 تشكر استاذ " محمد صالح " جزاك الله كل الخير ابو الحارث رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 17, 2011 الكاتب مشاركة قام بنشر أكتوبر 17, 2011 استاذنا الكريم تحية طيبه موضوع المعادلات كان هو الاساس الذي قام عليه البرنامج وطلبت في حينه من المنتدى تحويل هذه المعادلات الى كود وتفضل احد العمالقة بتقديم هذا الكود الرائع وانا اعمل عليه منذ حصلت عليه وبنجاح كبير واقتضت الضرورة ان احول جدول الاسعار من ( ورقة1 ) الى ( ورقة2 ) وما يوجبه ذلك من تعديل في الكود وكان استفساري اعلاه فأن كان التعديل غير ممكن سأكتفي بما لدي من كود مع الامتنان رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 17, 2011 مشاركة قام بنشر أكتوبر 17, 2011 اخي الفاضل على حد فهمي للمطلوب جرب الكود دا 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 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 17, 2011 الكاتب مشاركة قام بنشر أكتوبر 17, 2011 استاذنا الكريم مع شكري وتقديري ماذا بشأن بقية الاعمده ونتائجها حيث ان الكود الجديد بقتصر عمله على اظهار السعرين فقط ارجو ان كان ذلك ممكنا تعديل الكود الاصلي على ضوء الكود الاخير مع الامتنان رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 17, 2011 مشاركة قام بنشر أكتوبر 17, 2011 اخي الفاضل اظهار السعرين هو ما فهمته من طلبك فهل هناك طلب اخر ارجو التوضيح وهل الكود يفي بالغرض رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 17, 2011 الكاتب مشاركة قام بنشر أكتوبر 17, 2011 استاذنا العزيز مع تقديري لمساعدتكم الكود السابق يتضمن اجراءات تغني عن عدد من المعادلات ضمن الاعمده (A,H-L)وما تفضلتم به كان معادلتين فقط ( سعرا البيع والشراء ) ارجو ان كان ذلك ممكنا تحويل باقي المعادلات الى اكواد او تعديل الكود الاول ليأخذ بياناته من الجدول في ( ورقة2) بالنسبة للسعرين فقط واستمرار العمل بهيكلية البرنامج الاولى مع الشكر رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 17, 2011 مشاركة قام بنشر أكتوبر 17, 2011 اخي الفاضل بالنسبة لكودك السابق فانه لا يعمل فما هي طريقة عمله واذا اردت التعديل في الاسطر الحمراء فيمكن ذلك انا وضعت الكود بناء على فهمي بان المراد نقل قيم الخلايا حسب نوع المادة فارجو منك توضيح طريقة عمل كودك السابق واذا كان المطلوب فقط ان يقوم الكود باعتماد الجدول في ورقة 2 فيمكن التوصل الى حل ابواحمد رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 17, 2011 مشاركة قام بنشر أكتوبر 17, 2011 بص أخي الكريم سيبك من الكود الأصلي اللي بالملف لأني شخصيا مش فاهمه قول لنا ايه المطلوب أو ايه اللي كان الكود بيعمله بالضبط وسيتم تنفيذه بالكود بإذن الله معك في هذا الموضوع عباقرة المنتدى ومنهم محمود وياسر وعبد الله 1 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 17, 2011 الكاتب مشاركة قام بنشر أكتوبر 17, 2011 اساتذتنا الكرام اعتذر عن اشغالكم بهذا الموضوع ولكن كلي امل في احداث التغيير المطلوب الكود السابق يعمل عند تظليل الكميات ضمن عمودها وضغط الزر لانزال البيانات التي تحتاجها الاعمده ففي المثال الذي تتضمنه المشاركه رقم (5) اعلاه لو تم مسح الخلايا التي تتضمنها الاعمده (A,H-L)وظللنا البيانات التي يتضمنها العمود (G)والضغط على زر التشغيل ستظهر البيانات المطلوبه كل في عموده وهي فكرة جاد بها احد عمالقة المنتدى ووجدتها مريحة وخفيفة على البرنامج وابتعادا عن المعادلات الداخليه وكما اوضح الاستاذ عبد الله ان كان بالامكان تعديل الكود ليأخذ بيانات السعرين من ( ورقة2 ) بدلا من ( ورقة1 ) وتبقى معلومات الكود الاخرى كما هي مع الشكر رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 17, 2011 مشاركة قام بنشر أكتوبر 17, 2011 (معدل) اذا كان المطلوب هو هذا استبدل هذا السطر Set Price = Range("N7: P14") بهذا Set Price = Sheets("ورقة2").Range("B3:D10") ولاحظ النتيجة يمكنك مسح البيانات في الجدول الاصفر في ورقة 1 تم تعديل أكتوبر 17, 2011 بواسطه عبدالله المجرب رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أكتوبر 17, 2011 الكاتب مشاركة قام بنشر أكتوبر 17, 2011 استاذنا العزيز ذلك ما اردته بالضبط جزاك الله خير الجزاء وادامك لنا مرجعا رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 17, 2011 مشاركة قام بنشر أكتوبر 17, 2011 الحمد لله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.