طلب تعديل خطأ كود نسخ بيانات من شيت الى اخر

[M.NHAKAMI]

السلام عليكم 

عندي ملف اريد نسخ بيانات من شيت الى شيت اخر نسخ البيانات فقط دون تغير التنسيق للخلايا ولكن يظهر خطأ لم اعرف ماهو الملف مرفق شاكر لكم جميعا 

Sheets("programdata").Activate
Range("b2").Copy
Sheets("nameperson").Activate
Range("b1").End(xlUp).Select
Selection.PasteSpecial xlPasteValues

Sheets("programdata").Activate
Range("f3").Copy
Sheets("nameperson").Activate
Range("f1").End(xlUp).Select
Selection.PasteSpecial xlPasteValues


Sheets("programdata").Activate
Range("j4").Copy
Sheets("nameperson").Activate
Range("j1").End(xlUp).Select
Selection.PasteSpecial xlPasteValues


Sheets("programdata").Activate
Range("n2").Copy
Sheets("nameperson").Activate
Range("n1").End(xlUp).Select
Selection.PasteSpecial xlPasteValues

نسخ من شيت الى شيت.rar

[omar elhosseini]

اخي

الغي حمابة شيت

nameperson

ثم جرب الكود

او ضمن الكود قي اوله رفع الحماية

ثم في نهايتة ضع الحماية مرة اخري

[M.NHAKAMI]

احتاج ان يكون الشيت محمي دائما علما ان الخلايا التي احتاج تنتقل فيها البيانات غير محميه قابله للتعديل 

[omar elhosseini]

أخي 

ارفع الحماية وحمل الملف مرة ثانية لنعرف السبب

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

B1:C3

رغم ان قوانين المنتدي يمنع وضع ملفات عليها حماية

شاهد المرفق

نسخ من شيت الى شيت.xlsm