السلام عليكم ورحمة الله وبركاته الأخ / محمد فيروز با رك الله فيك الباسورد صحيح تأكد من أن لغة لوحة المفاتيح إنجليزية الأخ/ صابر الأخ/ محمد بالنسبة لعمل البرنامج كالآتى :- بعد الدخول على صفحة إدخال بيانات الطلبة وفك الحماية (123) كليك يمين على زر نسخ البيانات بعدد الطلاب تظهر نافذة نختار -تحرير - (Edit) تظهر نافذة الفيجوال بيزك بها مجموعة من الموديولات والماكروهات والزر السابق يخص الكود الآتى:- Sub MacroFil1() Application.ScreenUpdating = False Sheets("بيانات الطلبة").Range("a7:o7"