آخر سعر

[الشيباني1]

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

آخر سعر.zip

[طارق محمود]

السلام عليكم

أخي العزيز

تفضل المرفق

أخر سعر.rar

[إبراهيم ابوليله]

الاخ الكريم طارق

بارك الله فيك

ولكنى اريد شرح محتوى المعادله من فضلك

[رجب جاويش]

لاثراء الموضوع

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

Sub ragab()

Dim cl As Range

For Each cl In [D5:D28]: For Each cll In [G20:G26]

If cl = cll Then

cll.Offset(0, 1).Value = cl.Offset(0, 1).Value

End If

Next: Next

End Sub

آخر سعر.rar

[إبراهيم ابوليله]

الاخ رجب

بارك الله فيك

ودائما ننتظر منك كل ماهو رائع

ولكن ارى ان الكود ياخذ بعض الوقت

على الرغم من الن كميه البيانات قليله

تم تعديل أغسطس 2, 2012 بواسطه إبراهيم ابوليله

[إبراهيم ابوليله]

الاخ رجب

بارك الله فيك

ودائما ننتظر منك كل ماهو رائع

ولكن ارى ان الكود ياخذ بعض الوقت

على الرغم من الن كميه البيانات قليله

[حسين شاكر]

بارك الله فيك وفى اولادك وعائلتك اكرمك الله اخى فى الله طارق

كل عام وانتم بخير

[رجب جاويش]

أخى ابراهيم

جرب هذا التعديل

Sub ragab()

Application.ScreenUpdating = False

Dim cl As Range

For Each cl In [D5:D28]: For Each cll In [G20:G26]

If cl = cll Then

cll.Offset(0, 1).Value = cl.Offset(0, 1).Value

End If

Next: Next

Application.ScreenUpdating = True

End Sub

[الشيباني1]

الشكر الجزيل لجميع خبرائنا الرائعين ولكني وددت الحصول على نتائج اخرى ( اعتقد انها غير متوقعه ) وكما مشروح في الملف اني ارغب في الحصول على سعر (3.8) للماده (456) وليس (3.6) كما تظهر نتائج المعادلات اي احتاج الى معادلة لا تاخذ تسلسل الاسعار تاريخيا بل بالاعتماد على رقم القائمه الاكبر لكل ماده بعيدا عن التاريخ مع الامتنان

[إبراهيم ابوليله]

الاخ رجب بارك الله فيك

فعلا الكود اسرع هكذا

[رجب جاويش]

أخى الفاضل / tofimoon4

جرب الكود التالى

Sub ragab()

Application.ScreenUpdating = False

Dim cl As Range, cll As Range

For Each cl In [D5:D28]: For Each cll In [G20:G26]

    If cl = cll And WorksheetFunction.CountIf(Range("D5:D28"), cl) = 1 Then

        cll.Offset(0, 1).Value = cl.Offset(0, 1).Value

    End If

    If cl = cll And WorksheetFunction.CountIf(Range("D5:D28"), cl) > 1 Then

        If Val(cl.Offset(0, -1)) > iMX Then

            iMX = Val(cl.Offset(0, -1))

            x = cl.Offset(0, 1)

        End If

            cll.Offset(0, 1).Value = x

    End If

Next: Next

Application.ScreenUpdating = True

End Sub

آخر سعر1.rar

[الشيباني1]

استاذنا الكبير حل رائع وبديع ادامك الرحمن لنا مرشدا ولي استقسار آخر عن امكانية ايجاد النواتج بالمعادلات كحل آخر لمن ليست لديه خبرة في الاكواد ( وزيادة الخير خيرين ) في هذا الشهر الفضيل اعاده الله عليكم باليمن والبركات

[الشيباني1]

اخواني الاعزاء تحية طيبه هل انتظر ام اعتبر الموضوع منتهيا عند هذا الحد مع الامتنان

[بن علية حاجي]

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

تقبل الله منا ومنكم كل أعمال الخير....

أخي الكريم، قمت بإضافة معادلة حسب المطلوب في ملف أخي الحبيب رجب في آخر مشاركة له... أتمنى أن تفي بالغرض المطلوب...

أخوك بن علية

آخر سعر2.rar

[الشيباني1]

اشكرك اخي العزيز وجزاك الرحمن خير الجزاء

[طارق محمود]

السلام عليكم

بعد إذن أخي وأستاذي / الفاضل / بن عليه

لاحظت أن المعادلة غير مرتبطوة برقم القائمة كما طلب السائل ولكن فقط تأتي بأكبر سعر

بعد إذنكم أضفت بيانات لتوضيح الأمر وعالجت المعادلة

تفضلوا المرفق

LastPrice3.rar

[رجب جاويش]

بارك الله فيك أستاذ طارق

وهذا تعديل فى الكود

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

Sub ragab()

Application.ScreenUpdating = False

Dim cl As Range, cll As Range

For Each cl In [D5:D28]: For Each cll In [G20:G26]

    If cl = cll And WorksheetFunction.CountIf(Range("D5:D28"), cl) = 1 Then

        cll.Offset(0, 1).Value = cl.Offset(0, 1).Value

    End If

    If cl = cll And WorksheetFunction.CountIf(Range("D5:D28"), cl) > 1 Then

    For Each cell In [D5:D28]

    If cell = cl Then

        If Val(cell.Offset(0, -1)) > iMX Then

            iMX = Val(cell.Offset(0, -1))

            x = cell.Offset(0, 1)

        End If

        End If

        Next

            cll.Offset(0, 1).Value = x

       iMX = 0

    End If

Next: Next

Application.ScreenUpdating = True

End Sub

LastPrice4.rar

[الشيباني1]

اخواني الاعزاء مع شكري وتقديري الفكره من الطلب تتلخص فيما يلي : تقوم حسابات المخازن بتنظيم مستندات الاستلام للمواد الوارده لا بتواريخ الاستلام بل بتواريخ التنظيم وذلك يؤثر في ايجاد الاسعار الاخيره لهذه المواد ، لذا قمت بالاعتماد على رقم الفاتوره الوارده الاعلى لاستخلاص الاسعار الاخيره منها وليس بالاعتماد على التاريخ الاحدث ، وكانت معادلة الاخ ( بن علية ) مساعده في هذا المجال .

احترامي للجميع ودمتم لنا اخوة اعزاء