روان احمد

السلام عليكم ورحمة الله وبركاته الاساتذه الكرام بعد التحيه على جميع الافاضل احتاج مساعده فى ملف الاكسيل المرفق بحيث لما اقوم بالاستعلام عن تاريخ محدد لو موجود فى شيت 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