۩◊۩ أبو حنين ۩◊۩

اخى طارق كمان انه عند استحداث الشيت كما بالمرفق سيساعد على تحقيق المطلوب من استدعاء من هما بنفس المحافظه والاتصال بهم تليفونيا شاكر لك تعاوك Book2.rar

اخى طارق لقد اصبت عندما قلت أليس الأسهل أن تذهب للشيت الأول "Inbut data" وتعمل تصفية (فلتر) في هذا اليوم لكل من ليس فارغ وسيأتي لك الفلتر بجميع العمال المتواجدين في نفس اليوم ويمكنك من الفلتر إختيار فقط الــ E ، X ، T ، S ، D كما تريد ...... متفق جدا معك فى كل حرف ولاكن من يعمل على هذل الملف مستخدم بسيط حدا فى الاكسيل لها الا يمكن اضافه الشيت المطلوب ؟؟؟ جزالك الله خير على مجهودك

السلام عليكم اخى طارق جزالك الله خير على مجهودك الرائع اعلم انى اثقلت عليك سامحنى جزالك الله كل خير

اخى طارق مع الاسف لم استطيع ان احقق الامر فالمتغير cycle ليس ديناميكيا ولابد أن يتغير مع تغير الصفحة مما يتطلب تغيرا كبيرا فيه إضغط Ctrl-F3 لتستعرض النطاقات المسماة ثم إفتح المجال cycle وغير محتواه إلي التالي cycle=INDIRECT("'"&RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))&"'!$N$4") ولكن سيلزمك ريفريش مع كل صفحة تدخلها الريفريش (التنشيط) سيكون عن طريق F9 أو فتح أي معادلة (فتحها بالضغط علي F2) فقط ثم إنتر فلست ملم بلامر فسامحنى ... ارجو حلها من طرفك جزالك الله خير

اخى طارق فى اخر تعديل عند الدخول على شيت 2 او 3 او 4 اى شييت ويتم استدعاء بيانات الشهر البيانات التى تاتى هى المتواجده فى شهر 1 اى لا يتم استدعاء بيانات شهر 2 فى شييت 2 او بيانات شهر 3 فى شيت 3 ..... لاكن يتم استعدعاء شهر 1 وذلك فى جميع الاشهر اما توزيع الساعات يعمل بصوره جيده جزاكم الله كل الخير

اخى العزيز بن عليه حاجى مرفق شيت يوضح المطلوب على ان يتم ادراجه فى اخر تعديل لاخ طارق http://www.4shared.c..._KLABSHA_6.html Book2.rar

اخى العزيز طارق CARD مهم جدا لانه حالة العامل طول السنه مجمعه فى صفحه واحده كما انه يتم اضافه ايام تانى من فائض الوقت الاضافى اما الشيتات هى صورة لحاله كل عامل خلال الشهر تظهر به الجزائات والمزايا ولا بد من الاحتفاظ بها ولاكنى لا افهم وحتي إذا كان كل ذلك مهم الإحتفاظ به ، فليس من المهم الإحتفاظ بالمعادلات التي تجعل حجم الملف 18 ميجا جزالك الله خير على مجهودك

السلام عليكم اخى طارق حل مبدع جدا

السلام علكم اخى العزيز جزالك الله كل الخيرعلى مجهودك الرئع اخر طلب وسامحنى فيه اخى العزيز اولا العمل الخاص بنا فى الصحراء بشركة بترول ومحور عملنا اسبوع واسبوع وكل منا من مكان ومحافظه مغايرة وقد يكون البعض مشترك فى المحافظه والمدينه فاذا ما وقع لاحد ما حاله وفاة او مر به مصيبه ... فنقوم بابلاغ اقرب الناس اليه من ناحيه الاقامه ( المحافظه – المدينه ) عن طريق الموبيل عدد المحافظات 27 محافظه ( قائمة منسدلة ) فهل يمكن استدعاء الافرد فى يوم معين يتم تحديده ( 1/5/2013 ) ومن خلال رمز معين مثل E X T S D يتم تحديده الحاله ( ) فى يوم 3013/05/01 م الاسم الحاله المحافظه المدينه رقم الموبيل جزالك الله كل خير

