skyblue قام بنشر مايو 16, 2009 مشاركة قام بنشر مايو 16, 2009 السلام عليكم ورحمة الله وبركاته وبعد : هذا الموضوع محيرني منذ فترة واتمنى من الاساتذة الافاضل مساعدتنا في حل هذا الموضوع وعن طريق الكود وتفبلوا تحياتي Book2.rar Book3.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 16, 2009 مشاركة قام بنشر مايو 16, 2009 يا ريت الأخوة الأفاضل يشاركوا في الموضوع ده عايزين نكتر شوية من الأكواد والبرمجة بالفيجوال بيسك عاشق الإكسيل :fff: رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 17, 2009 مشاركة قام بنشر مايو 17, 2009 السلام عليكم بهذا الكود 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 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مايو 17, 2009 مشاركة قام بنشر مايو 17, 2009 السلام عليكم صباح الخير تسلم الأيادي استاذ ابو اسامة رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مايو 17, 2009 الكاتب مشاركة قام بنشر مايو 17, 2009 الاستاذ ابو اسامة صبحك الله بالخير ...شكرا جزيلا على الرد وعلى الكود . استاذي ابو اسامة قمت بنقل الملفين الى سطح المكتب وغيرت بدلا من ورفة1 غيلاتها الى sheet1 ولكن كود الترحيل لايعمل حيث ياتي خط اصفر على السطر الاول في الكود اتمنى ان تتكرم بحل المشكلة وتقبل تحياتي رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مايو 18, 2009 الكاتب مشاركة قام بنشر مايو 18, 2009 up رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 18, 2009 مشاركة قام بنشر مايو 18, 2009 السلام عليكم انا غيرتها و لم يحدث خطا لان الكود يتعامل مع كود الورقة و ليس مع الاسم كما انك لم تحدد في اى ملف غيرت في بوك2 ام بوك 3 رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مايو 18, 2009 الكاتب مشاركة قام بنشر مايو 18, 2009 السلام عليكم ورحمة الله وبركاته استاذ ابو اسامة انا عملت الاتي : في book3 غيرت ورقة 1 الى sheet1 وجربت وظهر نفس الخطأ اخير ا بتغيير مسمى ورقة 1 الى sheet1 في كلا من book2 و book3 وظهر نفس الخطأ تحياتي رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مايو 18, 2009 الكاتب مشاركة قام بنشر مايو 18, 2009 up رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 18, 2009 مشاركة قام بنشر مايو 18, 2009 (معدل) السلام عليكم قمت بتغييرهما و الملف يعمل لان العمل بمنطق(1+1 = 2 ) الكود يتعامل مع كود الورقة و ليس اسمها Test_them_Again.rar تم تعديل مايو 18, 2009 بواسطه ابو اسامة العينبوسي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.