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

[أيسم إبراهيم]

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

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

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

مرفق ملف

[عادل حنفي]

السلام عليكم

اخي الحبيب aysam

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

For i = 2 To 1000

الي

For i = 10 To 1000

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

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

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

تحياتي اليك

aysam.rar

تم تعديل مارس 13, 2009 بواسطه 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)

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

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

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

تم تعديل مارس 14, 2009 بواسطه aysam

[عادل حنفي]

السلام عليكم

اخي aysam

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

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

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

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

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

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

تم تعديل مارس 14, 2009 بواسطه aah_aah2008

[أيسم إبراهيم]

aysam1.rar

السلام عليكم

أستاذ عادل

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

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

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

شكرا جزيلا

[عادل حنفي]

السلام عليكم

اخي الحبيب aysam

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

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

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

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

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

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

خالص تحياتي

aysam.rar

[أيسم إبراهيم]

السلام عليكم أستاذ عادل

جزاك الله كل خير و جعله في ميزان حسناتك مثاقيل كثيرة

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

شكرا مرة أخرى