كود لطباعة النتائج بعد التصفية التلقائية مع الهامش اسفل البيانات

[أبو محمد عباس]

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

الاخوة الاعزاء والاساتذة الافاضل جزاكم الله خيرا

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

ارجو مساعدتي في كود لطبع النتائج بعد التصفية وظهور الهامش اسفل النتائج في الطباعة

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

كود طباعة البيانات بعد التصفية.rar

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Sub طباعة()

Dim a, x

   x = Cells(Rows.Count, 2).End(xlUp).Row

   a = "A5:O" & x

   Range(a).SpecialCells(xlCellTypeVisible).PrintOut

End Sub

[أبو محمد عباس]

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

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

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

ولي طلب اخر منك او من الاساتذة الكرام حفظكم الله جميعا بعد حل المشكلة انفة الذكر ارجو مساعدتي في حال البيانات كبيرة وتحتاج الى ورقتين او اكثر ارجو اظهار الصف الاول( O6:A6 ) في جميع الاوراق مع الهامش

ودمتم في رعاية الله وحفظه

[أبو أنس حاجب]

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

بعد أذن سيدي وأستاذي أبا نصار حفظه الله

وذلك فقط للتخفيف عليه.

أخي الفاضل عباس السماوي حفظكم الله

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

المرفق:

كود طباعة البيانات بعد التصفية2.rar

أبو أنس

[أبو محمد عباس]

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

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

كود رائع ويعمل بشكل ممتاز جعله الله سبحانه وتعالى في ميزان حسناتك لكن انا استغنيت عن الهامش القديم من السطر 309 الى السطر 313 واستبدلته في السطرين الاخيرين 314و315 فقط هل اقوم بحذف الصفوف الزائدة ( من الصف 309-313)او اقوم بتغيير التنسيق الشرطي و في كود الطباعة ماذا اغير ارجو افادتي مع احترامي وتقديري لك ولجميع الاخوة الاعزاء

والشكر والتقدير الى الاخ ابو نصار جزاه الله خيرا وبارك فيه

ودمتم في رعاية الله وحفظه

تم تعديل نوفمبر 25, 2012 بواسطه عباس السماوي

[أبو أنس حاجب]

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

أخي الفاضل عباس السماوي حفظكم الله

جرب عله المطلوب.

المرفق:

كود طباعة البيانات بعد التصفية3.rar

أبو أنس

[أبو محمد عباس]

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

الاستاذ والاخ الحبيب أبوأنس حفظكم الباري عزّ وجلّ ورعاكم ورزقكم خير الدنيا وخير الاخره وبارك في رزقكم

كود اكثر من رائع وهو المطلوب بالفعل وانا اعتذر لانني كثرت عليك الطلبات

ودمتم في رعاية الله وحفظه

[أبو أنس حاجب]

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

أخي الفاضل عباس السماوي حفظكم الله

الحمد لله بأن وفقنا للوصول إلى المطلوب.

جزاكم الله كل خير على دعائكم ولكم بمثله وزيادة.

أبو أنس

[مختا28]

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

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

 لديا الملف المرفق وهو عبارة عن نتائج فصلية لتلاميذ لكل فصل كشف نقاط

اريد المساعدة في  وضع ماكرو للطباعة كل الكشوف بنقرة على زر واحد

الجذع المشترك آداب.rar

[حمادة عمر]

الاخ الكريم / مختا28

بارك الله فيك

ولكن اخي الكريم قم بوضع

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

[mohammedbee]

ازاي نضيف الكود للبرنامج