تحويل معادلة لـ data validation إلى كود VBA

[أبو إسحاق]

السلام عليكم

 

لدي ملف وأرغب في أن ألزم المستخدم أن يستخدم رموز معينه للإدخال

هذه الرموز موجودة في الشيت الأول وباقي الصفحات شيت2 وشيت3 للعمل

حاليا أستخدم هذه المعادلة في المدى المطلوب وهي فعالة

=IF(SUMPRODUCT(COUNTIF(Sheet1!B4:O24,E7))=1,1,0)

المشكلة أحيانا بعض المستخدمين يقومون بالنسخ من أمكان مختلفه وتختفي خاصية التحقق

 

أريد نفس الطريقة ولكن  VBA

مرفق ملف للعمل

ولكم جزيل الشكر

Book2.xlsm

[احمد بدره]

لتفادي إخفاء خاصية التحقق من الصحة عند اللصق في خلية معينة او عدة خلايا

اضغط كليك يمين واختر نوع اللصق ( قيم )

[أبو إسحاق]

أشكر أخي أحمد على الرد

لكن المستخدمين لا يتقيدون

 

فايليت تلبية طلبي وإثراء الموضوع بالكود المطلوب إن أمكن ولكم جزيل الشكر