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