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

[۩◊۩ أبو حنين ۩◊۩]

 السلام عليكم

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

1- فى شيت TRANSEالعمود B  به اسم الشيت المراد الترحيل اليه

2- اذا احتوى العمود C  على كلمه نهار يتم الترحيل ابتداء من العمود D الى  H الى الشيت المراد ابتداء من الخليه B الى  F

3- واذا كان محتوى الخلية C كلمه ليل  يتم الترحيل ابتداء من العمود  D الى  H الى الشيت المراد ابتداء من الخليه H الى  K

ويتم مسح البيانات اذا تم الترحيل من الشيت الاصلى

ارجو ان اكون اوضحت الامر

ملحوطة

اذا لم يتفق الرقم المكتوب فى العمود B واسم الشيت  تظهر رساله بان اسم الشيت غير موجود

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

Book1.rar

تم تعديل نوفمبر 30, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[أبوعيد]

تفضل

BOOOook1.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم الاخ العزبز ابوعيد

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

ويبقى طلب اخير

اذا لم يتفق الرقم المكتوب فى العمود B واسم الشيت  تظهر رساله بان اسم الشيت غير موجود

وان يتم مسح البيانات المرحلة بعد الترحيل من شبت TRANSE

واخيرا

ارجو شرح الكود كى تعم الفائدة

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

[أبوعيد]

السلام عليكم

إذا كان الشيت غير موجود وثم مسح البيانات فلن تستطيع إرجاعها

ما رأيك إذا كان الشيت غير موجود يقوم الكود بعمل ورقة باسم الشيت الجديد ويرحل إليها البيانات ؟

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب

جزاك الله كل الخير على اهتمامك

المطلوب الاول هو ما اريد

اذا كان الرقم الموضوع فى العمود b غير مطابق لاسم الشيت تظهر رسال بذلك

ولا مانع من مسح لببيانات

والاهم انه بعد الترحيل  يتم مسح البيانات  من شيت TRANSE

 

*** وما رأيك إذا كان الشيت غير موجود يقوم الكود بعمل ورقة باسم الشيت الجديد ويرحل إليها البيانات ؟

اذا لو الرقم خطاء ادخال سوف يتم انشاء شيت بالخطاء وذلك غير مرحب به

 

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

وارجو الا تنسى شرح الكود

[أبوعيد]

السلام عليكم

جرب المرفق

TIST#1.rar

[سيف الدين حسام]

السلام عليكم 

أبوعيد

 

ممكن شرح للأكود 

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الكريم ابو عيد

اولا سلمت يداك بكل خير كود فوق الرائع

واسال الله عز وجل ان يجعلة فى ميزان حسناتك

اخى الكريم ابو عيد 

عند تكرار الترحيل مثال ترحيل علاج لرقم 134 اكثر من مره 

يتم مسح القديم ويبقى اخر شئ مرحل

اريد الغاء هل تريد مسح البيانات القديمة

 

و تظهر رساله خطاء اثناء عمل الكود

وذلك عند اضافه اكثر من شيت ليسو موجودين من قبل

اى عند كتابة 160 و161 ولم يكونا موجودين من قيل

يتم اضافة شيت واحد فقط وتظهر الرسالة

 

هل من حل لذلك

 

r = Sheets(Range("a" & t).Text).[b1000].End(xlUp).Row + 1

 

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

تم تعديل ديسمبر 2, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

 اخى الكريم ابو عيد

اريد الغاء ظهور هل تريد مسح البيانات القديمه

وعدم تفعيلها لان النفترض ان شبن كل شخص يحتفظ بحركى العلاج لمده عام او اكثر

[أبوعيد]

السلام عليكم

تفضل الملف والشرح في محرر الأكواد

TIST#1.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ ابوعيد

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

عند تنفيذ الكود تظهر رساله خطاء

r = Sheets(Range("a" & t).Text).[b1000].End(xlUp).Row + 1

لماذا

 

بعد عدده محاولات عند اضافه الرقم 66 فقط تظهر هذه الرساله

لاكن الامر تم بصوره جيده جدا 

اسال الله عز وجل ان يجعلة فى ميزان حسناتك 

ويقدر لك كل الخير

تم تعديل ديسمبر 3, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[الصـقر]

تم تعديل الكود هل هو المطلوب

TIST.zip

[۩◊۩ أبو حنين ۩◊۩]

الاخ العزيز 

حسام عيسى

سلمت يداك بكل خير 

اجدك دائما عون للجميع