طباعة ملفات فى حالة وجود ارقام فى عمود معين ( مساعدة )

[محمد عبد الناصر]

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

 

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

دلوقتى عندى حوالى 40 شيت فكل صفحه العمود G فى الصفحه الاولى مثلا من G6 الى G39 لو فيه اى رقم اكبر من صفر فى اى خليه منهم يطبع الصفحه دىمش عايزو يعتمد على خليه معينه مش هينفع  ويدخل يشوف الى بعدها الصفحه رقم 2 والصفحه رقم 3 و 4 و5و6و7 وإلخ عايز اطبع كل الشيتات عندى حوالى فى الملف الاصلى 40 شيت

 

كان فى استاذ هنا ساعدنى اسمو /محمد صالح  بس الملف برضو مش شغال ومفيش اى حل لقيتو الملف المرفق فى الشيت رقم 1 فيه اكواد الاستاذ / محمد صالح ساعدنى فيها بس مش بتشتغل برضو يا اما الملف يطبع صفحه ويتجاهل صفحات معينه او يفضل يطبع اول صفحه بس

 

ياريت حد يساعدنى فى الملف محتاجو ضرورى وشكرا للأستاذ / محمد صالح على مساعدتو

9.rar

[ياسر خليل أبو البراء]

هل كل أوراق العمل سيتم العمل عليها أم أن هناك أوراق عمل سيتم تجاهلها؟

سؤال آخر : هل هناك أوراق عمل مخفية تريد أن ينطبق عليها الكود أم لا ؟؟

 

الملف غير معبر عن الطلب وهذا سيسبب أن يكون هناك لغط كثير بالموضوع ..أفضل في مثل تلك الموضوعات إرفاق الملف الأصلي ..يمكنك مسح البيانات الحساسة في الملف الأصلي ثم إرفاقه

[محمد عبد الناصر]

حضرتك انا عايزو يطبع اى ورقة فيها رقم اكبر من الصفر فى العمود G فى اى خليه فى اى شيت -  مفيش اوراق مخفيه لا

 

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

تم تعديل يوليو 21, 2015 بواسطه محمود فؤااد

[ياسر خليل أبو البراء]

جرب الكود التالي رغم أنني كنت أفضل العمل على الملف الأصلي للإطلاع عليه بشكل أدق

تم تجاهل الأوراق المخفية حتى لا يحدث خطأ بالكود إذا وجدت أوراق عمل مخفية

الملف المرفق في المشاركة الأولى بها أوراق عمل مخفية !!!

Sub YasserKhalil()
    Dim SH As Worksheet
    
    For Each SH In ActiveWorkbook.Worksheets
        With SH
            If .Visible = False Then GoTo 1
            If WorksheetFunction.CountIf(.Range("G6:G36"), ">0") > 0 Then
                .PrintPreview
            End If
        End With
1   Next SH
    MsgBox "OK"
End Sub

[محمد عبد الناصر]

انا اسف حضرتك برضو مش عايز يطبع الملف المرفق ده هو الملف الاصلى الى انا هشتغل عليه انا مكنتش عارف ارفعو عشان مساحتو 1.70ميجا ياريت حضرتك تعملهالى عليه  واسف جدااا انى بزعجك معايه

مستخلص 9 .rar

[ياسر خليل أبو البراء]

بدون تطبيقه على ملفك الأصلي .. الكود مجرد عمل معاينة

هل اشتغل الكود معك أم أعطاك رسالة خطأ ؟؟ أم أنه نفذ عملية المعاينة للطباعة ؟؟ لم تذكر أي تفاصيل

 

عموماً جرب تغير كلمة PrintPreview إلى Printout لتنفيذ الطباعة

[محمد عبد الناصر]

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

9.rar

[ياسر خليل أبو البراء]

الكود يعمل لدي بشكل جيد .. ويعمل مع أوراق العمل التي ينطبق عليها الشرط ....

 

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

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

لابد من إرفاق الملف الأصلي للعمل عليه والإطلاع على هيكلة المصنف ككل

[محمد عبد الناصر]

اهو حضرتك الملف المرفق د الملف الاصلى انا عايز فى العمود G لو فى رقم فى اى خليه فى الصفحه 1 يطبع الصفحه رقم 1 ويدخل على الصفحه رقم 2 يشوف لو فى رقم اكبر من صفرفى اى خليه فى العمود G يطبع الصفحه 2 ونفس الكلام فى الصفحه 3 ويدخل على الصفحه 4 كده لو مفيش اى رقم فى اى خليه فى العمود G اكبر من صفر ميطبعش الصفحه بـــس

 

الملف الاصلى مرفق ؛ واسف جدااااااااا على تعب حضرتك معايه

مستخلص 9 .rar

تم تعديل يوليو 25, 2015 بواسطه محمود فؤااد

[ياسر خليل أبو البراء]

أخي الكريم محمد فؤاد

يرجى رفع الملف مرة أخرى لمحاولة العمل عليه ... ويا ريت تحدد هل العمل على ورقة عمل واحدة أم على كل أوراق العمل ؟ أسأل عن أوراق العمل وليس الصفحات

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

تقبل تحياتي