استفسار حول خطأ في نقل برمجة

[م/ مغترب]

السلام عليكم ورحمة الله وبركاته

 

 

وجدت هذا الملف  للأستاذ / أحمد فضيلة 

لترحيل

وكنت أريد نسخه الى ملف اخر

لكن المشكلة ان الخطأ يظهر دائما عند نسخه الى ملف جديد

For R = 2 To .Range("AG20000").End(xlUp).Row

 

ممكن من الاخوة شرح سبب الخطأ و كيفية التصحيح

مع العلم حاولت على عدة ملفات  لكن نفس الخطأ

 

تم إرفاق نفس ملف الأستاذ / أحمد فضيلة

 

وشكرا للجميع

كود نقل بيانات مباشرة بدون رز امر.rar

تم تعديل أغسطس 18, 2013 بواسطه م/ مغترب

[أبو حنــــين]

السلام عليكم

أخي ربما الخطأ في تسمية الورقة

تأكد  من اسم الورقة التي تكتب بها البيانات و التي اسمها في هذا الكود With Sheet1

ربما الورقة ليس اسمها  Sheet1

[الـعيدروس]

بامكانك تعديل مسمى الورقة

او ينفذ الكود على الورقة الفعاله

With ActiveSheet

بدلا من 

With Sheet1

[م/ مغترب]

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

 

بالفعل المشكلة كانت بإسم الورقة الرئيسية

 

  حلت المشكلة