احمد السيد سليمان

شكرا على المساعدة ومعادلة جيدة وبسيطة

المرجو المساعدة فى الوقوف عل اسباب الخطأ فى المعادلة تعطى نتائج صحيحة لبعض البيانات وخطأ للبعض الاخر وخاصة فى السنة بدلا من 29-11-1992 تعطى 29-11-2092 مرفق مثال مبسط Text.xlsm

الموضوع غير واضح المرجو إعطاء تفاصيل عن النتائج المتوقعة

اطلع على الملف المرفق قد يكون هذا هو المطلوب الاعمدة S , T , U كشف حساب البنك.xlsx

مرفق ملف ... أتمنى ان يكون هو المطلوب كما نرجو من الزملاء بالمنتدى التعليق والاضافة حتى يكون الملف يشمل جميع النقاط taxes on salary 2020.xlsx

جرب الملف المرفق monzer 2 (1).xlsx

مرفق ملف به إيجاد رمز البلديات من خلال معادلة vlookup code departement.xlsx

مرفق ملف أتمنى ان يكون هو المطلوب تعتمد المعادلة على ادخال تاريخ بداية ونهاية الفترة المطلوب عنها التقرير تقرير المنصرف والمحصل.xlsx

بالبحث في المنتدى والاطلاع على مشاركات الأعضاء في موضوعات متشابهة تم تعديل الكود لكى يعطي نتائج صحيحة على النحو التالي Function Kh_MyDate(MyNumber As Variant) As Date Dim D As String, M As String, Y As String, TY As String On Error GoTo Err_Kh_MyDate D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) If TY = "2" Then Y = "19" & Y If TY = "3" Then Y = "20" & Y If TY = "4" Then Y = "30" & Y Kh_MyDate = DateSerial(Y, M, D) Exit Function Err_Kh_MyDate: Kh_MyDate = 0 End Function مرفق الملف بعد التعديل Book20000000.xlsb

من اجل اثراء الموضوع تم ادخال تعديل على المعادلة يتعلق بمواليد 2000 وما بعدها نحتاج اجراء هذا التعديل على الكود Book20000000.xlsb

شكرا على الاهتمام ومعادلة جديدة تستحق الاعجاب واعتذر عن التأخير في الرد لظروف العمل ولكن كنت عاوز اعرف اليه مشكلة الكود ولماذا يعطى نتيجة خطأ مرفق الملف بعد اجراء مقارنة بين الكود والمعادلة Function Kh_MyDate(MyNumber As Variant) As Date Dim D As String, M As String, Y As String, TY As String On Error GoTo Err_Kh_MyDate D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) If TY = "2" Then Else Y = "20" & Y Kh_MyDate = DateSerial(Y, M, D) Exit Function Err_Kh_MyDate: Kh_MyDate = 0 End Function Book20000000.xlsb

تم استخدام كود معد من احد الأعضاء ولكن يوجد مشكلة ارجو المساعدة في حالها المشكلة احتساب تاريخ الميلاد بشكل خطـ Book20000000.xlsb

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

تم نسخ الحسابات

مرفق 2016 لا يوجد لدي 2007 لاحظ عمود sتجربة1 عمل.rar يتم نسخ جميع الحسابات

مرفق 2016 تجربة2 عمل.rar مرفق 2016 لا يوجد لدي 2007 لاحظ عمود s تجربة1 عمل.rar

مرفق محاولة تجربة1 عمل.rar

الاستاذ / ياسر مجهود رائع من عملاق الاكسيل ولكى نكمل طرق تقييم المخزون نحتاج لطريقة الوارد اخيرا صادر اولا LIFO

مرفق ملف يعمل بالطريقتين FIFO , LIFO مطروح فى مشاركة اخرى من بعض الزملاء

عمل رائع من عملاقة الاكسيل

من وجهة نظرى ان يكون كل صنف فى صفحة مفصلة حتى يمكن تطبيق الطريقة بدقة

ارجو اضافة كود لطريقة LIFO

هدية رائعة من الاستاذ / سليم

افكار رائعة من عملاقة الاكسيل بالمنتدى شكرا على سرعة التعاون

عمل رائع من الاستاذ سليم ولكن هناك سؤال (حاولت تعديل المعادلة ولكن النتجية خطا ) هل يمكن ادخال شرط اخر للمعادلة لكى تعمل على شرطين مثل كود المنطقة ، كود الفرع