كيفية تحديد اخر سعر بيع لصنف معين

[عصام2008]

السلام عليكم ورحمة الله وبركاته

أخواني الأعزاء اريد حلا لهذه المشكلة وهي كالتالي:

عد تسجيل اصناف ف شيت المشتريات من الوارد ان يتم شرا الصنف الواحد بأكثر من سعر على أوقات متباعدة مثلا :

الصنف: قلم حبر الكمية 10 سعر الشراء 0.250 فلس بتاريخ 1/1/2012 وتم بيع 5 اقلام فقط

ايضا قلم حبر الكمية 10 سعر الشراء 0.300 فلس بتاريخ 1/2/2012

وعند استدعاء الصنف لبيعه حدث أن سعر البيع ظهر 0.283 فلس حيث أن المعادلة أخذت المتوسط بجمع (5×0.250)+(10×0.300)=4.250 تمت القسمة على 15 فأصب الناتج لسعر البيع هو 0.283 فلس

ولكن ما اريده ان يظهر اخر سعر للصنف وهو 0.300 فلس

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

وجزاكم الله خيرا على المساعدة مقدما

test1.rar

[طارق محمود]

السلام عليكم

أخي العزيز

إستبدل المعادلة

=IF(ISERR((SUMIF(Buys!$C$2:$C$63197,A2,Buys!$M$2:$M$63197))/G2),"0.000",(SUMIF(Buys!$C$2:$C$63197,A2,Buys!$M$2:$M$63197))/G2)

الموجودة بالورقة Stor بالخلية Q2 بهذه المعادلة

=LOOKUP(2,1/(Buys!$E$1:$E$60000=Stor!C2),Buys!$M$1:$M$60000)

وانسخها للأسفل

[طارق محمود]

أو هذه لوتفضل اللجوء للباركود

=LOOKUP(2,1/(Buys!$C$1:$C$60000=Stor!A2),Buys!$M$1:$M$60000)

[عصام2008]

السلام عليكم وحمة الله وبركاته

الف الف الف شكر أخي العزيز طارق على سرعة استجابتك لطلبي ولاجابتك الشافية الوافية وجعله الله في ميزان حسناتك انشاء الله

ولكن أخي العزيز لي استفسار وأود بإذن الله ان تساعدني في الاجابة عليه وهو

كيف يمكنني احتساب مبلغ ربح صنف كما في المثال الذي سبق في حالة تعدد سعر الشراء له بمعني

ان الصنف قلم الحبر مثلا تم شراؤة بمبلغ 0.250 فلس والكمية 10حبات وتم بيع 5 حبات فقط وظل بالمخزن 5 حبات

وبعد فترة تم شراء نفس الصنف بسعر 0.350 فل والكمية 10 حبات ايضا وتم بيع 4 حبات فقط وظل بالمخزن 6حبات بالاضافة الى ال5حبات السابقة على السعر القديم اي يصبح بالمخزن (11 حبة ) 5 حبات بسعر شراء 0.250 فلس للحبة و6حبات بسعر شراء 0.300 فلس للحبة فكيف يمكن حساب القيمةالفعلية للمخزون لهذا الصنف في هذه الحالة

تم تعديل فبراير 29, 2012 بواسطه esam2008

[طارق محمود]

السلام عليكم

أخي العزيز

راجع الموضوع التالي

http://www.officena.net/ib/index.php?showtopic=36000&hl=%2B%D9%85%D8%A7%D9%8A%D8%B1%D8%AF+%2B%D8%A7%D9%88%D9%84%D8%A7+%2B%D9%8A%D8%B5%D8%B1%D9%81+%2B%D8%A7%D9%88%D9%84%D8%A7&fromsearch=1

إن شاء الله تجد ماتريد

[طارق محمود]

السلام عليكم

لاحظت أن سعر الحبة في ورقة Buys

دائما = الإجمالي ÷12 مهما كانت الكمية

راجع هذه النقطة أعتقد أن الصحيح أن تكون القسمة علي الكمية وليس ÷12

[عصام2008]

الأخ العزيز / طارق

السلام عليكم ورحمة الله وبركاته

