[طلب]مساعدة فى شيت مرتبات (ترحيل - طباعة)

[عاشق الاكسيل]

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

طلبى اليوم هو التعديل على هذا الشات اتمنى من الله ان يساعدنى احد الاخوة

وشكرا مقدما الى استاذ / ياسر خليل على كل ما قدمه لى من مساعدات

المعطيات :

1-يتكون الملف من 15 ورقة عمل (12ورقة تمثل شهور السنة - ورقة للخصومات - ورقة للسف - نموذج الطباعة)   مرفق

 

المطلوب:

1- عمود الخصومات فى اول 12 ورقة يملاء تلقائيا من ورقة الخصومات

2- عمود السلف فى اول 12 ورقة يملاء تلقائيا من ورقة السلف

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

بمعنى (موظف 1 قام بعمل سلفة بمقدر 900 جنيه على 3 شهور بداية من شهر يناير يدخل الكود 300 جنيه امام شهر يناير و 300 امام شهر فبراير و300 امام شهر مارس)

4-كود طباعة بحيث يتم طباعة الادارة المختارة فقط بناء على عمود AH

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

 

فى انتظار مساعدة الاخوة وشكرا للجميع

مرتبات.rar

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

أخي الحبيب ..نصيحة مني ..

لكي تجد المساعدة من الأخوة الأعضاء أفضل أن تكون الطلبات واحداً تلو الآخر .. حيث أن كثرة الطلبات تنفر الأعضاء من الموضوع ..

فكن ذكياً وابدأ في التعامل مع طلب طلب ، حتى إذا اكتمل الطلب كما تريد بالضبط تنتقل لطلب آخر وهكذا إلى أن يتم الأمر ..

تقبل تحياتي

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

بالنسبة للطلب الأول .كيف تريد للبيانات أن تنتقل بشكل تلقائي ..أقصد ما هي ورقة البيانات التي سيتم الإدخال فيها (ورقة الخصومات) ..ما هو النطاق المراد نقل البيانات منه ، وهل مع كل إدخال تريد تحديث للبيانات .؟

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

[عاشق الاكسيل]

بالنسبة للطلب الأول .كيف تريد للبيانات أن تنتقل بشكل تلقائي ..أقصد ما هي ورقة البيانات التي سيتم الإدخال فيها (ورقة الخصومات) ..ما هو النطاق المراد نقل البيانات منه ، وهل مع كل إدخال تريد تحديث للبيانات .؟

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

اخى العزيز /ياسر خليل

بالنسبة للطب الاول سوف اقوم بملاء ورقة العمل 1 (يناير) يدويا واريد بعد ذلك كود ترحيل الى ورقة 2 (فبراير)

وهكذا فى صفحة فبراير كود للترحيل الى مارس

ارجو ان تكون وصلت الفكرة وشكرا

واسف على كثر الطلبات ولكنى ظنيت ان اقول كل ما اريد افضل بكثر حتى لا يتعارض طلب مع الاخر وهذا ظنى

ورايك هو الصواب فعلا لعلك تلاحظ ان صفحة يناير بها بيانات فعلا باستثناء باقى الصفح 

وفى انتظار مساعدتك

تم تعديل مارس 19, 2015 بواسطه الباحث العربى

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

أخي اعذرني لعدم فهمك بشكل سريع ..

هل الإدخال في ورقة العمل المسماة (خصومات) أم أن الإدخال في أوراق العمل المسماة بالشهور ؟

