احمد عبدالحليم

تفضل اخى الفاضل @عمر الجزاوى قمت باضافة بعد التعديلات كالتالى هذا بخصوص ListBox1 اذا كان رصيد الصنف اقل من او يساوى صفر عدم اضافة الصنف واظهار رسالة بان الرصيد لهذا الصنف قد انتهى عند اختيار الصنف لاكثر من مرة ووصول الكمية لاكبر من رصيد المخزن عدم اضافة الصنف واظهار رسالة بان الرصيد لا يسمح حيث انه لا يصح الصرف اذا كان الرصيد صفر او تعدت الكمية المباعة الرصيد الفعلى للصنف اما بخصوص ListBox2 يمكن ان تقوم بازالة منتج من الفاتورة فقط قم بالنقر على الصنف المراد حذفه من الفاتورة مرتيين تقبل تحياتى المصنف1.xlsm

وعليكم السلام ورحمة الله وبركاته استاذنا الفاضل @Yasser Fathi Albanna المشكلة فى شيت PRODUCTS فى تنسيق الخلايا من A4:A7 عندما قمت بتحديد هذا المدى وكليك يمين واختيار Clear Contents وكتابة الاكواد يدويا المعادلات فى شيت INVOICE تعمل بشكل صحيح ربما سبب المشكلة ان هذه اكواد المنتجات تم نسخها من شيت او ملف اخر ولصقها فى شيت PRODUCTS واخذت نفس تنسيق اضفت الرد فى نفس الوقت مع رد حضرتك تقبل تحياتى

وضح المطلوب اكتر والافضل إرفاق ملف به بيانات لما تريده وتوضيح المطلوب

الحمد لله على تحقيق طلبك ولكن راجع النتائج جيدا حيث ان الكود الاساسى فى العمود A فى الملفات السابقة التى ارفقتها كان يحتوى على 6 او 5 أرقام وكان هناك تشابه كبير فى الاكواد التى تعديلها فى العمود E مما كان يجعل النتائج ليست دقيقة بسبب التشابه الكبير تقبل تحيانى

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

نعم اصبح الاكسل يدغم لغة Python ولكن من الاصدار 2022 وما فوق كما انها ليست مجانية ولكن يمكنك الحصول على نسخة تجريبية مجانية لمدة 30 يومًا. ابحث وهتلاقى دروس كتير وخاصة على اليوتيوب

وعليكم السلام ورحمة الله وبركاته اضرب فى الاكسل واعرضهم فى ListBox

السلام عليكم ورحمة ورحمة الله كان هذا طلبك وتم الاجابة عليه باكثر من طريقة من الاخوة الافاضل انتهى من التصميم ثم فكر فى الحل قم بتغيير التالى x = Columns(1).Cells.Find(Range("N6"), , , 1).Row هنا هتغير حاجتين رقم العمود حيث كان العمود a وهو رقم 1 بالعمود الذى يحتوى على اكواد الموظفين وكمان هتغيير الخلية n6 وهى التى تحتوى على رقم كود الموظف بالخلية الجديدة التى تحتوى على كود الموظف Range("N8") = Cells(x, 2) هنا هتغير حاجتين Range("N8") بالخلية الجديدة التى اصبحت تحتوى على اسم الموظف وكمان هتغير Cells(x, 2) رقم 2 برقم العمود الذى اصبح يحتوى على اسماء الموظفين حسث كان سابقا هو العمود b اى رقم 2 Set r = Cells(x, 1 + Split(Range("N4").Text, "-")(0) * 1).Resize(, 1 + Split(Range("P4").Text, "-")(0) * 1) هنا هتغير Range("N4") باسم الخلية التى تحتوى على تاريخ البداية باسم الخلية الجديدة وكمان هتغيير Range("P4") تاريخ النهاية باسم الخلية الجديدة لتاريخ النهاية واكمل باقى باقى التغييرات بنفس النمط او قم برفع ملف لعمل التعديلات المطلوبة مفيش حد هيكتب توقعات على اساس التعديل الذى قمت به تقبل تحياتى

وعليكم السلام ورحمة الله وبركاته حبا وتقديرا للاستاذ الفاضل @ياسر خليل أبو البراء تفضل مواقيت الصلاة.xlsb

وعليكم السلام ورحمة الله وبركاته تفضل Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.Frame1.Visible = False End Sub

