روان احمد

السلام عليكم ورحمة الله وبركاته الاساتذه الكرام بعد التحيه على جميع الافاضل احتاج مساعده فى ملف الاكسيل المرفق بحيث لما اقوم بالاستعلام عن تاريخ محدد لو موجود فى شيت 2 يظهر لى جميع بيانات هذه التواريخ بنفس شكل الجدول وفى حالة عدم وجود التاريخ الذى اقوم بالاستعلام عنه تظهر رساله ( من الممكن حجز هذا اليوم ) طبعا التاريخ مرتبط بالقاعه انا عندي 7 قاعات لو السبع قاعات محجوزين بتواريخ هيظهر رساله لا يمكن الحجز جميع القاعات مشغوله مع تحويل البيانات للقاعات والتواريخ المشغوله الى جدول منفصل بشيت اخر واما فى حالة وجود قاعه او اكثر فارغه تظهر رساله بالقاعات الفارغه ادارة قاعات الافراح.xlsm

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

السلام عليكم ورحمة الله وبركاته الساده الافاضل....محتاج مساعده فى معادلة اكسيل تقوم بمقارنة التاريخ ...علي سبيل المثال لو تاريخ تعيين الموظف قبل تاريخ السنة الحاليه 2022 يتم اضافة رقم 1 فى جميع شهور السنه لو تاريخ تعيين الموظف ابتداء من شهر يناير 2022 يتم اضافة رقم 1 من بداية شهر التعيين حتى أخر شهر بالسنة لو تاريخ تعيين الموظف مثلا بشهر مايو 2022 يتم اضافة رقم 1 ابتداء من شهر مايو 2022 حتى اخر شهر بالسنة ولا يتم اضافة اي ارقام بشهور يناير وفبراير ومارس وابريل حيث ان الموظف لم يكن تم تعيينه خلال هذه الفترة ...ومرفق ملف مقارنة التاريخ.xlsx

الساده الافاضل السلام عليكم ورحمة الله الساده الافاضل خبراء ال VBA برجاء المساعده بالملف المرفق حيث ااني قمت بانشاء يوزر فورم وفكرة الملف كالتالى ورقة العمل sheet1 تم انشائها لتكون تقرير لاستخراج بيانات معينه للموظف من خلال Vlookup وكما تعلمون ان هذه الداله كى تقوم بعملها يجب ان يتم تحديد قيمة البحث الثابته وهي موجوده بالخليه D4 وبناءا عليه قمت بعمل يوزر فورم يقوم باظهار الداتا الموجوده بورقة العمل sheet1 ولا يوجد به اي مشكله غير انني يجب ان اقوم بادخال كود الموظف كي يتم عمل دالة vlookup المطلوب بدون الاطاله علي حضراتكم Textbox باليوزر فورم بمجرد ادخال كود الموظف يتم استخرج البيانات بنجاح والمطلوب عند ادخال كود الموظف علي ال Textboxللبحث عن البيانات يتم ترحيل كود الموظف من التكست بوكس الى ورقة العمل Sheet1 بالخليه D4 م اضافة زر معاينة التقرير بورقة العمل sheet 1 ورسالة بالغبه فى الطباعه ام لا في اليوزر12222222222222222222222 فورم.xlsm

اخى الكريم السلام عليكم ورحمة الله أتمنى ان يفي هذا بالمطلوب بس خلى بالك وانت علي ملف الاكسيل شيت ومحتاج تفعل اليوزر فورم هتضغط CTRL+Sheft+A طبعا في اكواد استعنت ليك بيها من كل الأساتذة وعباقرة المنتدى أتمنى من الله ان يجعل هذا المجهود في ميزان حسنتهم payroll.xlsm

الساده الافاضل بعد التحيه محتاج اعمل نقل بيانات من الملف الرئيسي test الى ملفين اخريين مغلقيين (يعني مش لازم افتحهم) بمجرد الضغط على زر abk من اليوزر فورم يروح ينقل الجدول من ورقة عمل abk بنفس التنسيق بتاعه فى الملف الرئيسي test الى ملف abk المغلق وبمجرد الضغط على زر Transfer Financial من اليوزر فورم يروح ينقل الجدول من ورقة عمل payroll بنفس التنسيق بتاعه فى الملف الرئيسي test ولكن هنا هينقل من الخليه D3 الى الخليه AM3 مع الشكرtest.rar Transfer Financial.xlsx test.xlsm

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

