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

[أستيكا]

السادة / أعضاء المنتدى الموقر

برجاء المساعدة فى عمل كود يمنع تغيير المدخلات السابقة عند تغيير نسب معينة ، مع توضيح كيفية عمل الكود حتى أتمكن من تطبيقة على اى شيت فى المستقبل  بارك الله فيكم       فى شيت Data فى أعمدة N - O - P

انتبه لهذا الأمر ... بما انك تريد الإجابة والحل بالأكواد , فتم تعديل رفع الملف بإمتداد XLSM

مبيعات كانليمون جاردن 8.xlsm

[حسين مامون]

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("n2:p1000000")) Is Nothing Then
'ÇÐÇ Êã ÊÍÏíÏ Çí ÎáíÉ Ýí ÇáãÏì ÇáãÐßæÑ äÝÏ ÇáÓØÑ ÇáÊÇáí
 Target.Offset(, 1).Select
 'ÇÒÇÍÉ ãÞÏÇÑ 1 ãä ÇáÎáíÉ ÇáãÍÏÏÉ
  End If
End Sub

يمكنك اضافة اعمدة اخرى باستعمال Elseifمبيعات كانليمون جاردن 8.xlsm

[أستيكا]

سلمت يداك اخى الكبير حسين مأمون و اسف على الازعاج