السلام عليكم
نعم يمكن تطبيق الكود بدون إزرار وذلك بوضعه في حدث تفعيل الصفحة ACTIVATE
كما هو مرفق بالملف
شرح السطر الأول من الكود :
اختر النطاق Range("A9:CD9") ثم قم بنسخ كل المعادلات الموجودة في الصف A9:CD9 إلى النطاق A9:CD33
(الكود لا يعرف ما هي المعادلات ولكنه سيقوم بنسخها فقط أيا كانت )
Range("A9:CD9").AutoFill Destination:=Range("A9:CD33"), Type:=xlFillDefault
شرح السطر الثاني من الكود :
بعد ذلك قم بإزالة المعادلات من النطاق A10:CD33 واحتفظ بالقيم فقط
Range("A10:CD33") = Range("A10:CD33").Value
وهكذا يتكرر الكود على النطاقات المختلفة حسب الشيت
لاحظ معي الأرقام الحمراء :عندما أزلنا المعادلات من النطاق A10:CD33 فهذا يعني أن النطاق A9:CD9 لا زال يه معادلات وقد احتفظنا بها في هذا السطر حتى يتم تطبيق الكود مرات عديدة
بمعنى أننا إن أزلنا المعادلات من النطاق A9:CD33 لن يستطيع الكود نسخها
تحياتي
اكتوبر خزينة#2.rar