السلام عليكم ورحمة الله وبركاته الساده الافاضل فى بداية حديثى احب اشكر كل الاستاذه الافاضل اللي ديما بنتعلم منهم ربنا يجعل كل هذا المجهود الذى تبذلونه في ميزان حسانتكم ثانيا عندي مشكلة صغيره فى شيت المرتبات مكون من 7 ورقات عمل بيانات الموظفين هو ورقة العمل الرئيسيه وباقى اوراق العمل بتعتمد على معادلات واغلبها vlookup المطلوب محتاج كود vba فى حالة تم حذف صف موظف بسبب الاستقاله او اي سبب المهم الصف الخاص بالموظف اتحذف يتم تحديث الاكواد فى جميع اوراق العمل بشكل اتوماتيك وفى حالة اضافة كود موظف يتم اضافة كود الموظف اتوماتيك ملحوظه انا اعتمادى الكلى على كود الموظف لان ده مفتاح شيت المرتبات مرتبات.xlsx

تمام اشكرك انا عملت بنصيحتك والحمد لله تم حل المشكله

السلام عليكم ورحمة الله الساده الافاضل محتاج اعدل على هذا الكود الكود يقوم بعمل اضافة على اليوزر فورم ولكنه للاسف بيقوم بوضع كود الموظف بشكل تلقائى المطلوب تعديله ان الكود يسمح ليا اني اقوم بادخال كود الموظف Private Sub btnAdd_Click() Dim LastRow As Long UsrFrm.ListBox.RowSource = "" LastRow = WorksheetFunction.CountA(Sheets("Employees").Range("A:A")) If UsrFrm.txtName.Value = "" Then MsgBox "Please fill all information" Else Sheets("Employees").Cells(LastRow + 1, 2).Value = UsrFrm.txtName.Value If UsrFrm.optMale = True Then Sheets("Employees").Cells(LastRow + 1, 3).Value = "Male" Else Sheets("Employees").Cells(LastRow + 1, 3).Value = "Female" End If Sheets("Employees").Cells(LastRow + 1, 4).Value = UsrFrm.cmbJobStatus.Value Sheets("Employees").Cells(LastRow + 1, 5).Value = UsrFrm.txtPhoneNumber.Value Sheets("Employees").Cells(LastRow + 1, 6).Value = UsrFrm.cmbJobRate.Value Sheets("Employees").Cells(LastRow + 1, 7).Value = UsrFrm.txtSalary.Value Sheets("Employees").Cells(LastRow + 1, 8).Value = UsrFrm.ImagePath.Caption UsrFrm.txtName.Value = "" UsrFrm.optMale = False UsrFrm.optFemale = False UsrFrm.cmbJobStatus.Value = "" UsrFrm.txtPhoneNumber.Value = "" UsrFrm.cmbJobRate.Value = "" UsrFrm.txtSalary.Value = "" UsrFrm.ImagePath.Caption = "" UsrFrm.Image.Picture = LoadPicture(vbNullString) End If UsrFrm.ListBox.RowSource = "Employees!Tbl" End Sub

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

اشكرك ولكن تعديل الكود مش عندي ممكن حضرتك تفيدنى وترسل الكود بعد التعديل

اشكرك على مجهودك الرائع التسلسل الرقمى ضبظ جدا معايا ولكن التاريخ لم يتم ادراجه

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

السلام عليكم ورحمة الله الاساتذه الافاضل برجاء المساعد محتاج فى المرفق اول ما ادخل كود الموظف يتم ادراج تاريخ الشهر كامل مثال بما ان شهر 7 عدد ايام 31 يوم 1-7-2021 2-7-2021 3-7-2021 31-7-2021 الخ ويتم ادراج المسلسل حسب ايام الشهر مثال 1 2 3 4 31 الموظفين.xlsx

اخى الكريم الاستاذ / على محمد بارك الله فيك وفى عمرك وجعل هذا العمل فى ميزان حسناتك واشكرك على المجهود الرائع ولكن هناك بعد الملاحظات اتمني ان يتسع صدرك لمراجعتها معى لو تم المراجعه على كود 116 سوف نجد ان المعادله قامت بعملية دخول فى تمام الساعه 15:50 وعملية خروج فى تمام الساعه 15:50 ودخول بتاريخ 2/2/2021 الساعه 00:59 والصح من تحليل البصمه لاعطاء الموظف حقه ان الموظف قام بالدخول فى تمام الساعه 15:50 وقام بالخروج فى تمام الساعه 00:59 من اليوم التالى الموافق 2/2/2021 وتم تكرار هاذا الامر في باقى الايام مثل 6/2/2021 و 7/2/2021 اتمنى ان يتسع صدرك واعتذر علي الاطاله وكل عام وانتم بخير

