MPC

UP

رجاء المساعدة للأهمية

عمل فلتر متقدم لمجموعة من شيتات المرتبات بحيث يخفى البند الذى يساوى 0 وينسخ البنود التى لها قيمة اكبر فى صفحة جديدة المصنف1.xlsb

جزيت عنى خير الجزاء

كل عام وحضراتكم بخير واللهم بلغنا جميعا ليلة القدر واجعلنا من عتقاء هذا الشهر الكريم مرفق ملف فيه مفردات مرتب ( استحقاق / استقطاع) وكنت أريد أن البنود التى تكون قيمتها صفر تختفى من شيت المرتب . شاكر افضالكم ومجهودكم Salary_Printing.xlsx

السلام عليكم مرفق ملف يحتوى على بيانات مرتبات لعدد حوالى 600 موظف ويعمل عليه حوالى 5 مستخدمين المطلوب هو ظهور رسالة خطأ فى حالة ادخال المستخدمين لنفس البند وفى حالة تأكد المستخدم من الرغبة فى ادخال البند يسمح له وفى حالة عدم التأكد يتم الغاء العملية Salary-Test.xlsm

جزاكم الله خيرا على المساعدة وكل عام وحضراتكم بخير عيد أضحى سعيد

اشكر حضرتك على اهتمامك لكن أنا عندى اكثر من 600 موظف ومش هقدر ادخل ارقامهم الثابتة بطريقة يدوية

مرفق نموذج لقاعدة بيانات موظفين فى Dbase sheet ومطلوب عمل شيت مرتب لكل موظف وفقا للموضح فى ورقة عمل salary sheets بحيث اتمكن من طباعة كل شيت مرتب منفصل salary -test.xlsm

عند فتح ورقة عمل جديدة وكتابة تاريخ يعتبره الاكسيل نص وعند محاولة تغيير التنسيق الى تاريخ لا يتأثر نهائى وعند استخدام الدوال الخاصة بالتاريخ تظهر رسالة خطأ فما سبب هذه المشكلة .... تــم رفــع الملف TEST.xlsx

شكرا لحضرتك زادك الله من علمه وفضله

المطلوب عمل اجمالى للتأخير الصباحى والخروج المبكر فى حالة عمل فلتر على موظف معين حاولت استخدم subtotal بس منفعتش Book1-Test.xlsx

بن علية حاجي - سليم حاصبيا جزاكم الله خيرا

هذا هو الملف المطلوب Book1.xlsm

اريد تعديل الكود حتى يمكننى اظهار رسالة تنبيه في بداية فتح الشيت في حالة تجاوز أي موظف من اصل 800 موظف لعدد (7) أيام متصلة أو (15) يوم متفرقة حتى يتم ارسال انذار فصل له Sub test Dim z As String %Dim y%: Dim x y = 2 x = 3 (z = Cells(x, y if z= "غياب" then (" غياب لمدة يوم واحد ")&(MsgBox Cells(3, 1 End If End Sub

أستاذى الكريم سليم حاصبيا تسلم ايدك وجعله الله فى ميزان حسناتك 👍

Book-31-10-2019.xlsx

يتطلب الامر احيانا اخفاء بعض الاعمدة وفقا لرأس (عنوان ) العمود مثل "تأخير صبحا" والتى تكون مكررة على اكثر من عمود خلال الشهر وذلك للحصول على تقرير معين وكتبت الاكواد التالية لذلك ولكن اشعر انها اقرب الى اليدوى فهل من طريقة افضل ()Sub Delay Sheets("sheet1").Visible = True Worksheets("sheet1").Activate Sheets("sheet1").Select Range("b:b,E:E,I:J,K:L,N:T,V:AB,AD:AJ,AL:AR,AT:AZ,BB:BH,BJ:BP,BR:BX,BZ:CF,CH:CN,CP:CV,CX:DD,DF:DL,DN:DT,DV:EB,ED:EJ,EL:ER,ET:EZ,FB:FH,FJ:FP,FR:FX,FZ:GF,GH:GN,GP:GV,GX:HD,HF:HL,HN:HT,HV:IB,ID:Ij,IL:IR,IT:IX,IZ:je").Select Selection.EntireColumn.Hidden = True End Sub

جزاكم الله خيرا استفدت استفادة عظيمة

المطلوب إخفاء الصفوف التي يتوافر في معيار البحث انه يساوى "--" في الخلية E والخلية F Book3.xlsx

تسلم ايدك وجزاك الله خيرا أخى العزيز❤️

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

المطلوب جلب "ساعة الدخول والخروج" كل موظف من شيت " ملف الساعة" لساعة الدخول والخروج على أساس معيارين وهما "كود الموظف" و"تاريخ الدخول والخروج" معا Book2.xlsx

المطلوب حساب التأخير صباحا في حالة الحضور 8:30 فمثلا اذا حضر الموظف 8:35 يتم احتساب تأخير 00:00:05 دقائق وفى حالة ان الموظف أقاليم يتم احتساب الحضور من الساعة 9 ص والتأخير يكون ما بعد 9ص ويتم اهمال ما قبلها حساب الوقت الإضافى.xlsx