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

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

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

 

زى م الموضوع مكتوب عايزامر طباعة ملفات بحيث لو العمود F او G فى اى رقم اكبر من الصفر فى الملف المرفق انا موضح كل حاجه

شهر 9.rar

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

طيب هو ينفع او ليها طريقه ؟؟؟

[أ / محمد صالح]

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

السلام عليكم أخي الكريم

أعتقد حضرتك كنت فتحت موضوع لنفس الغرض قبل كدة

ولم توضح المطلوب بالضبط

..............

إذا قلنا أن العمود F للكمية والعمود G للسعر الإجمالي

فبالتالي لن يكون في العمود G أرقام أكبر من صفر إذا لم يكن في العمود F أرقام أكبر من صفر

يعني ممكن نخلي الشرط على العمود G فقط

نأتي للنقطة المهمة وهي العمل على خلية واحدة في العمود G وليكن مثلا خلية المجموع النهائي (للصفحة) 

* ولكن بعد ملاحظة ملفك المرفق وجدت أن خلية المجموع غير موجودة إلا في الصفحة الأولى فقط

* وكذلك لاحظت أن فواصل الصفحات غير مضبوطة حيث تظهر الصفحة على أربع صفحات

لذلك لكي تحصل على ما تريد

رغم شكي في صياغة المطلوب

 

 

عايزامر طباعة ملفات بحيث لو العمود F او G فى اى رقم اكبر من الصفر

ما الملفات التي تريد طباعتها؟؟!!
يعني مثلا لو الخلية g38 فيها رقم أكبر من صفر يطبع ملف اسمه إيه

ولو خلية تانية يطبع ملف تاني اسمه إيه

؟؟؟!!!!!

أعتقد والله أعلم

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

حتى لا يتم طباعة صفحات فارغة

.................

برجاء تحديد المطلوب بدقة

ولا يوجد شيء اسمه مستحيل إلا في عقول الكسالى

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

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

[أ / محمد صالح]

تفضل أخي الكريم

تم تعديل الصفحات ليكون عدد صفوف الصفحة 39 صفا

وتم الاعتماد على الخلية G38 ومضاعفات 38 حتى 10 صفحات

 

print more 0 current page.rar

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

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

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

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

أخي الكريم

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

حل الأستاذ محمد صالح حل ممتاز جداً بارك الله فيه ..

تقبل تحياتي

[أ / محمد صالح]

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

الطبيعي والمنطقي في تنسيق الصفحات في إكسل أن تكون متساوية في عدد الصفوف والأعمدة

وبعد فحص ملفك وجدت أن الصفحة الأولى 39 صفا

ونظرا لأن عمليات التكرار في البرمجة منتظمة (يعني مضاعفات أي رقم)

ففمت بضبط باقي الصفحات على 39 صفا

واستعمالنا لخلية واحدة هي إجمالي المجموع g38 هو بديل لاستعمالنا لمجموعة كبيرة من الخلايا تقريبا 62 خلية

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

وإذا اعتمدت على خلية g46 أو g44 ومضاعفاتها فربما لن يتم طباعة أي صفحة (لأن هذا صف من صفوف صفحة وليس صفا يعبر عن الصفحة كلها كصف المجموع)

..............

طبعا أكيد خضرتك متقصدش العمود F أو العمود G كلها

أكيد تقصد ضمن الصفحة الواحدة

لذلك

يمكن تغيير كود الإجراء mas إلى ما يلي

Sub mas()
For n = 1 To 10
If WorksheetFunction.Sum(Range("f" & 6 + n * 38 - 38 & ":g" & 37 + n * 38 - 38)) > 0 Then
Range("g" & 6 + 1 * 38 - 38).Select
PrintCurrentPage
End If
Next n
MsgBox "Ok"
End Sub

ويعني الشرط الذي تم تغييره

إذا كان مجموع الخلايا F6:G37 أكبر من صفر يتم تحديد أول خلية في الصفحة ثم طباعة الصفحة الحالية

وهكذا يتكرر الكود مع الخلايا F44:G75 بإضافة 38 إلى الرقمين وهو عدد صفوف الصفحة

....................

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

وكل عام والجميع بخير

تم تعديل يوليو 5, 2015 بواسطه أ / محمد صالح

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

معلش اسف اخر حاجه ينفع تعملها اذا كان مجموع الخلايا من G6 الى G37 اكبر من الصفر يطبع الصفحه ولو يساوى صفر ميتطبعش ويتكرر على كل صفحه ----- اسف جدااااااااا انى بتعبك معايه ربنا يجعلو ف ميزان حسناتك

[أ / محمد صالح]

ينفع جدا الاعتماد على مجموع الخلايا g6:g37 اللي هو المفروض يكون في الخلية g38 كما قلت سابقا من البداية

لعمل ذلك يمكنك تغيير  "f" التي في السطر الثالث إلى "g"

وفي الأخير أنصحك أخي الكريم بمتابعة الدورات الموجودة في المنتدى

حتى يكون لديك الأساسيات ومن ثم تنطلق في فضاء الإكسل

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

تقريبا الكود فى مشكلة بيطبع الصفحه الاولى بس كذا مره لما غيرت f لــ G او لو مغيرتهاش بيطبع الورقه الاولى بس كذا مره

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

[أ / محمد صالح]

تقريبا الكود فى مشكلة بيطبع الصفحه الاولى بس كذا مره لما غيرت f لــ G او لو مغيرتهاش بيطبع الورقه الاولى بس كذا مره

جرب نسخ الإجراء كله وبلاش حكاية التعديل دي

Sub mas()
For n = 1 To 10
If WorksheetFunction.Sum(Range("g" & 6 + n * 38 - 38 & ":g" & 37 + n * 38 - 38)) > 0 Then
Range("g" & 6 + 1 * 38 - 38).Select
PrintCurrentPage
End If
Next n
MsgBox "Ok"
End Sub

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

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