استبدال دالة sumif بال VBA ارجو المساعدة

[وجيه شرف الدين]

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

[رامي قلعجية]

29 دقائق مضت, سليم حاصبيا said:

أي صنف تزيده او تعدل قيمته يظهر في النتيجة

طيعاً بعد تنفيذ الكود بالضغط على الزر

ملاحظة الكود يتوقف عن العمل عند اي صف فارغ في شيت الاصناف لذلك لا تترك اي فراغ بين البيانات

و اذا اردت حذف صنف من الاصناف عليك حذف (الصف او الصفوف) بالكامل 

لا لزوم لترتيت الاصناف لان الكود لا ينظر الى المكرر مع انه يقوم بجمع القيم للمكررين مثلا يمكن في اخر صف  ادراج الصنف1 و بعده صنف 50  ثم صنف 4 الخ....

اخي سليم حاصبيا الكود رائع ولا شك بذالك ولكن اضافة الاصناف بالطبيعي تضاف قبل الحركة عليها بصفحة بالمبيعات. وعند اضافة الصنف في صفحة salim يقوم بحذف اسم الصنف مثلا لو ادخلت صنف ٩ وادخلت كامل المعلومات للصنف عند تنفيز الكود يجب اعطائي رقم 0 في العدد المباع ولا يحذف الصنف 

 

تم تعديل يونيو 1, 2019 بواسطه رامي قلعجية

[رامي قلعجية]

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

SUM_WITH DICTIONARY - Copy.rar

[سليم حاصبيا]

ما قمت بعمله يؤثر فعلاً 

جرب ان تمسح الصنف 10 مثلا من صفحة الاصناف وقم بتنفيذ الماكرو 

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

[رامي قلعجية]

7 ساعات مضت, سليم حاصبيا said:

ما قمت بعمله يؤثر فعلاً 

جرب ان تمسح الصنف 10 مثلا من صفحة الاصناف وقم بتنفيذ الماكرو 

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

ولكن اخي سليم انا فقط اريد جلب المعومات 

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

ان امكن ذالك ارجو منك فصل اي بيانات تتعلق بذالك حيث يتم فقط جلب البيانات من العدد المباع ولا اريد جلب كَود الصنف بل فقط العدد المباع 

شكرا لك كثيرا اتعبتك معي حاسس حالي اثقلت عليك اسف جدا 

[سليم حاصبيا]

فقط حدد لي اي ورقة هي المصدر للمعلومات واي ورقة هي الهدف (انا لا افهم ما تقصده)

اذ كانت ورقة المبيعات هي الهدف فما الفائدة من تكرار اسماء الأصناف فيها   3 مرات الصنف 1 /  5 مرات الصنف 2  الخ....

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

[رامي قلعجية]

ورقة المبيعات بيتكرر فيها الصنف 

لانه يوجد ورقة فاتورة بيترحل منها فواتير الى ورقة المبيعات عشان هيك بتتكرر فيها البيانات

ورقة الاصناف هي فقط لاداخل فيها صنف جديد 

ويتم فيها حساب الي انباع 

[رامي قلعجية]

اخي سليم اعزك الله بالاسلام

هل مللت مني ام ان امور الدنيا شغلتك عني ان كان هذا فلا بأس فأنا انتظر ردك وان كان غير ذالك فأسأل الله ان يكون خير 

[Ahmed Saad 2017]

في ١‏/٦‏/٢٠١٩ at 15:39, وجيه شرف الدين said:

انظر الى هذا التعديل لعله يفى بالغرض

التعديلsumif.xlsFetching info...

هل ممكن اضافة تعديل علي الكود بحيث يكون هناك اختيار OK او cancel في msgbox لتنفيذ الكود او الالغاء لانه بيحصل ان ممكن الضغط على زر تشغيل الكود بالخطأ و يتعذر إلغاء تشغيل الكود 

تم تعديل يونيو 2, 2019 بواسطه Ahmed Saad 2017

[رامي قلعجية]

اخي سليم انا ناطر 

[رامي قلعجية]

يا جماعة الخير تركتولنا الموضوع مفتوح 

لو سمحتم كفولي الطلب اذا امكن وشكرا لكم

[هانى محمد]

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

[رامي قلعجية]

شكرا اخي هاني محمد 

كل الي عملنا مأخدتش النتيجة الي عاوزها 

انا كنت بطلب حاجة وبيتعمل حاجة تانية

على كل احوال 

شكرا لكل الاعضاء واسف 

السلام عليكم ورحمة الله 

[سليم حاصبيا]

ممكن يكون هذا مثال عما تريد

Sub macro_with_msgbox()
Dim Answer As Byte
Answer = MsgBox(" If You Run This Macro I Can't Undo", 4)

 If Answer = 6 Then
 Rem ++++++++++++++++++++++++
 ' the Macro to Be run for example
 Range("a2", Range("a1").End(4)).Offset(1) = "Ok"
  Rem ++++++++++++++++++++++++
 End If
End Sub

الملف مرفق

Macro_with_Msgbox.xlsm

[رامي قلعجية]

شكرا اخي سليم 

مش دا المطلوب

انا شاكر ليك جدا تعبتك معي 

اعجز عن شكري ليك ومن قلبي

سلام يا طيب