تصحيح كود مرفق

[شكيب عمار]

لم يقبل الأكسل هذا السطر

Sheets("كشف التنقيط").Range("N10").FormulaR1C1 = "=" & Sheets("كشف التنقيط").Range("aa19").text

فما هو الحل بارك الله فيكم

[سليم حاصبيا]

Sheets("كشف التنقيط").Range("N10") = Sheets("كشف التنقيط").Range("AA19")

بشرط ان يكون اسم الشيت بالكود كما هو بالضبط على الـــ  (تاب) دون مسافات ناقصة او زائدة 

   الافضل عمل    Copy  Paste   لاسم الشيت   

 

 

 

[شكيب عمار]

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

[سليم حاصبيا]

لا استطيع اعطاء اجابة دون الاطلاع على المطلوب

ارفع تموذج بسيط من 5 الى عشرة صفوف فقط (لا يهمني حجم الملف لان الكود الذي يعمل على صف واحد يمكن ان يعمل على الألوف منها)
   مع عرض النتائج المتوقعة

 

[شكيب عمار]

من خلال ردك أعلاه، نبهتني لحل المشكل، والأمر تمام التمام، شكرا جزيلا وانت وأسرة الموقع