اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل في كود


الردود الموصى بها

اخواني الاعزاء تحية طيبه جاد احد عمالقة منتدانا الرائع بالكود المرفق الذي اتمنى اجراء تعديل عليه ليأخذ البيانات من الجدول المثبت في ( ورقة2 ) بدلا من الجدول الموجود في ( ورقة1 ) مع الامتنان

تعديل في كود.zip

رابط هذا التعليق
شارك

ياريت توضح أكثر

ايه المطلوب من الكود؟

وانت عايز ايه منه

وإن شاء الله ستجد ما يسرك

  • Like 1
رابط هذا التعليق
شارك

اخي العزيز تحية طيبه ما اريده هو تعديل على الكود ( الاسطر المؤشره بالاحمر ) ليتم الاعتماد على الجدول في ( ورقة2) لاستخراج النتائج بدلا من الجدول في ( ورقة1) الذي ارغب بالغائه مع الشكر

رابط هذا التعليق
شارك

عزيزي الموضوع مش محتاج كود

ضع في الخلية h5 المعادلة الآتية


=VLOOKUP(F5,ورقة2!B$3:D$10,2)

ثم استخدم التعبئة التلقائية لباقي العمود وكذلك في الخلية j5 وضع بها المعادلة التالية

=VLOOKUP(F5,ورقة2!B$3:D$10,3)

ثم استخدم التعبئة التلقائية لباقي العمود

....

جرب وأخبرني بالنتيجة

  • Like 1
رابط هذا التعليق
شارك

استاذنا الكريم تحية طيبه موضوع المعادلات كان هو الاساس الذي قام عليه البرنامج وطلبت في حينه من المنتدى تحويل هذه المعادلات الى كود وتفضل احد العمالقة بتقديم هذا الكود الرائع وانا اعمل عليه منذ حصلت عليه وبنجاح كبير واقتضت الضرورة ان احول جدول الاسعار من ( ورقة1 ) الى ( ورقة2 ) وما يوجبه ذلك من تعديل في الكود وكان استفساري اعلاه فأن كان التعديل غير ممكن سأكتفي بما لدي من كود مع الامتنان

رابط هذا التعليق
شارك

اخي الفاضل

على حد فهمي للمطلوب

جرب الكود دا


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 لكل مادة

شاهد المرفق

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

اخي الفاضل

اظهار السعرين هو ما فهمته من طلبك

فهل هناك طلب اخر

ارجو التوضيح

وهل الكود يفي بالغرض

رابط هذا التعليق
شارك

استاذنا العزيز مع تقديري لمساعدتكم الكود السابق يتضمن اجراءات تغني عن عدد من المعادلات ضمن الاعمده (A,H-L)وما تفضلتم به كان معادلتين فقط ( سعرا البيع والشراء ) ارجو ان كان ذلك ممكنا تحويل باقي المعادلات الى اكواد او تعديل الكود الاول ليأخذ بياناته من الجدول في ( ورقة2) بالنسبة للسعرين فقط واستمرار العمل بهيكلية البرنامج الاولى مع الشكر

رابط هذا التعليق
شارك

اخي الفاضل

بالنسبة لكودك السابق فانه لا يعمل

فما هي طريقة عمله

واذا اردت التعديل في الاسطر الحمراء فيمكن ذلك

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

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

فيمكن التوصل الى حل

ابواحمد

رابط هذا التعليق
شارك

بص أخي الكريم

سيبك من الكود الأصلي اللي بالملف لأني شخصيا مش فاهمه

قول لنا ايه المطلوب أو ايه اللي كان الكود بيعمله بالضبط وسيتم تنفيذه بالكود بإذن الله

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

  • Like 1
رابط هذا التعليق
شارك

اساتذتنا الكرام اعتذر عن اشغالكم بهذا الموضوع ولكن كلي امل في احداث التغيير المطلوب الكود السابق يعمل عند تظليل الكميات ضمن عمودها وضغط الزر لانزال البيانات التي تحتاجها الاعمده ففي المثال الذي تتضمنه المشاركه رقم (5) اعلاه لو تم مسح الخلايا التي تتضمنها الاعمده (A,H-L)وظللنا البيانات التي يتضمنها العمود (G)والضغط على زر التشغيل ستظهر البيانات المطلوبه كل في عموده وهي فكرة جاد بها احد عمالقة المنتدى ووجدتها مريحة وخفيفة على البرنامج وابتعادا عن المعادلات الداخليه وكما اوضح الاستاذ عبد الله ان كان بالامكان تعديل الكود ليأخذ بيانات السعرين من ( ورقة2 ) بدلا من ( ورقة1 ) وتبقى معلومات الكود الاخرى كما هي مع الشكر

رابط هذا التعليق
شارك

اذا كان المطلوب هو هذا

استبدل هذا السطر


Set Price = Range("N7: P14")

بهذا

Set Price = Sheets("ورقة2").Range("B3:D10")

ولاحظ النتيجة يمكنك مسح البيانات في الجدول الاصفر في ورقة 1

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

من فضلك سجل دخول لتتمكن من التعليق

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information