نقطة أخرى إذا كان الإدخال في أوراق العمل المسماة بالشهور ... أين يتم الإدخال (هل يتم الإدخال في العمود AE الخاص بالخصومات ؟

نقطة أخيرة واعذرني لكثر الأسئلة لكني أحب أن تتضح الصورة كما ينبغي

هل هناك صلة بين الشهور أم أن كل شهر له إدخال منفصل لأنك قلت يتم الترحيل من يناير لفبراير ومن فبراير لمارس وهذا أمر لم أدركه تماماً .. كيف يتم الترحيل هل يتم جمع القيم القديمة أم ماذا ..صراحة هناك سوء فهم مني ...

وأعتذر عن كثرة الاستسفسارات ..وسبب كثر الاستسفسارات أن الملف بعيد عن مجال عملي ، فلا أستطيع أن أدرك الطلب بسهولة ..

تقبل تحياتي

[عاشق الاكسيل]

أخي اعذرني لعدم فهمك بشكل سريع ..

هل الإدخال في ورقة العمل المسماة (خصومات) أم أن الإدخال في أوراق العمل المسماة بالشهور ؟

نقطة أخرى إذا كان الإدخال في أوراق العمل المسماة بالشهور ... أين يتم الإدخال (هل يتم الإدخال في العمود AE الخاص بالخصومات ؟

نقطة أخيرة واعذرني لكثر الأسئلة لكني أحب أن تتضح الصورة كما ينبغي

هل هناك صلة بين الشهور أم أن كل شهر له إدخال منفصل لأنك قلت يتم الترحيل من يناير لفبراير ومن فبراير لمارس وهذا أمر لم أدركه تماماً .. كيف يتم الترحيل هل يتم جمع القيم القديمة أم ماذا ..صراحة هناك سوء فهم مني ...

وأعتذر عن كثرة الاستسفسارات ..وسبب كثر الاستسفسارات أن الملف بعيد عن مجال عملي ، فلا أستطيع أن أدرك الطلب بسهولة ..

تقبل تحياتي

اخى / ياسر خليل

لا تعتذر عن كثرة التساؤلات فهذا حقك لكى تتضح الفكرة امامك

اليك كامل التوضيح (الكمال لله عز وجل)

هذا الشيت لحساب المرتبات المستحقة للعاملين بالمنشاة

الاوراق الاتية سوف يتم ملاءها جميعا يدويا (اوراق الادخال)

يناير - الخصومات - السلف

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

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

ارجو ان تكون اضحت الفكرة والله الموفق

وشكرا على مساعدتك

تم تعديل مارس 19, 2015 بواسطه الباحث العربى

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

أخي الباحث ...

حاسس إني تايه ومش عارف أبدأ منين ..

إنت قولي ببساطة عايز ترحل منين لفين .. حدد ورقة العمل والعمود المراد ترحيله وورقة العمل الهدف والعمود الهدف ..

أعتقد إن موضوع الترحيل مش صعب على الإطلاق ..وإن شاء الله أحاول أساعدك

[عاشق الاكسيل]

أخي الباحث ...

حاسس إني تايه ومش عارف أبدأ منين ..

إنت قولي ببساطة عايز ترحل منين لفين .. حدد ورقة العمل والعمود المراد ترحيله وورقة العمل الهدف والعمود الهدف ..

أعتقد إن موضوع الترحيل مش صعب على الإطلاق ..وإن شاء الله أحاول أساعدك

الترحيل من ورقة (يناير) الى ورقة (فبراير)

الاعمدة المطلوب ترحيلها

A-B-C-D-E-F-G-H-I-J-K-L-M-S-T-U-V-W-Y-Z-AA-AB-AC-AD-AH

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

جرب الكود التالي ..

Sub Tarhil()
    Dim WSJan As Worksheet, WSFeb As Worksheet
    Dim LR As Long
    Dim MyRange As Range
    Set WSJan = Sheets("يناير"): Set WSFeb = Sheets("فبراير")
    LR = WSJan.Cells(Rows.Count, 2).End(xlUp).Row
    Application.ScreenUpdating = False
        'النطاق الأول
        WSJan.Range("A3:M" & LR).Copy
        WSFeb.Range("A3").PasteSpecial xlPasteValues
        'النطاق الثاني
        WSJan.Range("S3:W" & LR).Copy
        WSFeb.Range("S3").PasteSpecial xlPasteValues
        'النطاق الثالث
        WSJan.Range("Y3:AD" & LR).Copy
        WSFeb.Range("Y3").PasteSpecial xlPasteValues
        'النطاق الرابع
        WSJan.Range("AH3:AH" & LR).Copy
        WSFeb.Range("AH3").PasteSpecial xlPasteValues
    Application.ScreenUpdating = True
End Sub

[عاشق الاكسيل]

 

جرب الكود التالي ..

Sub Tarhil()
    Dim WSJan As Worksheet, WSFeb As Worksheet
    Dim LR As Long
    Dim MyRange As Range
    Set WSJan = Sheets("يناير"): Set WSFeb = Sheets("فبراير")
    LR = WSJan.Cells(Rows.Count, 2).End(xlUp).Row
    Application.ScreenUpdating = False
        'النطاق الأول
        WSJan.Range("A3:M" & LR).Copy
        WSFeb.Range("A3").PasteSpecial xlPasteValues
        'النطاق الثاني
        WSJan.Range("S3:W" & LR).Copy
        WSFeb.Range("S3").PasteSpecial xlPasteValues
        'النطاق الثالث
        WSJan.Range("Y3:AD" & LR).Copy
        WSFeb.Range("Y3").PasteSpecial xlPasteValues
        'النطاق الرابع 
        WSJan.Range("AH3:AH" & LR).Copy
        WSFeb.Range("AH3").PasteSpecial xlPasteValues
    Application.ScreenUpdating = True
End Sub

جربت الكود اخى العزيز ولكن دول جدوى

[عاشق الاكسيل]

الاستاذ الفاضل ياسر خليل

لقد حليت المشكلة باستخدام كود سابق ولكنه طويييييل ^^

برجاء المساعدة فى كود الطباعة

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

أخي الكريم

جربت الكود دون جدوى !! أنا مجرب الكود قبل أن أقوم بمشاركتك إياه والكود يعمل بشكل جيد جداً ...

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

أرجو موافتي بنوع المشكلة ؟

ولا تمل بسرعة من حل المشكلة ، كن صبوراً حتى تصل لهدفك إن شاء الله

[عاشق الاكسيل]

أخي الكريم

جربت الكود دون جدوى !! أنا مجرب الكود قبل أن أقوم بمشاركتك إياه والكود يعمل بشكل جيد جداً ...

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

أرجو موافتي بنوع المشكلة ؟

ولا تمل بسرعة من حل المشكلة ، كن صبوراً حتى تصل لهدفك إن شاء الله

اخى العزيز ياسر خليل 

اولا جمعة مباركة بمشيئة الله

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

الكود يعمل بشكل ممتاز الخطا كان منى

الان كل ما اريده هو كود لفصل بيانات كل ادارة على حدة بالاعتماد على العمود  AH

بمعنى اذا كان قيمة العمود AH (ادارة 1) يتم نقل كافة البيانات الموجودة وقيمة العمود ادارة 1 الى وررقة جديدة باسم ادارة 1

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

[عاشق الاكسيل]

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

بارك الله فيك اخى وجعلك الله عون دائما

 

لدى الان جزء بسيط وانهى المشروع الحالى باذن الله وسوف اطعلك عليه بمجرد انتهائى من اعداد الملف حتى تتضح الصورة كاملة باذن الله (الكمال لله)

[عاشق الاكسيل]

الاستاذ الجليل / ياسر خليل

اخر طلب بخصوص هذا الشان باذن الله

هو تطبيق فكرة طباعة كل المدارس او مدرسة حسب فلتر معين مرفقة

على هذا الشيت 

ولكن فى هذا الشيت هناك معيارين ( الادارة - النظام)

فى انتظار ردك الكريم

Print All Schools.rar

مرتبات.rar

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

أخي الفاضل وضح أكثر بمزيد من القول ..

ما هي ورقة العمل المراد طباعتها ؟؟ وما هي الشروط أو المعايير التي ستقوم بالطباعة على أساسها ؟ وأين هي الشروط أعتقد في العمود AH و AI في ورقة العمل المسماة "يناير" ..

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

[عاشق الاكسيل]

أخي الفاضل وضح أكثر بمزيد من القول ..

ما هي ورقة العمل المراد طباعتها ؟؟ وما هي الشروط أو المعايير التي ستقوم بالطباعة على أساسها ؟ وأين هي الشروط أعتقد في العمود AH و AI في ورقة العمل المسماة "يناير" ..

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

الورقة المراد طباعتها هى يناير

الشروط او المعايير فى صفحة يناير العمودين AH , AI

شكل الطباعة هو نفس شكل الورقة باستثناء واحد وبعد التعديلات ان امكن

فى حالة طباعة الكل يتم طباعة كل ادارة على حدا 

التسلسل طبقا للمطلوب وليس تسلسل الموظف فى ورقة يناير مثل الحال فى ورقة المدارس

الاستثناء لا يظهر خانة الادارة ولا النظام فى الطباعة اى العمودين AH,AI

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

مرفق الملف

مرتبات.rar

تم تعديل مارس 20, 2015 بواسطه الباحث العربى

[عاشق الاكسيل]

فى انتظارك استاذ ياسر خليل

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

أخي الكريم

إليك الملف التالي .. بناءً على معيار واحد وهو الإدارة ..حيث أنك لم تحدد مكان توضع فيه الشروط ..

جرب

Print Salary.rar