أيسم إبراهيم قام بنشر مارس 13, 2009 مشاركة قام بنشر مارس 13, 2009 السلام عليكم جميعا أريد التفضل من أساتذة المنتدى الكرام بعمل تعديل على الكود المرفق و هو للأستاذ عادل حنفي بحيث يبدأ الكود في الترحيل من السطر العاشر من صفحة البيانات و يلصق في الصفحات الأخري بداية من الصف العاشر أيضا لأن هناك عناوين ستكتب في السطورaysam.rar العشر العلوية جزاكم الله كل خير مرفق ملف رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 13, 2009 مشاركة قام بنشر مارس 13, 2009 (معدل) السلام عليكم اخي الحبيب aysam كل ما عليك هو التغير في الكود من For i = 2 To 1000 الي For i = 10 To 1000 جرب و اخبرني النتيجة و ان كنت تقصد الترحيل الي السطر العاشر في الصفحات المشار اليه مرفق ملف بهذه الطريقة تحياتي اليك aysam.rar تم تعديل مارس 13, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مارس 14, 2009 الكاتب مشاركة قام بنشر مارس 14, 2009 (معدل) السلام عليكم أستاذ : عادل جزاك الله كل خير و جعله في ميزان حسناتك لي استفسار مالمقصود بهذا السطر من الكود With Sheets("ناجح"Columns(1).Rows(300).End(xlUp) و مالعمل إذا كان عدد الأعمدة المطلوب ترحيلها كبير( يزيد على 50 عمود ) هل أقوم بإضافة رقم العمود للدالة offset حتى أصل إلى آخر عمود كما بالمثال التالي: .Offset(1, 1) = Cells(i, 2) .Offset(1, 2) = Cells(i, 3) .Offset(1, 3) = Cells(i, 4) .Offset(1, 4) = Cells(i, 5) .Offset(1, 5) = Cells(i, 6) .Offset(1, 6) = Cells(i, 7) أم أن هناك طريقة أخرى أكثر جدوى و فاعلية ؟؟ أخيرا هل لابد لهذا الكود أن يكون في الحدث التلقائي للصفحة أم من الممكن أن ينقل إلى موديول و يتم ربطه بزر بالطريقة المعتادة للمبتدئين أمثالي جزاك الله كل خير و جعلك عونا لعمل الخير تم تعديل مارس 14, 2009 بواسطه aysam رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 14, 2009 مشاركة قام بنشر مارس 14, 2009 (معدل) السلام عليكم اخي aysam With Sheets("ناجح"Columns(1).Rows(300).End(xlUp) هذا معنا الاتجاه الي شيت ناجح من العمود الاول وفي اول خلية فارغة بداية من الصف 300 لاعلي و مالعمل إذا كان عدد الأعمدة المطلوب ترحيلها كبير( يزيد على 50 عمود ) هل أقوم بإضافة رقم العمود للدالة offset حتى أصل إلى آخر عمود كما بالمثال ممكن عمل ذلك بطريقة اخري و لكن محتاجه ملف للتجربة فان كان لديك ملف جاهز ارجو رفعه او انتطر و ان شاء الله تحل أخيرا هل لابد لهذا الكود أن يكون في الحدث التلقائي للصفحة أم من الممكن أن ينقل إلى موديول و يتم ربطه بزر بالطريقة ممكن هذا او هذا تم تعديل مارس 14, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مارس 14, 2009 الكاتب مشاركة قام بنشر مارس 14, 2009 aysam1.rar السلام عليكم أستاذ عادل جزاك الله كل خير على تعبك معانا و سعة صدرك جعله الله في ميزان حسناتك مرفق الملف الذي أمرت به وبه عدد الأعمدة المطلوب ترحيلها و البيانات أرجوا المحافظة على الشروط السابقة ( بداية الترحيل و اللصق من الصف العاشر) شكرا جزيلا رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 14, 2009 مشاركة قام بنشر مارس 14, 2009 السلام عليكم اخي الحبيب aysam لايوجد تعب اخي و لا شئ و انا قصدت هنا ان لا يكون هناك لا قص ولا لصق فهي طريقة عندما يتحقق الشرط المطلوب في الصف يتم الوقوف علي خلية خلية ونقلها لما يقابلها في الشيت الاخر اما بخصوص النقل في الصف العاشر في الشيتات الاخري كل ما عليك هو كتابة عنوان كل عمود في الصف التاسع و لا تترك عنوان فارغ انا وضعت العنوان في الشيتين حرف م لكل الاعمده ارجو التجربة و اخباري النتيجة خالص تحياتي aysam.rar رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر مارس 17, 2009 الكاتب مشاركة قام بنشر مارس 17, 2009 السلام عليكم أستاذ عادل جزاك الله كل خير و جعله في ميزان حسناتك مثاقيل كثيرة جاري التجربة و إخبارك بالنتيجة شكرا مرة أخرى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان