جلب للدوام عند اختيار رقم الوردية (سابقا: الرجاء المساعدة)

[monzermrem]

السلام عليكم

الرجاء المساعدة في الملف المرفق

Book1.zip

[طارق محمود]

السلام عليكم

 اخي الكريم

أولا أهلا ومرحبا بك بين إخوانك
 

ثانيا لابد ان تلتزم بقواعد المنتدي (ومنها إسم الموضوع - راجعها رجاءا)

وكترحاب بك ، لن يغلق الموضوع كما هو متبع ولكني سأغير أسمه ليتناسب مع طلبك

ثالثا تفضل المرفق ، إن شاء الله يكون هو ماتريد

 

 

جلب للدوام عند اختيار رقم الوردية.rar

[monzermrem]

الاخ طارق

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

[monzermrem]

طلب ثاني

هل يمكن ان يندرج على الشهر كله

[طارق محمود]

لم أفهم

ماذا تعني ، اشرح أكثر

[monzermrem]

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

Book11.zip

تم تعديل فبراير 20, 2013 بواسطه monzermrem

[monzermrem]

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

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

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

[منذر2000]

[طارق محمود]

السلام عليكم

 اخي الكريم

تفضل المرفق ، إن شاء الله يكون هو ماتريد

جلب للدوام عند اختيار رقم الوردية2.rar

[monzermrem]

السلام عليكم

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

[monzermrem]

الرجاء انظر الملف اخي الكريم واسف على الاطالة

ملفا.rar

تم تعديل فبراير 21, 2013 بواسطه monzermrem

[طارق محمود]

السلام عليكم

 

تفضل اخي  

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

 

ملفا2.rar

[monzermrem]

مشكور اخي ارجو النظر الى الملف

ملفا2.rar

[منذر2000]

موضوع رائع بارك الله فيكم

[طارق محمود]

أخي منذر (السائل) - monzermrem

أحسنت

فعلا المعادلة مضبوطة الآن

تستطيع أيضا عمل الخطوتين التاليتين لتطوير الملف

1. الأخذ بالنصيحة بالكومنت "معلومة زائدة: جرب أن تضع هنا المعادلة =  TEXT(F18,"dddd") ليتم حسابها اوتوماتيكيا من F18"
2. مسح المجال F25:F34 والغاء الدمج منه ونسخ معادلة OT hour من الأعلي للأسفل

ننتظرك قريبا مع فريق الموقع إن شاء الله

 

 

 

أخي منذر (الزائر) - monzer2000

جزاك الله خيرا

أشكر لك مرورك الكريم وكلماتك الطيبة

[monzermrem]

ارجو انو اكون عضو فعال في هاذا المنتدى الرائع وذلك بمساعدتكم واشرافكم الرائع

هل يمكن اخفاء المعادلات او حميتها

اخي الكريم في حال اضافة شهر جديد هل اضيف " المعادلة 

=  TEXT(F18,"dddd")

 ليتم حسابها اوتوماتيكيا من F18"اذا كان بداية الشهر غير يوم جمعة

يوجد طلب صغير داخل الملف وتم تعديل ارجو النظر دام فضلكم

111.rar

تم تعديل فبراير 23, 2013 بواسطه طارق محمود

[monzermrem]

up

[طارق محمود]

السلام عليكم

 

اخي الفاضل 

(1) نعم يمكن إخفاء المعادلات ويمكن حمايتها باستخدام الأكواد أو باستخدام الحماية

راجع نفسك واطلب ماتريد بالضبط

 

(2) نعم ،  في حال اضافة شهر جديد تضيف المعادلة المذكورة وستعمل اوتوماتيكيا معتمدة علي التاريخ الموجود في الخلية F18

وقد نسختها لك في باقي الخلايا

وكذلك الخلايا المجاورة التي بها التاريخ بالأخضر ، كله أصبح يعتمد علي الخلية F18 تضع بها أول يوم في أي شهر والباقي أوتوماتيكي

 

(3) تم استبدال المعادلات الطويلة في العمودين CK,CL بصيغة أقل طولا SUMIF لتلافي الخطأ الذي كان موجودا ولتقليل طول المعادلة ، فيسهل تتبعها وتصحيحها إن لزم الأمر

تفضل المرفق

111_2.rar

[monzermrem]

لا توجد كلامات تعبر عن شكري

[monzermrem]

اذا بل امكان عندما يكون الموظف في يوم off ليس يوم الجمعة هو يوم العطلة المحددة له  ووضع له دوام اريد طرييقة لمعرفة انه في يوم عطلة وهو مداوم اذ امكن بتغير لون الخلية وذلك اذا تم الغاء المعادلة او التعديل عليها يتغير لون الخلية  

[طارق محمود]

ممكن بالتنسيق الشرطي

ضع الشرط التالي

 

=AND(G$19="Pay code ",E20="off",G20 <>"",G20<>"weekend")

علي المجال $G$20:$CJ$35

[طارق محمود]

أو تفضل المرفق

ستجد لونا أحمر للخلية التي بها حضور في يوم موافق off

111_3.rar

[monzermrem]

اخي الكريم: طارق

بالنسبة للطلب الاول ليس هذا ما اريده بالضبط في حال تم تغير في اي معادلو او الغائها يعطيني لون  مثال في حال جلب الدوام بشكل الي عند اختيار الوردية  تم تغير الوقت وتم ازالة المعادلة هل بال مكان تغير لونها في حال التغير

 

طلب ثاني

 

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

تم تعديل فبراير 23, 2013 بواسطه monzermrem

[طارق محمود]

السلام عليكم

أخي الكريم

لم أفهم ماتعنيه جيدا في طلبك الأول

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

 

باستخدام الأكواد ، عند الضغط علي الزر الأسود يسألك عن التاريخ الذي تريد تثبيت البيانات لغايته ، مثلا 15فبراير (نصف الشهر الأول)

فيختار المدي من D18 إلي التاريخ الذي اخترته ويحول معادلاته إلي أرقام ثابتة ، كأنك كتبتها

ويبقي باقي الملف بالمعادلات

 

 

وهذا هو كود الزر

Sub del_equtn()

td = Format(Now, "dd-mmm-yyyy")
x = InputBox("الذي تريد تثبيت البيانات حتي ذلك التاريخ", "إدخل التاريخ", td)
    x2 = DateValue(x)
    For c = 5 To 99
        If x2 = Cells(18, c).Value Then y = c: GoTo 10
    Next c

10
Range("D18", Cells(35, y + 1)).Select
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
Cells(18, y).Select
Application.CutCopyMode = False

End Sub 

 

تفضل المرفق

111_4.rar

[monzermrem]

اخي الكريم

هل يمكن انا اضعها في ملف صلاحيات مستخدمين