بخصوص القسمة على 12 هذا لسبب أن البضاعة يتم شراءها بالدرزن فالمبلغ الذي يوضع في عمود السعر الاجمالي أقصد به سعر الدرزن وهو 12 حبة وبالتالي فالعمود التاتلي يعطيني سعر الحبة بعد القسمة على 12 لان الكمية التي اقوم بادخالها عن طريق تسجيل حبات وليست درازن

ارجو ان يكون القصد من هذا الاجر اء وضح لك

اما بالنسبة للسؤال ووضعك الرابط لكي انتقل ايه بالفعل فتحت الرابط والموضوع ولكن لم يكتمل الموضوع وبالتالي فالنقطة التي من وراء القصد لم يتم شرحها

أرجو ان تساعدني في ايجاد الحل لهذا الموضوع وشاكر لك مجهودك مسبقاً

[طارق محمود]

السلام عليكم

أخي العزيز

المرفق (بالورقة Statment) به كود يعمل التالي:

يقوم بتكوين معادلات بالمنطقة الصفراء الأعمدة V:W لتحسب

العدد المباع / اجمالي مبلغ مبيعات الصنف / الربح

وكذلك يحسب بدون معادلات (اجمالي مبلغ شراء الكمية المباعة) بالعمود U

ويتم تفعيل الكود

إذا ضغطت الزر

أو إذا نشطت الورقة Statment

وكذلك إذا وقفت علي إحدي خلايا العمود U ، يعطي لك في صورة تعليق Comment يعطي ملخص لكيفية حساب مبلغ شراء الكمية المباعة

لاحظ: علامة الـ (+) أعلي العمود T لإظهار / إخفاء الأعمدة الداخلية

هذا كود الحساب

Sub net_profit()

'By Tareq MAHMOUD


LR = [D10000].End(xlUp).Row

Dim Q(99), P(99) As Variant


For r = 3 To LR

	cod = Cells(r, "D").Value

	With Sheets("Buys")

		LR2 = .[C10000].End(xlUp).Row

		I = 0

		For nr = 2 To LR2

			If .Cells(nr, "C").Value = cod Then

				I = I + 1

				Q(I) = .Cells(nr, "F").Value

				P(I) = .Cells(nr, "H").Value

			End If

		Next nr

	End With


Cells(r, "T").FormulaR1C1 = "=SUMIF(R2C5:RC[-15],RC[-15],R2C6:RC[-14])"

Cells(r, "V").FormulaR1C1 = "=SUMIF(R2C5:RC[-17],RC[-17],R2C8:RC[-14])"

Cells(r, "W").FormulaR1C1 = "=RC[-1]-RC[-2]"

	x = Cells(r, "T").Value

	T_x = 0

	For j = 1 To I

		If x < Q(j) Then T_x = T_x + x * P(j): GoTo 10

		x = x - Q(j): T_x = T_x + Q(j) * P(j)

	Next j

10  Cells(r, "U").Value = T_x

Next r

End Sub

وهذا كود التعليق Comment

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'By Tareq MAHMOUD

If Target.Column <> 21 Then Exit Sub

LR = [D10000].End(xlUp).Row

r = Target.Row

If r > LR Then Exit Sub

	cod = Cells(r, "D").Value

Range("U3:U" & LR).ClearComments

Dim Q(99), P(99) As Variant

	With Sheets("Buys")

		LR2 = .[C10000].End(xlUp).Row

		I = 0

		For nr = 2 To LR2

			If .Cells(nr, "C").Value = cod Then

				I = I + 1

				Q(I) = .Cells(nr, "F").Value

				P(I) = .Cells(nr, "H").Value

			End If

		Next nr

	End With


	x = Cells(r, "T").Value

	T_x = 0

	tt_TX = ""

	For j = 1 To I

		If x < Q(j) Then T_x = T_x + x * P(j): tt_TX = tt_TX & " " & x & "x" & P(j) & Chr(10): GoTo 10

		tt_TX = tt_TX & " " & Q(j) & "x" & P(j)

		x = x - Q(j): T_x = T_x + Q(j) * P(j)

	Next j

10	  With ActiveCell

			.AddComment

			.Comment.Text Text:=tt_TX

		End With

End Sub

تفضل المرفق

ربح صنف متعدد سعر الشراء2.rar