تحديد الاسعار وفقا للتاريخ

[أحمد الزيادى]

المطلوب بعد اذنكم تحديد السعر وفقا للتاريخ ووفقا لاسم الصنف مع ثبات الاسعار القديمه على سعرها 
بمعنى يوم واحد فى الشهر كان السعر 5 جنيه تانى يوم اتغير بقى 10 يفضل اصناف اللى فى يوم 5 زى ماهى بس اليوم الجديد هى اللى تتغير ارجو تنفيذ الطريقه وشكر جزيلا

New Microsoft Office Excel Worksheet.rar

[صالح أبو أحمد]

برجاء التوضيح أكثر على الملف وكتابة مسميات الأعمدة

فيين البيانات الاساسية هى الى على اليمين والناتئج هى الى على الشمال وضح أكثر

وإن شاء الله سهلة

 

تم تعديل فبراير 9, 2017 بواسطه صالح أبو أحمد

[أحمد الزيادى]

 

برجاء التوضيح أكثر على الملف وكتابة مسميات الأعمدة

فيين البيانات الاساسية هى الى على اليمين والناتئج هى الى على الشمال وضح أكثر

وإن شاء الله سهلة

 

 

New Microsoft Office Excel Worksheet.rar

[ابراهيم الحداد]

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

انسخ هذا الكود و الصقه فى موديول جديد

و خصص له زر

Sub LastPrices1()
For Each cl In Range("A3:A12")
x = cl.Offset(0, 1).Value
y = cl.Offset(0, 2).Value
If cl.Value > Range("J3").Value And x = "بيع" Then
ZZ = WorksheetFunction.VLookup(y, Range("I4:K10"), 2, 0)
cl.Offset(0, 4).Value = ZZ
ElseIf cl.Value > Range("J3").Value And x = "شراء" Then
AA = WorksheetFunction.VLookup(y, Range("I4:K10"), 3, 0)
cl.Offset(0, 4).Value = AA
End If
Next
End Sub

 

تم تعديل فبراير 9, 2017 بواسطه زيزو العجوز

[أحمد الزيادى]

 

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

انسخ هذا الكود و الصقه فى موديول جديد

و خصص له زر

Sub LastPrices1()
For Each cl In Range("A3:A12")
x = cl.Offset(0, 1).Value
y = cl.Offset(0, 2).Value
If cl.Value > Range("J3").Value And x = "بيع" Then
ZZ = WorksheetFunction.VLookup(y, Range("I4:K10"), 2, 0)
cl.Offset(0, 4).Value = ZZ
ElseIf cl.Value > Range("J3").Value And x = "شراء" Then
AA = WorksheetFunction.VLookup(y, Range("I4:K10"), 3, 0)
cl.Offset(0, 4).Value = AA
End If
Next
End Sub

 

مش شغال

New Microsoft Office.rar

[ابراهيم الحداد]

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

الماكرو يعمل على التاريخ الذى يكون اكبر من او يساوالتاريخ المدرج بالخلية ("J3 ")

ملحوظة هامة بعض التواريخ فى الملف السنة فيها مكتوبة 1900

اليك الملف

 

 

New Microsoft Office.rar

[أحمد الزيادى]

تسلم ايدك يااستاذنا 

بس طلب اخير من حضرتك كنت عاوز اطبقها 

يوميه الاعلاف.rar

[أحمد الزيادى]

في ١٠‏/٢‏/٢٠١٧ at 17:55, أحمد الزيادى said:

تسلم ايدك يااستاذنا 

بس طلب اخير من حضرتك كنت عاوز اطبقها 

يوميه الاعلاف.rar