كود للبحث عن اخر قيمة للصنف المكرر

[صلاح الدين ابو حسين]

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

السادة الافاضل ، تحية طيبة لكم

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

ولكم جزيل الشكر

ملاحظة : تم ارفاق ملف اكسل لتبيان المطلوب

كود تحديد اخر سعر.zip

 

[سليم حاصبيا]

هذه المعادلة  مع (Ctrl+Shift+Enter)و ليس Enter وحدها )لانها معادلة صفيف

=INDEX($F$4:$F$100,MAX(IF($D$4:$D$100=$I$3,ROW($D$4:$D$100)-ROW($D$4)+1,0)))

او هذه مع (Ctrl+Shift+Enter)

=LOOKUP(MAX($F$4:$F$100)+1,IF(--($D$4:$D$100=$I$3),$F$4:$F$100))

 

[صلاح الدين ابو حسين]

الاستاذ سليم المحترم

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

وضعت الكود بالخلية I4  مع الضغط على المفاتيح التي ذكرتها حضرتك لكنها لم تفلح وظهرت لي رسالة خطأ

1- ارجو التوضيح اكثر واذا بالامكان وضع المعادلة بالملف المرفق اعلاه 

2- هل بالامكان كتابة كود بمحرر الاكواد يعطي النتيجة المرجوة ؟

وتقبل تحياتي

[سليم حاصبيا]

الحل مرفق

 

كود تحديد اخر سعر salim.rar

[صلاح الدين ابو حسين]

الاستاذ سليم المحترم

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

الحل عبر الدوال تمام التمام لكن هل توجد معادلة تعطي النتيجة عبر محرر الاكواد VB ؟

[سليم حاصبيا]

هذا ملف بواسطة اكواد VBA

يكفي ان تكتب في الخلية I3 المطلوب لتظهر النتيجة فوراً بعد الضغط  على Enter

 

 

كود تحديد اخر سعر salim with macro.rar

[صلاح الدين ابو حسين]

اشكرك جزيل الشكر هذا هو المطلوب

اسأل الله عز وجل ان ينير دربك ويرزقك من حيث لا تحتسب