اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

كود طباعة البيانات بعد التصفية.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)او اقوم بتغيير التنسيق الشرطي و في كود الطباعة ماذا اغير ارجو افادتي مع احترامي وتقديري لك ولجميع الاخوة الاعزاء

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

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

تم تعديل بواسطه عباس السماوي
رابط هذا التعليق
شارك

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

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

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

المرفق:

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

أبو أنس

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

أبو أنس

رابط هذا التعليق
شارك

  • 1 year later...

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

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

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

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

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

رابط هذا التعليق
شارك

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

بارك الله فيك

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information