تحويل دالة sumif إلى كود

[مصطفى احمد سلطان]

حل المشكلة

اريد تحويل دالة sumif إلى كود فى زر vba لتنفيذ الأمر التالى

 sheet(1) .range("b2:b")

هوا اسماء العملاء 

و  sheet(2) .range("b2:b")

هوا نطاق البحث به اسماء العملاء فى المسحوبات

و  sheet(2) .range("d2:d")

هوا مديونية العملاء 

اريد إظهار مديونية كل عميل بجوار اسمه فى 

 فى sheet(1) .range("c2:c")

بمعنى تحويل الداله التاليه إلى كود 

C2:c=

Sumif(sheet(2)b2:b;sheet(1)b2:b;sheet(2)d2:d)

للتوضيح اكثر 

عندى فى sheet 1 اسماء العملاء فى العمود b من b1 و حتى b50 

و العمود c  فى sheet1 اريد تجميع المديونية كا رقم و وضع كل مديونية بجوار اسم العميل

و sheet2 يوجد به الحسابات 

اسماء العملاء فى العمود b كامل ,و الارقام الحسابات فى عمود d  ... ارجوا المساعده و لكم جزيل الشكر

انتبه من فضلك ... مشاركة مكررة تـــم بالفعل حذف المشاركة الأخرى

عنوان مخالف ... تــــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

يومية.xls

[نزار سليمان عيد]

استخدم المعادلة ادناه

=SUMIF(الفواتير!B$2:B$7;'مديونية العملاء'!B2;الفواتير!F$2:F$7)

فضلا انظر للمرفق

يومية.xls

[مصطفى احمد سلطان]

أستاذى الكريم نزار سليمان عيد  شكرا على اهتمامك ,,لكنى اريد كود vba بدلا من الداله ..أنا بصمم برنامج حسابات و الحمد و بفضل الله و فضل حضراتكم 

اكتمل البرنامج فيما عدا هذا الكود لا اريد استخدام الدوال نظرا لبطء التنفيذ .. و لك منى جزيل الشكر

 

[عبدالله الصاري]

السلام عليكم 

اكتب المعادلة التى تريد تحويلها الى كود وايشر خيرا ان شاء الله

وان كانت معادلة الاستاذ نزار هي المطلوبة فاعلمنى .

[مصطفى احمد سلطان]

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

أستاذى الفاضل عبدالله الصاري   نعم هيه بالفعل كما قال الأستاذ نزار ,, لكنى أريدها كود و ليس ميكرو ..و لك منى جزيل الشكر

 

 

 

 

[عبدالله الصاري]

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

تم تحويل المعادلة الى كود لعدد الف صف

تحياتي

يومية.xlsb

 

[مصطفى احمد سلطان]

جزاكم الله خيرا يا اخي الكريم

عبدالله الصاري

مشكور على جهدك و ادعو  الله لك الصحه و العافيه