اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل على كود ترحيل للأستاذ عادل حنفي


الردود الموصى بها

السلام عليكم جميعا

أريد التفضل من أساتذة المنتدى الكرام بعمل تعديل على الكود المرفق و هو للأستاذ عادل حنفي بحيث يبدأ الكود في الترحيل من السطر العاشر من صفحة البيانات و يلصق في الصفحات الأخري بداية من الصف العاشر أيضا لأن هناك عناوين ستكتب في السطورaysam.rar العشر العلوية

جزاكم الله كل خير

مرفق ملف

رابط هذا التعليق
شارك

السلام عليكم

اخي الحبيب aysam

كل ما عليك هو التغير في الكود من

For i = 2 To 1000
الي
For i = 10 To 1000

جرب و اخبرني النتيجة

و ان كنت تقصد الترحيل الي السطر العاشر في الصفحات المشار اليه

مرفق ملف بهذه الطريقة

تحياتي اليك

aysam.rar

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

السلام عليكم

أستاذ : عادل جزاك الله كل خير و جعله في ميزان حسناتك

لي استفسار

مالمقصود بهذا السطر من الكود

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)

أم أن هناك طريقة أخرى أكثر جدوى و فاعلية ؟؟

أخيرا هل لابد لهذا الكود أن يكون في الحدث التلقائي للصفحة أم من الممكن أن ينقل إلى موديول و يتم ربطه بزر بالطريقة المعتادة للمبتدئين أمثالي

جزاك الله كل خير و جعلك عونا لعمل الخير

تم تعديل بواسطه aysam
رابط هذا التعليق
شارك

السلام عليكم

اخي aysam

With Sheets("ناجح"Columns(1).Rows(300).End(xlUp)

هذا معنا الاتجاه الي شيت ناجح من العمود الاول وفي اول خلية فارغة بداية من الصف 300 لاعلي

و مالعمل إذا كان عدد الأعمدة المطلوب ترحيلها كبير( يزيد على 50 عمود ) هل أقوم بإضافة رقم العمود للدالة offset حتى أصل إلى آخر عمود كما بالمثال

ممكن عمل ذلك بطريقة اخري و لكن محتاجه ملف للتجربة فان كان لديك ملف جاهز ارجو رفعه او انتطر و ان شاء الله تحل

أخيرا هل لابد لهذا الكود أن يكون في الحدث التلقائي للصفحة أم من الممكن أن ينقل إلى موديول و يتم ربطه بزر بالطريقة

ممكن هذا او هذا

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

aysam1.rar

السلام عليكم

أستاذ عادل

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

مرفق الملف الذي أمرت به وبه عدد الأعمدة المطلوب ترحيلها و البيانات

أرجوا المحافظة على الشروط السابقة ( بداية الترحيل و اللصق من الصف العاشر)

شكرا جزيلا

رابط هذا التعليق
شارك

السلام عليكم

اخي الحبيب aysam

لايوجد تعب اخي و لا شئ

و انا قصدت هنا ان لا يكون هناك لا قص ولا لصق

فهي طريقة عندما يتحقق الشرط المطلوب في الصف يتم الوقوف علي خلية خلية ونقلها لما يقابلها في الشيت الاخر

اما بخصوص النقل في الصف العاشر في الشيتات الاخري كل ما عليك هو كتابة عنوان كل عمود في الصف التاسع و لا تترك عنوان فارغ

انا وضعت العنوان في الشيتين حرف م لكل الاعمده

ارجو التجربة و اخباري النتيجة

خالص تحياتي

aysam.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information