ترحيل من شيت لأخر مع شرط وطباعة تقرير

[رؤوف1951]

بسم الله الرحمن الرحيم

الأخوة الأجاويد بموقع أوفسينا: منتدى الإكسل

تحية عطرة ملء الأرض والسماء قي شهر كريم من الأشهر الحرم وبعد:

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

المطلوب هو طباعة تقرير يومى وآخر أسبوعى وذلك عند الطلب وليس شئ دورى. وهذا ما تعبر عن الأزرار في الفورم الثاني

مرفق الملف ورحاء المساعدة

 

BookExample.rar

[أبو حنــــين]

السلام عليكم

أخي رؤوف جرب المرفق

 

BookExample_V1.rar

[رؤوف1951]

جزاك الله خيرا مقدما ولنا لقاء قريب بإذن الله

[رؤوف1951]

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

مرة ثانية أعجز عن أداء الشكر

[رؤوف1951]

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

الأخ الغالي أبو حنين ربنا يخليها له قد أكرمني بالرد بكود رائع ولم يبقي لي إلا طلب واحد ألا وهو يتم جمع الأعمدة في التقرير قبل طباعته.

برجاء المساعدة يا أهل VBA وكان لي أمل أن أرى مقترحاتكم بتمييز هذا البرنامج أو تنقيحه

والله الموفق 

[أبو حنــــين]

السلام عليكم أخي رؤوف

ما هي الأعمدة المعنية بالجمع  

 

[رؤوف1951]

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

أخي العالي 

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

ولكم وافر التحية

Report.rar

[أبو حنــــين]

السلام عليكم

تم عمل المطلوب  :  

BookExample_V2.rar

[رؤوف1951]

ربنا يخليك لينا وميحرمناش من كودك ويكون ذلك في ميزان حسناتك يا أبو حنين

    

تم تعديل أكتوبر 22, 2016 بواسطه رؤوف1951

[أبو حنــــين]

العفو  أخي رؤوف 

 

[رؤوف1951]

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

Private Sub TxtDat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TxtDat) = True Then

[أبو حنــــين]

السلام عليكم

هناك مربع نص إسمه  TxtDat

أجرينا الكود في الحدث :  TxtDat_Exit أي عند كتابة التاريخ و الخروج من مربع النص (  Exit )

أدرجنا السطر  If Not IsDate  أي إذا كان النص المدخل ليس بتاريخ ( رقم مثلا او نص ) يقوم الكود بتفريغ مربع النص " " =  TxtDat 

[رؤوف1951]

أخي العالي

تحية من الأعماق وشكرا وجزاك الله الخير وراحة البال ونصيحة لكم ولكل الأعضاء "القلق آفة سيئة وهو المسئول عن مرض القلب الذي أصابني" كفاكم الله شر القلق وشر المرض.... آمين يارب العالمين

أريد تطوير البرنامج : فى حالة كان التقرير يحتوي أكثر من صفحة مثلا ثلاث صفحات فأريد أن يتم الجمع للصفحة الأولى ويرحل إلى الصفحة التالية كصف أول وفي نهاية الصفحة الثانية يتم المجموع للصفحتين ثم يرحل المجموع للصفحة الثالثة كصف أول وهكذا... حتى ينتهي التقرير بغض النظر عن عدد صفحاته!!!!!! سأحاول عمل ذلك وأعرض للمشورة وتنقيح سيادتكم  وشاكرين مهللين