تعديل على ملف مرتبات لعمل طباعة تسلسليه

[hany13]

أخوانى الكرام

أتقدم اولا بالشكر لكل القائمين على هذا العمل العظيم

لأنى اجد دائما هنا الحلول لكل ماأريد

لدى ملف به كود قمت بادخاله عليه لعمل طباعه تسلسليه

ولأنى لاأفهم فى الاكواد

يحتاج الملف لتعديل بسيط

كى يقوم بطباعة 3 قصاصات للمرتب فى صفحة واحدة بدلا من قصاصة واحدة بدون تدخل منى فى ذلك

الملف مرفق وأرجو مساعدتى لانجاز هذا العمل

HANY13.rar

[أبوعبد الله]

أخي العزيز / هاني

تم عمل اللازم وبالكود سيكون معاينة قبل الطباعة أي PRINTPREVIEW وهذا فقط للتجربة وحتى لا يخسر من سيجرب الملف أوراق للطباعة وبالطبع يمكنك تغيير الكود بهذا السطر من Sheets("Template").PrintPreview إلى Sheets("Template").PrintOut

مع ملاحظة أنه تم ربط طباعة استلامات الرواتب بعمود إجمالي الراتب العمود o وعلى ذلك أي موظف سيكون إجمالي راتبه = صفر فلن يطبع له استلام ، وسيتم كما طلبت طباعة كل 3 استلامات بورقة واحدة وإذا قمت بتعديل بزيادة عدد الموظفين يجب تعديل نهاية الحلقة التكرارية بالكود من 59 إلى رقم صف آخر موظف .

تحياتي

أبو عبدالله

HANY14.rar

[hany13]

أخى أبو عبدالله بارك الله فيك ياأخى واشكرك بشدة على تعبك ومجهودك الرائع

[hany13]

أخى الكود اكثر من رائع لكن يبقى جزء بسيط هنا الموظف صاحب الكود 1011 ليس له مرتب

ولكن عند الطباعة يتم طباعته ضمن من لهم راتب كيف يمكن تعديل ذلك فى الكود

مرفق ملف به الموظف الذى ليس له راتب باللون الاصفر

HANY14+Abo3abdallah.rar

[hany13]

للرفع

[أبوعبد الله]

أخي العزيز / هاني

أعتذر لك عن الخطأ وهو مجرد سهو في هذا الجزء من الكود فوضعته If Sheets("Payroll").Cells(I, "O")<> 0 Then

والصواب هو If Sheets("Payroll").Cells(I, "O").Value <> 0 Then يعني نسيت إن المفروض قيمة ( VALUE ) الخلية اللي فيها إجمالي الراتب من العمود O اللي فيه إجمالي الراتب لكل موظف .

تم التعديل بالمرفق .

تقبل تحياتي

أبو عبدالله

HANY14+Abo3abdallah.rar

[hany13]

أخى ابو عبدالله جربت الملف والكود يعمل بكفاءة لكن المشكلة ان الموظف صاحب الكود 1011 ليس له مرتب ولكن راتبه يظهر فى الطباعة كيف يمكن التغلب على هذه المشكلة بحيث يتم تجاهل اى موظف ليس له راتب فى امر الطباعة مع العلم بأن العمود الذى يحدد ذلك هو العامود x والذى يمثل صافى الراتب

[أبوعبد الله]

عزيزي هاني

حسب فكرتك أنت تريد الجمع بين أمرين يصعب حسب معلوماتي المتواضعة الجمع بينهم وهما طباعة 3 استلامات في ورقة واحدة مع المحافظة على ميزة عدم طباعة من ليس له راتب ، ولكن الواقع لو فرضنا حتى أن الموظف رقم 1011 ليس له راتب ( مع العلم أنت وضعت له راتب ولكن بالسالب ) ولكن الموظف قبله رقم 1010 والموظف بعده رقم 1012 لو أن لهم راتب أو حتى لأحدهما فقط فمن الطبيعي أنه سيشمل الطباعة معلومات الموظف رقم 1011 طالما أن الثلاثة بنفس الورقة وهذا هو الجانب السلبي في هذه الميزة أقصد طباعة 3 استلامات بورقة واحدة وعلى العكس من ذلك لو أنك تطبع لكل موظف استلامه بورقة واحدة لتححق لك إمكانية عدم طباعة من ليس له راتب أو حتى راتبه بالسالب ، أما بخصوص عمود التحم بالطباعة أنه العمود X فلا يوجد مشكلة ويمكنك تعديله بالكود بهذا الجزء If Sheets("Payroll").Cells(I, "O").Value <> 0 Then قم بتغيير حرف ال O إلى حرف ال X هذا والله تعالى أعلم .

تحياتي

أبو عبدالله

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

أخي هاني

تم إضافة حل جديد على الرابط التالي

http://excel4us.com/vb/showthread.php?t=705&page=2

المشاركة رقم 16

[hany13]

أخى أبو عبدالله جزاك الله كل خير تعبتك كثيرا معى

أخى ياسر تابعت حلك وهو امر رائع أن نرى ابدعات جميلة مثل هذا

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

أخي هاني

لا إبداعات ولا حاجة ... كل الحكاية تجميعة أفكار

فقد استقيت الفكرة الأولى من معلمي وأستاذي وملهمي أبو عبد الله - جزاه الله عنا خير الجزاء

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

وجمعت الفكرتين وضربتهم في كود وطرحت المشكلة أرضاً !!!