نقل البيانات من الملف book2 الى الملف book3 عن طريق الكود

[skyblue]

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

هذا الموضوع محيرني منذ فترة واتمنى من الاساتذة الافاضل مساعدتنا في حل هذا الموضوع وعن طريق الكود

وتفبلوا تحياتي

Book2.rar

Book3.rar

[ياسر خليل أبو البراء]

يا ريت الأخوة الأفاضل يشاركوا في الموضوع ده

عايزين نكتر شوية من الأكواد والبرمجة بالفيجوال بيسك

عاشق الإكسيل

:fff:

[ابو اسامة العينبوسي]

السلام عليكم

بهذا الكود

 z = 5
For i = 1 To ActiveSheet.UsedRange.Rows.Count
 x = Workbooks("book3").Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
 Workbooks("book3").Sheets(1).Cells(x, 1) = ActiveWorkbook.Sheets(1).Cells(z, 3)
 Workbooks("book3").Sheets(1).Cells(x, 2) = ActiveWorkbook.Sheets(1).Cells(z, 4)
 Workbooks("book3").Sheets(1).Cells(x, 6) = ActiveWorkbook.Sheets(1).Cells(z, 8)
 Workbooks("book3").Sheets(1).Cells(x, 7) = ActiveWorkbook.Sheets(1).Cells(z, 9)
 z = z + 1
Next i

Test_Them.rar

[احمدزمان]

السلام عليكم

صباح الخير

تسلم الأيادي استاذ ابو اسامة

[skyblue]

الاستاذ ابو اسامة صبحك الله بالخير ...شكرا جزيلا على الرد وعلى الكود .

استاذي ابو اسامة قمت بنقل الملفين الى سطح المكتب وغيرت بدلا من ورفة1 غيلاتها الى sheet1

ولكن كود الترحيل لايعمل حيث ياتي خط اصفر على السطر الاول في الكود

اتمنى ان تتكرم بحل المشكلة

وتقبل تحياتي

[skyblue]

up

[ابو اسامة العينبوسي]

السلام عليكم

انا غيرتها و لم يحدث خطا

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

كما انك لم تحدد في اى ملف غيرت في بوك2 ام بوك 3

[skyblue]

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

استاذ ابو اسامة انا عملت الاتي :

في book3 غيرت ورقة 1 الى sheet1

وجربت وظهر نفس الخطأ

اخير ا بتغيير مسمى ورقة 1 الى sheet1 في كلا من book2 و book3

وظهر نفس الخطأ

تحياتي

[skyblue]

up

[ابو اسامة العينبوسي]

السلام عليكم

قمت بتغييرهما و الملف يعمل

لان العمل بمنطق(1+1 = 2 )

الكود يتعامل مع كود الورقة و ليس اسمها

Test_them_Again.rar

تم تعديل مايو 18, 2009 بواسطه ابو اسامة العينبوسي