طلب : امكانية الحصول على اخر سعر للصنف

[zezonew]

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

طلب : امكانية الحصول على اخر سعر للصنف 

ملحوظة : اذن الوارد يتكون من عدة اصناف وتواريخ صلاحية وسعر وكمية ويتم وضعهم في row واحد

بمعني كل اذن يتم وضعه في row 

HELP.rar

HELP.rar

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

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

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

Sub LoopDt()
For Each C In Range("B9:B15")
For Each F In Range("A2:P4")
If C.Value = F.Value Then
x = F.Offset(0, 1).Value
y = WorksheetFunction.Max(x)
If x = y Then
C.Offset(0, 1) = F.Offset(0, 2)
C.Offset(0, 2) = F.Offset(0, 3)
C.Offset(0, 3) = F.Offset(0, 1)
End If
End If
Next
Next
End Sub

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

هذا وبالله التوفيق

[zezonew]

ماشاء الله عليك يااستاذنا تسلم ايدك الكود اشتغل بالفعل بفضل الله 

ممكن اتعب حضرتك معايا : هل في امكانية للوصول لنفس النتيجة من خلال المعادلات اي يكون التعديل فوري وقت اضافة الاذن 

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

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

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

 

HELP.rar

[zezonew]

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

شكرا استاذنا علي تعبك معي 

عند تغيير اي سعر في الجدول تظهر لي الصورة التالية فهل الخطأ من عندي ؟

 

وفي حالة زيادة عدد الاصناف المدخلة في الاذن الي 30 او 40 صنف حيث يوجد الان 3 اصناف فقط للاذن الواحد كيف يمكنني عمل معادلة الصفيف الذي تفضلت حضرتك بوضعها لتناسب هذه الاصناف

 

 

وشاكر لك سعة صدرك 

 

 

 

 

تم تعديل يناير 15, 2017 بواسطه zezonew

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

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

اضغط (CTRL+SHIFT+ENTER)

وذلك بعد تحديد الخلية الاولى لعمود التاريخ

 

[zezonew]

استاذي الفاضل اولا اشكر مجهود حضرتك ومتابعتك الرائعة فجزاك الله خير الجزاء

ثانيا : اتمني من حضرتك قراءة السؤالين الذي قمت بطرحهم في مشاركتي السابقة مرة أخري