الشيباني1 قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 اخواني الاعزاء تحية طيبه ارجو المساعده فيما جاء بالمرفق مع الامتنان آخر سعر.zip رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 السلام عليكم أخي العزيز تفضل المرفق أخر سعر.rar رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 الاخ الكريم طارق بارك الله فيك ولكنى اريد شرح محتوى المعادله من فضلك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 لاثراء الموضوع هذا حل بالأكواد 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 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 (معدل) الاخ رجب بارك الله فيك ودائما ننتظر منك كل ماهو رائع ولكن ارى ان الكود ياخذ بعض الوقت على الرغم من الن كميه البيانات قليله تم تعديل أغسطس 2, 2012 بواسطه إبراهيم ابوليله رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 الاخ رجب بارك الله فيك ودائما ننتظر منك كل ماهو رائع ولكن ارى ان الكود ياخذ بعض الوقت على الرغم من الن كميه البيانات قليله رابط هذا التعليق شارك More sharing options...
حسين شاكر قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 بارك الله فيك وفى اولادك وعائلتك اكرمك الله اخى فى الله طارق كل عام وانتم بخير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أغسطس 2, 2012 الكاتب مشاركة قام بنشر أغسطس 2, 2012 الشكر الجزيل لجميع خبرائنا الرائعين ولكني وددت الحصول على نتائج اخرى ( اعتقد انها غير متوقعه ) وكما مشروح في الملف اني ارغب في الحصول على سعر (3.8) للماده (456) وليس (3.6) كما تظهر نتائج المعادلات اي احتاج الى معادلة لا تاخذ تسلسل الاسعار تاريخيا بل بالاعتماد على رقم القائمه الاكبر لكل ماده بعيدا عن التاريخ مع الامتنان رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 الاخ رجب بارك الله فيك فعلا الكود اسرع هكذا رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أغسطس 2, 2012 مشاركة قام بنشر أغسطس 2, 2012 أخى الفاضل / 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 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أغسطس 3, 2012 الكاتب مشاركة قام بنشر أغسطس 3, 2012 استاذنا الكبير حل رائع وبديع ادامك الرحمن لنا مرشدا ولي استقسار آخر عن امكانية ايجاد النواتج بالمعادلات كحل آخر لمن ليست لديه خبرة في الاكواد ( وزيادة الخير خيرين ) في هذا الشهر الفضيل اعاده الله عليكم باليمن والبركات رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أغسطس 4, 2012 الكاتب مشاركة قام بنشر أغسطس 4, 2012 اخواني الاعزاء تحية طيبه هل انتظر ام اعتبر الموضوع منتهيا عند هذا الحد مع الامتنان رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 4, 2012 مشاركة قام بنشر أغسطس 4, 2012 السلام عليكم ورحمة الله تقبل الله منا ومنكم كل أعمال الخير.... أخي الكريم، قمت بإضافة معادلة حسب المطلوب في ملف أخي الحبيب رجب في آخر مشاركة له... أتمنى أن تفي بالغرض المطلوب... أخوك بن علية آخر سعر2.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أغسطس 4, 2012 الكاتب مشاركة قام بنشر أغسطس 4, 2012 اشكرك اخي العزيز وجزاك الرحمن خير الجزاء رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 السلام عليكم بعد إذن أخي وأستاذي / الفاضل / بن عليه لاحظت أن المعادلة غير مرتبطوة برقم القائمة كما طلب السائل ولكن فقط تأتي بأكبر سعر بعد إذنكم أضفت بيانات لتوضيح الأمر وعالجت المعادلة تفضلوا المرفق LastPrice3.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 بارك الله فيك أستاذ طارق وهذا تعديل فى الكود لتلافى الخطأ فى الكود السابق عند تشابه أكبر رقم فى القائمة للمواد المتكررة 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 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أغسطس 6, 2012 الكاتب مشاركة قام بنشر أغسطس 6, 2012 اخواني الاعزاء مع شكري وتقديري الفكره من الطلب تتلخص فيما يلي : تقوم حسابات المخازن بتنظيم مستندات الاستلام للمواد الوارده لا بتواريخ الاستلام بل بتواريخ التنظيم وذلك يؤثر في ايجاد الاسعار الاخيره لهذه المواد ، لذا قمت بالاعتماد على رقم الفاتوره الوارده الاعلى لاستخلاص الاسعار الاخيره منها وليس بالاعتماد على التاريخ الاحدث ، وكانت معادلة الاخ ( بن علية ) مساعده في هذا المجال . احترامي للجميع ودمتم لنا اخوة اعزاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان