كود لعدم تأثر أو تغيير أسعار المدخلات القديمة عند تحديث الأسعار

[أستيكا]

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

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

و جزاكم الله خيرا  ... تم تعديل عنوان المشاركة ليعبر عن طلبك ,تـــم إعادة رفع الملف بدون حماية

test.xlsm

[حسين مامون]

جرب هذا الشيء

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim WS2 As Worksheet
Set WS2 = Sheets("Price list Gouna")
Dim RG, lr
Dim x, RT
Set RG = WS2.ListObjects("Table2").Range
Set RT = ActiveSheet.Range("k3:k120000")
lr = RG.Find(WHAT:="*", AFTER:=RG.Cells(1), lookat:=xlPart, LookIn:=xlFormulas, searchorder:=xlByRows, _
searchdirection:=xlPrevious, MatchCase:=False).Row
'==================
If Not Intersect(Target, RT) Is Nothing Then
For x = 3 To lr
If WS2.Cells(x, 1).Text = Target Then
   Target.Offset(, -1).Value = WS2.Cells(x, 3).Value
   Target.Offset(, -3).Value = WS2.Cells(x, 2).Value
   
Exit For
End If
Next x
End If
End Sub

1096400303_test(5).xlsm

[أستيكا]

أخى الكريم / حسين مامون

يعجز لسانى عن الشكر و لكن أدعو الله أن يزيدكم من علمة و فضلة