قيس111

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

مشكور اخي على مجهودك ولكن لم اصل الى مبتغاي ممكن لم تصل فكرتي ساشرح لك ما اريده بالضبط انا بدأ الانتاج الاول عندي الساعه 6:10 وانتهى الساعه 10:20 لدي هنا 260 دقيقه اشتغلت فيها اريد اعرف مجموع الاعطال الحاصل من الساعه 6:10 الى الساعه 10:20 لنفرض مجموع الاعطال الحاصله 100 دقيقه كيف احصل على هالمجموع مره وحده اتمنى وصلت الفكره التي احتاجها والملف المرفق في الاعلى

لدي ملف توجد فيه اوقات بدايه منتج ونهايه احتاج الى دالة او طريق تجمع لي الاعطال الحاصله في فترة تشغيل المنتج من وقت البدء الى النهايه لكل منتج الله يسعدكم اتمنى المساعده وهناك ملف يوضح ما اريد Book1.xlsx

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

للرفع من خلال بحثي بالمنتدى توصلت للكود هذا وجربته وعجبني ولكن في الخلايا A3 :A20 لا استطيع الاختيار أرجو منكم تعديل عليه لكي استطيع اختار من الخلايا التي يوجد بها قائمه منسدله وتحفظ ولا يستطيع التعديل عليها Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1:A22")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "Don't Change" End If  Book1.xlsm

الرجاء من الاخوه النظر في طلبي والمساعده ضروري للرفع

الرجاء من الاخوه النظر في طلبي والمساعده ضروري

للرفع

للرفع

الرجاء من الخبراء الله يوفقكم عدلولي بالكود على حسب الطلب .

سأجد في جعبتهم الكثير. من خلال بحثي بالمنتدى توصلت للكود هذا وجربته وعجبني ولكن في الخلايا A3 :A20 لا استطيع الاختيار أرجو منكم تعديل عليه لكي استطيع اختار من الخلايا التي يوجد بها قائمه منسدله وتحفظ ولا يستطيع التعديل عليها Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A1:A22")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "Don't Change" End If End Sub

للرفع

هل نستطيع ايقاف خدمات Ctrl مع التظليل

للرفع

شاكر مجهودك أخي العزيز أستطيع التعديل على الملف بالضغط على Ctrl في مساحه فاضيه وأختار ما اريد تغيير ويتم تغييره أريد حمايه أقوى . أرجوكم مساعدتي للضروره .