الوارد اولا صادر اولا (first in first out (FIFO

[ياسر العربى]

بسم الله الرحمن الرحيم
 

طلب بعض الاخوة موضوع الوارد اولا صادر اولا (FIFO) 
 

قمنا بعمل مثال بالاكواد  
 

لحل هذه المشكلة 

المثال يعتمد على اعمدة مساعدة ويتم مسح البيانات منها بعد الانتهاء 

 

الكود المستخدم 

 

Sub YasserFIFO()
    Dim z As Byte
    Application.ScreenUpdating = False
    Range("K6:K23").ClearContents
    Range("D6:E23").Copy Range("R1")
    Range("r1:s18").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    Range("G6:G23").Copy Range("T1")
    z = 1
    For Each x In Range("g6:g23")
        If x.Value <> "" Then
            If x.Value <= Cells(z, 18) Then
                Cells(x.Row, 11) = Cells(z, 19) * x.Value
                Cells(z, 18) = Cells(z, 18) - x.Value
            ElseIf x.Value > Cells(z, 18) Then
3               Cells(x.Row, 11) = Cells(x.Row, 11) + (Cells(z, 18) * Cells(z, 19))
                x.Value = x.Value - Cells(z, 18)
                Cells(z, 18) = 0
                For z = 1 To 20
                    If Cells(z, 18) = 0 Then GoTo 1
                    If Cells(z, 18) >= x.Value Then GoTo 2
                    If Cells(z, 18) < x.Value Then GoTo 3
1               Next z
2               Cells(x.Row, 11) = Cells(x.Row, 11) + (Cells(z, 19) * x.Value)
                Cells(z, 18) = Cells(z, 18) - x.Value
            End If
        End If
    Next
    Range("T1:T18").Copy Range("G6:G23")
    Range("R1:T18").Clear
    Range("a1").Activate
    Application.ScreenUpdating = True
End Sub

 

ومرفق المثال

تستطيعوا تكبير المدى او جعله مرن بالتعديل على النطاقات الموجودة بالكود

FiFo_2.rar

[الفرس 2]

اخى الكريم / ياسر العربى

اخيرا وجدت ضالتى

كم هذا رائع من انسان رائع .. جزيت خيرا

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

الملف عبارة عن مراقبة لاصناف مخزن ويعمل بطريقة المتوسط المرجح بالعادلات من عمود N الى العمود Q

المطلوب تطبيق كود FIFO من العمود R الى العمود  U فى شيت Home

وايضا اريد تطبيقه على شيت " تسوية 1 " على نفس الاعمدة  او على شيتات تضاف بعد ذلك على شكل تسوية 1

مراقبة المخزون.rar

 

 

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

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

[الفرس 2]

رجاء من علماء المنتدى الكرام الدخول لحل المشكلة وخاصة ان حلها يتطلع اليه معظم المحاسبين

كما عهدنا منهم ذلك فالمنتدى يضم افضل من عرفتهم فى الاكسيل

اخوكم : ممدوح محمد الفرس

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

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

[جلال الجمال_ابو ادهم]

ياسر العربى

 اخى الفاضل ما شاء  الله عليك

موضوع هام فعلا 

[الفرس 2]

اخى الكريم /احمد سليمان

وجهة نظر سليمة ولكن الملف المرفق يقوم بوظائف اخرى كثيرة منها :

- حصر تكلفة مراكز التكلفة

- يعتبر استاذ عام للمخزن لانه يحسب تكلفة المخزن لكل الاصناف ولذا يشمل على ارقام القيود المحاسبية

- يمكن التعديل عليه بتسويات

- عمل قيود استحقاق الموردين فى حال توريد اصناف متعددة من مورد واحد

من هنا كانت اهمية ان تكون الاصناف فى ملف واحد فلو استطاعوا ان يكون التسعير بطرق التسعير المعروفة محاسبيا - المتوسط المرجح كما فى الملف - FIFO - LIFO فسيكون انجاز غير مسبوق( وانا واثق من علماء وعباقرة المنتدى انهم يستطيعوا ) لانه سيكون امامك كل التطبيقات يمكن المقارنة واختيار الانسب للمنشأة

اخوك ممدوح الفرس

 

 

[ياسر العربى]

الاخوة الفرس -احمد سليمان -جلال الجمال

مشكورين لمروركم العطر

 

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

في تطبيق الوارد اولا صادر اولا

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

تقبلو تحياتي

[الفرس 2]

شكرا اخى الحبيب / ياسر العربى  على استجابتك السريعة وعلى استشعارك باهمية الموضوع

جزاء الله خيرا وزادك من علمه وجعله فى ميزان حسناتك و اتمنى لك التوفيق

ممدوح الفرس

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

 

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

 

[الفرس 2]

الاخ الفاضل /احمد سليمان

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

ولكن كود الاستاذ / ياسر العربى  يعمل على حساب تكلفة المنصرف بالطريقتين وهذا يتيح الفرصة للمحاسب ان يحسب تكلفة مراكز التكلفة

فالبفعل كود استاذنا الفاضل ياسر افضل بكتير

وعموما جزاك الله خيرا على طرحه مرة اخرى للاستفادة

ممدوح الفرس

 

[ياسر العربى]

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

 

مراقبة المخزون.rar

[جلال الجمال_ابو أدهم]

ياسر العربى

اخى الفاضل ما شاء الله عليك

تحياتى

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

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

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

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

[ابوحمزه المصرى]

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