الساده الافاضل عندى مشكلة كبيره جدا واتمنى من الله عز وجل ان تقوم بمساعدتى اعمل بشركة عدد عمالها يتخطى 700 موظف والشركة تعمل على مدار 24 ساعه ولا يوجد شفت ثابت وعند عمل تحليل حركات البصمة للموظفين يكون الموضوع مرهق جدا لدرجه ان نسبة الاخطاء تتعدي 25 % من قوة العمالة ولذالك فكرت فى عمل ملف اكسيل لتنسيق حركات البصمة لتقليل الخطأ لانه من الممكن ان الموظف يكون النهاردة شفت صباحى وغدا شفت مسائى وبعد اسبوع شفت ليلي وهكذا كنت محتاج استخراج ايام والحضور والانصراف من ال timesheet الى fingerprint المطلوب علي سبيل المثال يوم 1/1/2021 اول حركه للموظف تعتبر دخول واخر حركه تعتبر خروج حتى ولو كانت اخر حركة خروج بعد الثانيه عشر صباحا من اليوم التالى واخر ميعاد لحركة الخروج من اليوم التالى 06:30 صباحا اما حالة عدم وجود اي حركه فى يوم 1/1/2021 يتم البحث فى يوم 2/1/2021 من الساعه 00:01 وحتى الساعه 6:30 صباحا وفى حالة التطابق فى هذا الوقت تكون حركة دخول والبحث عن حركة الخروج فى نفس يوم 2/1/2021 اما فى حالة عدم وجود اي حركات بصمه يوم 1/1/2021 ولا توجد بصمات دخول يوم 2/1/2021 حتى 06:30 صباحا يتم احتساب حركه الدخول والخروج ليوم 1/1/2021 فارغه اي بصيغة ""دخول و "" خروج واتمنى من الله ان يجعل هذا العمل فى ميزان حسناتك ... عنوان مخالف , تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك finger print.xlsx

وعليكم السلام ورحمة الله وبركاته مشكور اخي العزيز علي المجهود الرائع بس في حاجة مهمه جدا حضرتك لو حسبت عدد الايام الفعليه من يوم 29/5/2014 حتى 28/6/2014 هيكونو 31 يوم فعلى والمعادله اللي حضرتك مشكور عملتها صافى عدد الايام 30 يوم مش 31 يوم يعني ناقص يوم دي اول جزئيه تاني جزئيه مش مسمعه في مراكز تكلفه صفحة رقم اتنين في فروق ايام وفي الاخر بشكرك علي اهتمامك ومجهودك

ايه يا جماعه مفيش حل ولا رد واحد

السلام عليكم ورحمة الله وبركاته الساده خبراء الاكسيل ارجو الافاده عندي مشكله كبيره جدا في ملف اكسيل خاص بمرتبات التعيين واسمحو لى ان اطلعكم على بعض البيانات وهي كالتالي 1- بدايه الشهر المالي الخاص بالمرتبات مثلا 29/5/2014 وينتهي 28/6/2014 اي عدد ايام العمل الفعليه 31 يوم عمل. 2- بدايه التعيين لاي عامل علي سبيل المثال 30/5/2014 بمعني ان العامل يستحق راتب عن 29 يوم عمل فعلي. 3- استقاله لاي عامل على سبيل المثال 31/5/2014 بمعنى ان العامل يستحق راتب عن 3 يوم عمل فعلي. المطلوب من الخبراء 1- في حاله اضافه عامل جديد بتاريخ تعيين يتم احتساب ايام العمل الفعليه وفرق الشهر يضاف الى مراكز تكلفه تحت مسمى فروق ايام. 2- فى حالى ترك عامل للعمل بتاريخ ترك العمل في خانه الملاحظات كما مبين بالمرفقات يتم احتساب ايام العمل الفعليه وخصمها من الشهر المالي ويتم اضافتها الى مراكز تكلفه تحت مسمى فروق ايامtest.rar