الفواتير واستهلاكها من الخامات

[seao]

السلام عليكم اخوانى الكرام

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

) مرفق الشيت به الشرح 

مرفق جدولين

الجدول الاول : هو جدول الخامات بالكيلو

الجدول الثانى : هو جدول الفواتير و موضح به الكميه المباعه بالكيلو

 

المطلوب هو تحديد استهلاك كل فاتوره من اللوتات باوزنها 

 

مثال : الفاتوره رقم 1 بوزن 6420.42 كيلو

    تم استهلاك لوت رقم 1 بكامله ووزنه 4500 كيلو

+  تم استهلاك جزء من لوت رقم 2 بوزن 1920.42 

  ( ملاحظه : متبقى وزن من اللوت رقم 2  " 5200 -1920.42  = 3279.58 كيلو

 

مثال : الفاتوره رقم 2 بوزن 1253.05 كيلو

  تم استهلاك جزء من لوت رقم 2 بوزن 1253.05 

  ( ملاحظه : متبقى وزن من اللوت رقم 2  " 5200 -1920.42 - 1253.05 = 2026.53 كيلو

 

مثال : الفاتوره رقم 3 بوزن 4872 كيلو

  تم استهلاك باقى الوزن من لوت رقم 2 بوزن 2026.53 

+  تم استهلاك جزء من لوت رقم 3 بوزن 2845.47 

  ( ملاحظه : متبقى وزن من اللوت رقم 3  " 3452.2 - 2845.4 = 606.73  كيلو

وهكذا

 

ولكم جزيل الشكر على عطائكم 

TC.xlsx

[أ / محمد صالح]

تفضل أخي الكريم

هذا اللغز من أفضل الألغاز التي قابلتها حيث استمرت المحاولات فيه يومين

والحمد لله تم إنجازه

إن شاء الله هذا الكود يقوم باللازم

Sub mas_generateMsg()
Dim SumH(1000) As Variant, SumV(1000) As Variant
For i = 17 To Sheet3.Cells(Rows.Count, 5).End(xlUp).Row
msg = "": frst = True: fw = Sheet3.Cells(i, 8)
msg = msg & "عند خروج الفاتوره رقم " & Sheet3.Cells(i, 5) & " بتاريخ " & Format(Sheet3.Cells(i, 6), "yyyy/mm/dd")
For c = 17 To Sheet2.Cells(Rows.Count, 6).End(xlUp).Row
lw = Sheet2.Cells(c, 9)
lot = IIf(fw - SumH(i) > lw, lw, fw - SumH(i))
mylot = IIf(lw - SumV(c) > lot, lot, lw - SumV(c))
If mylot > 0 And frst Then
frst = False: msg = msg & " تم استخدام خامات من اللوت رقم " & Sheet2.Cells(c, 6) & " بوزن " & mylot
ElseIf mylot > 0 And Not frst Then
msg = msg & " وأيضا من اللوت رقم " & Sheet2.Cells(c, 6) & " بوزن " & mylot
End If
SumV(c) = SumV(c) + mylot: SumH(i) = SumH(i) + mylot
Next c
Sheet4.Range("g" & i + 9) = msg
Next i
MsgBox "Done by mr-mas.com"
End Sub

نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

[seao]

بارك الله فيك ونفعك بعلمك 

جزاك الله خيرا 

[أ / محمد صالح]

جميعا بإذن الله 👍🌹😍