استاذنا الفاضل ومعلمنا @أ / محمد صالح حل اكثر من رائع وغاية السهولة واليسر تقبل تحياتى

وعليكم السلام ورحمة الله وبركاته تفضل اخى @husain alhammadi ملحوظة مهمة جدا يجب ان يكون اسماء الشيتات هى نفسها فى شيت الرئيسية (وذا كان هناك اسم شيت غير متطابق مع نفس اسم الشيت فى الشيت الرئسيى سوف تظهر رسالة تخبرك بهذا الشيت غير متطابق واتمنى بعد وضع الكلمات وترجمتها لهذه اللغات ان ترفع الملف لنا مرة اخرى فكرة رائعة بل اكثر من رائعة تقبل تحياتى ترجمة.2xlsm.xlsm

جرب هذه الكود التالى لعله يكون المطلوب Attendance Report Work Sheet.xlsm

شكرا اخى الفاضل على كلماتك الطيبة تقبل تحياتى

وعليكم السلام ورحمة الله وبركاته تفضل اخى جرب الملف =IF(R3*24 < 8;"";INT(R3*24/8)) هذه المعادلة لحساب الايام واليوم = 8 ساعات وتم الضرب فى 24 وهو عدد ساعات اليوم الواحد ولتحويل الوقت الى رقم والدالة INT للحصول على الرقم الصحيح بدون كسر =IF(R3*24<8;R3;R3-S3*8/24) وهذه المعادلة لحساب عدد الساعات الباقية من الايام Book7.xlsx

الشكر لله وجزاكم الله من جميع أبواب الخير تحياتى

وعليكم السلام ورحمة الله وبركاته تفضل اخى جرب الملف الكود فى حدث الشيت Change Private Sub Worksheet_Change(ByVal Target As Range) Dim filterRange As Range Dim dataRange As Range Dim lastRow As Long Dim lastRow2 As Long Application.ScreenUpdating = False If Target.Address = "$P$4" Then lastRow2 = Cells(Rows.Count, "P").End(xlUp).Row Range("P6:V" & lastRow2 + 1).ClearContents If Not IsEmpty(Target.Value) Then lastRow = Cells(Rows.Count, "E").End(xlUp).Row Set dataRange = Range("A6:G" & lastRow) dataRange.AutoFilter Field:=5, Criteria1:="*" & Target.Value & "*" dataRange.Copy Range("P6") dataRange.AutoFilter End If End If Application.ScreenUpdating = True End Sub Data.xlsm

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

جرب الكود التالى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$8" Or Target.Address = "$F$8" Then Dim LastRow As Long Dim FilterRange As Range Dim FilterColumn As Long If Target.Address = "$D$8" Then FilterColumn = 2 ElseIf Target.Address = "$F$8" Then FilterColumn = 4 End If LastRow = Me.Cells(Rows.Count, "D").End(xlUp).Row Set FilterRange = Range("C9:U" & LastRow) If Not IsEmpty(Target.Value) Then FilterRange.AutoFilter Field:=FilterColumn, Criteria1:=Target.Value Else FilterRange.AutoFilter Field:=FilterColumn End If End If End Sub

قم بتحديد العمود بأكمله من الاعلى

ممكن بدون اكواد تحدد الأعمدة التى تحتوى على تاريخ وتعديل التنسيق إلى التاريخ بالشكل الذي تريده

اخى الفاضل @mohamed_ets انت طلبت ان تحصل فى العمود فى العمود B على الكود الذى تم تعديله فى العمود E والمعادلة تعمل بشكل صحيح هل قمت بمراجعه العمود B اى ناتج المعادلة انا لا ارى اى خطأ وان كان هناك خطا فى المعادلة اعطنى رقم الصف الذى به خطأ المقارنة فى المعادلة بين الاكواد فى العمود A والاكواد فى العمود E وهذا كان طلبك ومرة اخرى نتائج المعادلة صحيحة لا ارى اخطاء او هناك شىء لم افهمه وضحه لى تقبل تحياتى

اخى الفاضل وضح لى المطلوب

هل يمكن يمكن توضيح الاخطاء اخى الفاضل فى النتائج

أعتقد من وجه نظري لا يمكن عمل المطلوب كما أوضحت تقبل تحياتى