طلب تعديل كود VBA

[munear]

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

انتبه من فضلك ... فطلبك لا يمكن عمله الا بالأكواد فلذلك كان عليك رفع الملف بإمتداد Xlsm , فقد تـــم تعديل رفع الملف بهذا الإمتداد

تثبيت معادلة.xlsm

[حسين مامون]

Option Explicit

Sub stabelerFR()
Dim lr
Dim r

lr = Cells(Rows.Count, "e").End(3).Row
r = "=VLOOKUP(H10,أسعار!B:C,2,)"
Range("e10:e" & lr).Formula = r
Range("e10:e" & lr).Value = Range("e10:e" & lr).Value

End Sub

استعمل هذا الشيء سيفي بالغرض ..ولكن لازم تحفظ الملف بامتداد xlsm

 

[محمد يوسف ابو يوسف]

السلام عليكم 

بعد اذن استاذنا حسين مامون ..جرب هذا الكود

Sub tast()
      
    Application.ScreenUpdating = False
    Range("E10:E405").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(R10C8:R[395]C[3],أسعار!C[-3]:C[-2],2,),"""")"
    Range("E10").Select
    Selection.AutoFill Destination:=Range("E10:E5000")
    Range("E10:E5000").Select
    Selection.Copy
    Range("E10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("E10").Select
Application.ScreenUpdating = True
End Sub

الملف تثبيت معادلة.xlsm

[munear]

الاح محمد يوسف اشكرك على مجهودك ولكن الكود يعمل حصرا من صفحة الاكواد vba وليس بشكل تلقاىي حيث يقوم باستعمال دالة البحث ومن ثم يضع النتيجة كقيمة ولكن ما اريده فضلا منكم هو الاحتساب بعد ادخال التاريخ في عمود تاريخ الاستلام حصرا وان يقوم به بشكل تلقائي بدون العودة الى تبويب المطور صفحة الاكود وتفعيل زر التشغيل الاخضر للكود   ...من بعد اذنك لقد قمت بتنزيل الملف المرفق منك ورأيت زر الماكرو  وهو يقوم بالعمل المطلوب لكامل عمود السعر الافرادي وانا غايتي ان يكون الاحتساب لدالة البحث وتثبيت النتيجة لقيمة للاسطر التي يتم ادخال تاريخ الاستلام فقط وليس لكامل العمود اي ان تكون الخلية k10<>"" كمثال

[حسين مامون]

جرب المرفق

تثبيت معادلة.xlsm

[محمد يوسف ابو يوسف]

تفضل 

الملف تثبيت معادلة.xlsm

الكود المستخدم

Sub tast()
            Application.ScreenUpdating = False
    Range("E10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[6]>1,VLOOKUP(RC[3],أسعار!C[-3]:C[-2],2,),"""")"
    Range("E10").Select
    Selection.AutoFill Destination:=Range("E10:E405")
    Range("E10:E405").Select
    Selection.Copy
    Range("E10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("E10").Select
Application.ScreenUpdating = True
End Sub

هل هذا ما تريد  ؟

 

[munear]

الاستاذ حسين جزاك الله كل خير كألية عمل كود هذا ما كنت اقصده بالضبط حسب ملفكم المرفق ولكن بقيت جزئية بسيطة حيث ان اليةvlookup لا تعمل ضمن هذا الكود وتعطيني رقم ثابت وهو 2.5 اي انها لا تقوم بجلب القيمة المقابلة لرقم الموديل في ورة الاسعار والباقي فهو ممتاز وجعله الله في ميزان حسناتك حيث انه يثبت قيمة السعر الافرادي بعد ادخال التاريخ مباشرة 

استاذ محمد يوسف الله ينور عليك هذا ما اريده ولكن هل يمكننا الاستغناء عن زر الماكرو " اضغط هنا " بحيث تتم الخطوات السابقة تلقائيا بعد ادخل التاريخ في عمود تاريخ الاستلام

[محمد يوسف ابو يوسف]

تفضل  ...الملف ...اتمنا من الله ان يكون هو المطلوب !!!

 تثبيت معادلة (1).xlsm

 

[munear]

اخي الكريم محمد يوسف ابو يوسف ان هدفي الاساسي من البحث عن هذا الكود وتثبيت القيمة ان لا يكون له مفعول رجعي  للاسعار التي يتم تثبيت قيمتها وفي ملف المرفق في حال تم تعديل سعر مادة في ورقة الاسعار وعدنا للصفحة الرئسية لادخال نفس رقم الموديل فانه يعطينا السعر الجديد ويعود للقديم فيعدل سعرهم على السعر الجديد وهذا ما احاول التخلص منه في طلب هذا الكود ...مع كل احترامي وتقديري لجهودك

 

[حسين مامون]

اخي الكريم munear

جرب المرفق ..ادخل المودييل اولا ثم تاريخ الاستلام

تثبيت معادلة.xlsm

[munear]

جزاك الله كل خير استاذ حسين مأمون وجعلها في ميزان حسناتك هذا ما كنت اريده بالضبط هذا مكنني من متابعة اسعار مادة ما حسب الواقع مع ملاحظة تعديل اسعارها🌷

[munear]

ممكن المساعدة في تعديل هذا الكود بحيث يقوم بتنفيذ دالة البحث في عمود السعر الافرادي فور ادخال رقم الموديل والحفاظ عليها كرقم ناتج عن دالة البحث لحين ادخال تاريخ الاستلام في العمود المخصص له بحيث تصبح الرقم المحسوب في عمود السعر الافرادي نتيجة دالة البحث قيمة ثابتة  غير قابلة للتغيير في حال تم تغيير السعر االمغذي لدالة البحث value  ..انتبه من فضلك على الا تتكرر نفس المشاركات

تثبيت معادلة.xlsm