اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ياسر العربى,

الردود الموصى بها

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

طلب بعض الاخوة موضوع الوارد اولا صادر اولا (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

  • Like 5
رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

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

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

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

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

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

 

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

 

 

رابط هذا التعليق
شارك

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

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

 

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

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

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

تقبلو تحياتي

رابط هذا التعليق
شارك

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

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

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

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

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

ممدوح الفرس

 

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

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

  • Like 2
رابط هذا التعليق
شارك

  • 9 months later...

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information