عبد الله السعيد قام بنشر فبراير 19, 2022 مشاركة قام بنشر فبراير 19, 2022 السلام عليكم لدي ورقة عمل بها 31 جدول وهما نفس الجداول ولكن كل جدول خاص بيوم من الشهر ( 1 2 3 4 .... 31 ) وكل يوم لدي 22 عميل وقابلين للزيادة اخد منهم مبالغ للمنتجات الخاصة لدي وهما 7 منتجات وقابلين ايضا للزيادة في نهاية اليوم او في اي وقت احيانا احتاج الى طباعة الجداول منسقة ورى بعضها البعض بحيث كل ورقة تأخد يوم بمفرده ، واريد اكواد بحيث اخفي اي عميل ( صف ) لم يحصل منه اي مبالغ اي بمعني اي صف مجموعه صفر يتم اخفاءة فقط ولو اردت اظهار الكل مرة اخرى اظهره بعد ان اطبع مرفق مثال ل 5 جداول فقط Zeroo.xlsx رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 19, 2022 مشاركة قام بنشر فبراير 19, 2022 وعليكم السلام اخي عبد الله السعيد تفضل طلبك Zeroo.xlsm 1 رابط هذا التعليق شارك More sharing options...
عبد الله السعيد قام بنشر فبراير 19, 2022 الكاتب مشاركة قام بنشر فبراير 19, 2022 تسلم اخي على الرد والاهتمام والحل ولكني لو تسمح اريد كود اخفاء الصفوف اولا وكود لأظهار الصفوف قبل الطباعة كما اريد ان يظل الفواصل موجودة ولا تحذف والصف الأول به التاريخ كذلك قد حذف بارك الله فيك رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 20, 2022 مشاركة قام بنشر فبراير 20, 2022 اخي عبد الله السعيد تفضل Zeroo.xlsm ان شاء الله يكون المطلوب 2 رابط هذا التعليق شارك More sharing options...
عبد الله السعيد قام بنشر فبراير 20, 2022 الكاتب مشاركة قام بنشر فبراير 20, 2022 سلمت يداك اخي الفاضل انا اريد قبل ان يرحل الى الطباعة مباشرة ، كودين متواجدين امامي كود اخفاء وكود اظهار للمراجعة وتعديل بعض الامور ومن ثم كود الطباعة بارك الله فيك رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 20, 2022 مشاركة قام بنشر فبراير 20, 2022 اخي عبد الله السعيد بألفعل موجود داخل الملف المرسل سابقاً ... تفضل مع الشرح Sub طباعه_دون_فراغ() Application.ScreenUpdating = False Range("P1:P200").AutoFilter Field:=1, Criteria1:="<>" 'هنا اخفاء قبل التنفيز ActiveSheet.PageSetup.PrintArea = "a1:L200" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("P1:P200").AutoFilter 'هنا اظهار بعد التنفيز Application.ScreenUpdating = True End Sub 1 رابط هذا التعليق شارك More sharing options...
عبد الله السعيد قام بنشر فبراير 20, 2022 الكاتب مشاركة قام بنشر فبراير 20, 2022 سلمت يداك انا اطبق بالفعل الكود يعطيني على طول طباعه رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 20, 2022 مشاركة قام بنشر فبراير 20, 2022 اخي انا مش فاهم هل تريد معاينه قبل الطباعه ؟ رابط هذا التعليق شارك More sharing options...
عبد الله السعيد قام بنشر فبراير 20, 2022 الكاتب مشاركة قام بنشر فبراير 20, 2022 اي نعم استاذي رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 20, 2022 مشاركة قام بنشر فبراير 20, 2022 اخي عبد الله السعيد - تفضل تم اضافة مسج يأسلك هل تريد الطباعه بعد المعاينة ام لا Sub طباعه_دون_فراغ() ActiveWindow.SelectedSheets.PrintPreview 'معاينة قبل الطباعة ' Reply = MsgBox(" هل تريد " & Chr(10) & " طباعة الفاتورة ", vbYesNo) 'هنا هل تريد طبع النسخ ام لا If Reply <> 6 Then Exit Sub 'هنا هل تريد طبع النسخ ام لا Application.ScreenUpdating = False Range("P1:P200").AutoFilter Field:=1, Criteria1:="<>" 'هنا اخفاء قبل التنفيز ActiveSheet.PageSetup.PrintArea = "a1:L200" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("P1:P200").AutoFilter 'هنا اظهار بعد التنفيز Application.ScreenUpdating = True End Sub الملف Zeroo.xlsm اظن هذا هو المطلوب 1 رابط هذا التعليق شارك More sharing options...
عبد الله السعيد قام بنشر فبراير 21, 2022 الكاتب مشاركة قام بنشر فبراير 21, 2022 سلمت يداك اشكرك اخي الغالي على تعبك ومجهودك وحتى يكتمل موضوعك بنجاح لو سمحت مازالت نفس المشكلة ، انا اريد اخفاء الصفوف الفارغة اولا قبل الطباعة تماما او اي شيء يخص الطباعة تماما الملف اعلاه اذا رفضت الطباعه لا يتم اخفاء الصفوف الفارغة انا اريد اولا زر اخفاء وظهور الصفوف الفارغة وزر اخر للطباعه بحيث كل جدول يكون في صفحة بمفرده اتمنى ان يكون قد وصلك ما اردته بوضوح رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 21, 2022 مشاركة قام بنشر فبراير 21, 2022 اخي عبد الله السعيد الكود المرسل يألفعل يقوم بالاتي يتم اخفاء اي عمود فارغ اما اذا ارت اخفاء جميع الخلاية الفارغه : يجب عليك توضيح ليه اكثر ؟: اذا ارت اخفاء جميع الخلاية الفارغة :يبقي سوف اقوم بالاتي 1:تخصيص عمود يكون موجود به شرط اذا تحقق الشرط يقوم باخفاء الخلاية المجاورة له في هذة الحالة يجب الكتابة تكون علي اتجاه واحد: سارفق لك ملف توضيحي رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 21, 2022 مشاركة قام بنشر فبراير 21, 2022 تفضل هكذا 22 ساعات مضت, محمد يوسف ابو يوسف said: تفضل هكذا وبكدة يتم الطباعه بدون فراغ رابط هذا التعليق شارك More sharing options...
عبد الله السعيد قام بنشر فبراير 21, 2022 الكاتب مشاركة قام بنشر فبراير 21, 2022 اخي الحبيب الكود بالفعل يقوم بما تقول ولكن يجبرني على الدخول على الطباعة وانا لا اريد الطباعه او معاينة قبل الطباعة ،، انا اريده كما هو بس بدون الدخول على الطباعة تماااااااااما جدول به صفوف قيمتها صفر يتم اخفائها بزر واظهار بزر رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد يوسف ابو يوسف قام بنشر فبراير 21, 2022 أفضل إجابة مشاركة قام بنشر فبراير 21, 2022 اخي عبد الله السعيد كان يجب عليك التوضيح من قبل لان الوقت محدود لدي - اسأل الله ان يعين الجميع علي عمله علي العموم تفضل ما طلبت ملفك Zeroo.xlsm 1 رابط هذا التعليق شارك More sharing options...
عبد الله السعيد قام بنشر فبراير 21, 2022 الكاتب مشاركة قام بنشر فبراير 21, 2022 اخي بارك الله فيك اولا واخيرا انا وضحت المطلوب اكثر من مرة بالفعل ، ربما لم اعبر جيدا بعتذر لك جداجدا وانا اريد الاجابتين مع بعض الاظهار والإخفاء والطباعة بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.