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

المرجو المساعدة فى الوقوف عل اسباب الخطأ فى المعادلة

تعطى نتائج صحيحة لبعض البيانات وخطأ للبعض الاخر وخاصة فى السنة

بدلا من 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

في 1/19/2017 at 10:38, رائد داود said:

ممكن  في ملف 2007  لأن الدالة  لاتعمل  واليك المرفق  الذي نسخت فيه  المعادلة

السؤال  كيف يمكن  إظهار  الحسابات  التي  عليها  الحركة  ؟؟؟ هل  نسختها  أم هي من ضمن المعادلة تظهر

 

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

في 1/19/2017 at 10:38, رائد داود said:

ممكن  في ملف 2007  لأن الدالة  لاتعمل  واليك المرفق  الذي نسخت فيه  المعادلة

 

 

مرفق 2016 لا يوجد لدي 2007

لاحظ عمود sتجربة1 عمل.rar

يتم نسخ جميع الحسابات

مرفق 2016 

تجربة2 عمل.rar

في 1/19/2017 at 10:38, رائد داود said:

ممكن  في ملف 2007  لأن الدالة  لاتعمل  واليك المرفق  الذي نسخت فيه  المعادلة

 

 

مرفق 2016 لا يوجد لدي 2007

لاحظ عمود s

تجربة1 عمل.rar

مرفق محاولة

تجربة1 عمل.rar

الاستاذ / ياسر

مجهود رائع من عملاق الاكسيل

ولكى نكمل طرق تقييم المخزون نحتاج لطريقة الوارد اخيرا صادر اولا   LIFO

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

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

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

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

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

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

شكرا على سرعة التعاون

عمل رائع من الاستاذ سليم 

ولكن هناك سؤال (حاولت تعديل المعادلة ولكن النتجية خطا )

هل يمكن ادخال شرط اخر للمعادلة لكى تعمل على شرطين مثل كود المنطقة ، كود الفرع