السلام عليكم اخى العزيز بن علية حاجى اولا يسعدنى اضافاتك جدا فكره جميله جدا .... وكنت اتمنى ان استفيد منها ولاكن تكمن المشكله ان كل موظف نتعامل معه بشكا منفرد ... سواء بلاضافه او بالحزف بمعنى سواء مكافئه او جزاء وطبعا ده هياثر على المعادلات ومن هنا لن يفيد كارت واحد لان سيتم عليه تعديل مع كل حاله الموظف وكان الاقتراح ان يتم اضافه 11 شيت مكله لعدد السنه كل شيت بشهر منفصل حتى يسهل متابعه العامل وما تم له من اضافه او حذف وفعلا تم عمل 12 شهر ولاكن تكمن المشكله ان الاستدعاء لا يتم بصوره صحيحه فما الحل ؟ جزاك الله خير واكرر اضافتك جميله جدا ومتتعه جدا

اخى العزيز طارق بعد التحيه ارجو النظر فى المشكله التى تظهر فى المسشاركة رقم 26 Run time error 6 اتمنى من الله ان تكون بكل خير

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

للرفع

يحتوي الجدول التالي على قائمة برموز خطأ يمكن تتبعه التي قد تواجهها عند استخدام الدالة Error code Error message ---------- ------------- 3 Return without GoSub 5 Invalid procedure call 6 Overflow 7 Out of memory 9 Subscript out of range 10 Duplicate definition (versions 5.0 and 7.0) 10 This array is fixed or temporarily locked (version97) 11 Division by zero 13 Type mismatch 14 Out of string space 16 String formula too complex (versions 5.0 and 7.0) 16 Expression too complex (version 97) 17 Can't perform requested operation 18 User interrupt occurred 20 Resume without error 28 Out of stack space 35 Sub or function not defined (versions 5.0 and 7.0) 35 Sub, function, or property not defined (version 97) 47 Too many DLL application clients (version 97) 48 Error in loading DLL 49 Bad DLL calling convention 51 Internal error 52 Bad file name or number 53 File not found 54 Bad file mode 55 File already open 57 Device I/O error 58 File already exists 59 Bad record length 61 Disk full 62 Input past end of line 63 Bad record number 67 Too many files 68 Device unavailable 70 Permission denied 71 Disk not ready 74 Can't rename with different drive 75 Path/File access error 76 Path not found 91 Object variable not set (versions 5.0 and 7.0) 91 Object variable or With block variable not set (version 97) 92 For Loop not initialized 93 Invalid pattern string 94 Invalid use of Null 95 User-defined error (versions 5.0 and 7.0 only) 298 System DLL could not be loaded (version 97) 320 Can't use character device names in specified file names (version 97) 321 Invalid file format (version 97) 322 Can't create necessary temporary file (version 97) 323 Can't load module; invalid format (versions 5.0 and 7.0) 325 Invalid format in resource file (version 97) 327 Data value named was not found (version 97) 328 Illegal parameter; can't write arrays (version 97) 335 Could not access system registry (version 97) 336 ActiveX component not correctly registered (version 97) 337 ActiveX component not found (version 97) 338 ActiveX component did not correctly run (version 97) 360 Object already loaded (version 97) 361 Can't load or unload this object (version 97) 363 Specified ActiveX control not found (version 97) 364 Object was unloaded (version 97) 365 Unable to unload within this context (version 97) 368 The specified file is out of date. This program requires a newer version (version 97) 371 The specified object can't be used as an owner form for Show (version 97) 380 Invalid property value (version 97) 381 Invalid property-array index (version 97) 382 Property Set can't be executed at run time (version 97) 383 Property Set can't be used with a read-only property (version 97) 385 Need property-array index (version 97) 387 Property Set not permitted (version 97) 393 Property Get can't be executed at run time (version 97) 394 Property Get can't be executed on write-only property (version 97) 400 Form already displayed; can't show modally (version 97) 402 Code must close topmost modal form first (version 97) 419 Permission to use object denied (version 97) 422 Property not found (version 97) 423 Property or method not found 424 Object required 425 Invalid object use (version 97) 429 ActiveX component can't create object or return reference to this object (version 97) 430 Class doesn't support OLE Automation 430 Class doesn't support Automation (version 97) 432 File name or class name not found during Automation operation (version 97) 438 Object doesn't support this property or method 440 OLE Automation error 440 Automation error (version 97) 442 Connection to type library or object library for remote process has been lost (version 97) 443 Automation object doesn't have a default value (version 97) 445 Object doesn't support this action 446 Object doesn't support named arguments 447 Object doesn't support current locale settings 448 Named argument not found 449 Argument not optional 449 Argument not optional or invalid property assignment (version 97) 450 Wrong number of arguments 450 Wrong number of arguments or invalid property assignment (version 97) 451 Object not a collection 452 Invalid ordinal 453 Specified DLL function not found 454 Code resource not found 455 Code resource lock error 457 This key is already associated with an element of this collection (version 97) 458 Variable uses a type not supported in Visual Basic (version 97) 459 This component doesn't support events (version 97) 460 Invalid clipboard format (version 97) 461 Specified format doesn't match format of data (version 97) 480 Can't create AutoRedraw image (version 97) 481 Invalid picture (version 97) 482 Printer error (version 97) 483 Printer driver does not support specified property (version 97) 484 Problem getting printer information from the system. Make sure the printer is set up correctly (version 97) 485 Invalid picture type (version 97) 486 Can't print form image to this type of printer (version 97) 735 Can't save file to Temp directory (version 97) 744 Search text not found (version 97) 746 Replacements too long (version 97) 1000 Classname does not have propertyname property (versions 5.0 and 7.0) 1001 Classname does not have methodname method (versions 5.0 and 7.0) 1002 Missing required argument argumentname (versions 5.0 and 7.0) 1003 Invalid number of arguments (versions 5.0 and 7.0) 1004 Methodname method of classname class failed (versions 5.0 and 7.0) 1005 Unable to set the propertyname property of the classname class (versions 5.0 and 7.0) 1006 Unable to get the propertyname property of the classname class (versions 5.0 and 7.0) 31001 Out of memory (version 97) 31004 No object (version 97) 31018 Class is not set (version 97) 31027 Unable to activate object (version 97) 31032 Unable to create embedded object (version 97) 31036 Error saving to file (version 97) 31037 Error loading from file (version 97

جزالكالله كل خير اخى بن عليه حاجى ادام الله تعاونك على الخير فى حفظ الله وامنه

" /> رابط الخطاء الذى يظهر http://www.m5zn.com/d/?14972189

سوال اخير ايه علاقه $G2 بالمعادلة جزالك الله خيرا على محهودك ووقتك الغالى اعلم جيدا مدى انشغالك فى حفظ الله وامنه

اخى العزيز وجدت حل هلى هذا صحيح =IF($G2="";"";IF(INT(210/(C2*E2))>=27;27;INT((210/(C2*E2)))))

اخى العزيز بن علية حاجى جزاك الله خير فعلا مبدع هل يمكن ان نجبر كسر الساعه لصالح العامل بمعنى فى الحاله رقم 2 نجد ان الساعت هى 10 او بالاحرى 10.99 هل يمكن ان نجبر الرفم ليصير 11 وان وصلت القيمه الى اعلى من 200 بقليل

اخى العزيز طارق يظهر الخطاء عن مسح اى مدخلات فى شهر واحد فى شيت Inbut data وكذلك عند توزيع الساعات فى شهر 2 وى شهر اخر اظن ان الامر مرتبط بان الخليه ليس بها مدخلات

اخى العزيز بن علية حاجى 1-العمود A استرشادى لقيمة ربع الراتب 2-العمود B هو ممثل لقيمة الساعات بالنقد لكل اساسى على اسا ان قيمه الساعه متغيرة بقيمى الاساسى لكل موظف المطلوب عند وضع الاساسى فى العمود F يم وضع عدد الساعات الى فى العمود D بشرط الا تزيد قيمة العمود B عن ربع الراتب وبحد اقصى 200 واشرط الاخر الا تزيد عدد الساعات عن 27 ساعه حتى لو ربع الراتب اقل من 200 جنيه ارجو ان اكون وصلت المطلوب

عند تشغيل اخر ملف حضرتك ارسلته وعند توزيع الساعات تظهر رساله وجود خطاء Run time error 6 Sub Arrange_Hours() Application.ScreenUpdating = False Dim sf As WorksheetFunction, W1 As Range, W2 As Range Set sf = Application.WorksheetFunction For lab = 1 To 120 s_rw = (lab - 1) * 40 + 8: e_rw = s_rw + 30 Range("E" & s_rw & ":E" & e_rw).ClearContents yy = Cells(s_rw - 6, "E"): i = 0: r = s_rw - 1 If yy <> "D" And yy <> "U" And yy <> "N" Then GoTo 25 OV_T = Cells(s_rw - 6, "D") * 24 Select Case yy Case "N" 4 i = i + 1: If i > OV_T Then GoTo 25 6 r = r + 1 If r > e_rw Then Set W1 = Range("B" & s_rw & ":B" & e_rw) Set W3 = Range("B" & s_rw + 1 & ":B" & e_rw + 1) Set W2 = Range("E" & s_rw & ":E" & e_rw) GN = sf.CountIfs(W1, "X", W3, "<>" & "X") ' Groups of X If sf.SumIf(W1, "X", W2) * 24 / (sf.CountIf(W1, "X") - GN) >= 3 Then GoTo 25 r = s_rw End If If Cells(r, "B") = "X" And Cells(r, "E") < 1 / 8 And Cells(r + 1, "B") = "X" Then Cells(r, "E") = Cells(r, "E") + 1 / 24: GoTo 4 GoTo 6 Case Else 10 i = i + 1: If i > OV_T Then GoTo 25 20 r = r + 1 If r > e_rw Then Set W1 = Range("B" & s_rw & ":B" & e_rw) Set W2 = Range("E" & s_rw & ":E" & e_rw) If sf.SumIf(W1, "X", W2) * 24 / sf.CountIf(W1, "X") >= 3 Then GoTo 25 r = s_rw End If If Cells(r, "B") = "X" And Cells(r, "E") < 1 / 8 Then Cells(r, "E") = Cells(r, "E") + 1 / 24: GoTo 10 GoTo 20 End Select 25 Next lab Application.ScreenUpdating = True End Sub

اخى العزيز الخليه A هى ناتج ربع الاساسى والخليه B قيمة اعدد الساعات نقداا المطلوب ان عدد الساعات توضع الى بشرط انها لا تزيد عن 27 ساعه مهما قل ربع الاساسى والا يزيد قيمتها عن 200 جنيه وهو الحد الاقصى لربع الراتب ارجو انى استطعت توصيل المعلومة

السلام عليكم الاخوة الافاضل هل من معادلة عند وضع الراتب الاساسى فى العمود F يتم تحديد الساعات فى عمود D بحيث لا يزيد الناتج فى العمود B عن عمود A وبحد اقصى 200 جنيه ومعادله اخرى نفس الطلب ولاكن بحد اقصى للساعات 27 ساعه عدد الساعات.rar

مرفق جزء رقم 2 اين الخطاء TIME SHEET 120_5.part2.rar