طلب تصحيح هذا الكود للاخ مختار حسين محمود

[محمد عبدالسلام]

الســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه     

المرجو  تصحيح هذا الكود للاخ مختار حسين محمود وجزاه الله عنا خير الجزاء

المشكلة في الكود اذا وصلت للرقم  70اواكتر وتريد تعديل الرقم 65 سيتم ادراج سطر فارغ وهده مشكلة

تصحيح هذا الكود للاخ مختار حسين محمود.zip

تم تعديل سبتمبر 25, 2016 بواسطه محمد عبدالسلام

[مختار حسين محمود]

اخى الفاضل 

أولا جربت ملفك المرفق  لم اجد ما تقول

ثانيا شرط اضافة السطر الفارغ  فى الكود هو  :  ادخال بيانات فى الخلية E69  او أى خليه بعدها 

If Target.Column = 5 And Target.Row >= 69 Then
    If Len(Target.Value) > 0 Then
       Target.Offset(1).EntireRow.Insert , CopyOrigin:=xlFormula
       Range("E" & Rows.Count).End(xlUp).Offset(2, 4).Formula = "=SUM(INDIRECT(""i10:""&ADDRESS(ROW()-1,COLUMN(),4)))"
       Range("E" & Rows.Count).End(xlUp).Offset(5, 4).Formula = "=SUM(INDIRECT(ADDRESS(ROW()-3,COLUMN(),4)&"":""&ADDRESS(ROW()-2,COLUMN(),4)))-(INDIRECT(ADDRESS(ROW()-1,COLUMN(),4)))"
   End If
End If

وبصورة اخرى أى ادخال بيانات فى اى خلية من E10 و حتى E68  لن يترتب عليه اضافة سطر فارغ

راجع الملف مرة اخرى و على الزملاء تجربة الملف والحكم عليه                      تحياتى

[محمد عبدالسلام]

خي مختار حسين محمود جزاك الله خيرا

رجعت الملف عدة مرات  لكن  عند تعديل بيانات فى الخلية E69 يتم اضافة سطر

شاهد هذا الفيديو

 

 

https://youtu.be/zIRoa5JdD2w?t=1

 

 

 

 

 

تم تعديل سبتمبر 25, 2016 بواسطه محمد عبدالسلام

[سمير نجار]

44 دقائق مضت, مختار حسين محمود said:

أولا جربت ملفك المرفق  لم اجد ما تقول

ثانيا شرط اضافة السطر الفارغ  فى الكود هو  :  ادخال بيانات فى الخلية E69  او أى خليه بعدها 

وبصورة اخرى أى ادخال بيانات فى اى خلية من E10 و حتى E68  لن يترتب عليه اضافة سطر فارغ

راجع الملف مرة اخرى و على الزملاء تجربة الملف والحكم عليه                      تحياتى

استاذي الكريم مختار

بارك الله فيك وأرجو ان يسعنا حلمك وكرمك

لا يوجد مشكلة في المجال E10:E68 عند تعديل اي خلية ضمن المجال

لكن عندما تصل للخلية E69 عندها سيندرج سطر فارغ.

جرب عدل الخلية E69 ثم انتر ومرة ثانية ثم انتر و.......( لاحظ العمود" I " (مجموع الفاتورة - الباقي ....) ستكرر المعادلة في عدة خلايا

امر اخر : اذا وصلت بالاسماء الى الخلية E75  ارجع وعدل الخلية E72 مثلاُ عندها سيندرج سطر فارغ بين E72  و  E73

تحياتي

 

[محمد عبدالسلام]

الســلامَ عليكـــم ورَحِمَـــة الله وَبَركــآتــه     

مع كامل احترامي وتقديري  لأخينا مختار حسين محمود وجزاه الله عنا خير الجزاء

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

[مختار حسين محمود]

اخوتى الاحبة

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

بعنى لو ادخلت اسم الصنف فى E69 سيتم اضافة سطر فارغ

لو رجعت تعدل اسم الصنف فى E69 سيتم اضافة سطر اخر عندها سيكون عندك 2 سطر فارغ

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

 

 

[محمد عبدالسلام]

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

خي مختار حسين محمود جزاك الله خيرا لوسمحت هل من طريقة لالغاء سطر 2الفارغ لما يتم تعديل في الخليةE

تم تعديل سبتمبر 26, 2016 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

طلب تعديل هل من طريقة لالغاء سطر 2الفارغ لما يتم تعديل في الخليةE

تم تعديل سبتمبر 27, 2016 بواسطه محمد عبدالسلام

[مختار حسين محمود]

أقرب وأسهل طريقة هو

الاستعانة برسالة تأكيد اضافة أو عدم اضافة السطر  الفارغ من المستخدم 

تصحيح هذا الكود للاخ مختار حسين محمود.rar

[محمد عبدالسلام]

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

اريد عدم ظهور هده الرسالة  التي تسمح بي اضافة سطر فارغ

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

 

 

 

 

تم تعديل سبتمبر 27, 2016 بواسطه محمد عبدالسلام

[مختار حسين محمود]

و عليكم السلام اخى محمد

لا ازعاج بالنسبة لى على الاطلاق

سأحاول البحث عن طريقة أخرى لتلافى ذلك أو  يتقدم أحد الأخوة بحل آخر يناسبك

مع خالص تحياتى

[محمد عبدالسلام]

المرجو من الأخوة من لديه فكرة ان يقدم لنا المساعدة

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

[مختار حسين محمود]

اخى محمد

آخر ما توصلت اليه فى الوقت الراهن وحتى لا ندخل فى متاهات جديدة

الاستغناء عن اضافة السطر الفارغ نهائيا و الاستغناء عن كود اعادة الفاتورة الى الحجم الاصلى

المرفق التالى يتيح لك اضافة حتى 100 صنف فى النطاق E10 : E110 

تم اضافة تعليمة برمجية صغيرة  الى كود اضافة البيانات من الفورم الى الفاتورة

تتمثل فى اخفاء الصفوف الفارغة التى تلى آخر صنف فى الفاتورة  مع اظهار اجمالى الفاتورة فى نهاية الفاتورة

 

الحل في حجم ورقة الفاتورة 7.rar

[محمد عبدالسلام]

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

بارك الله فيك

انتظر حتى تظهر طريقة اخرى للكود