تعديل على كود ترحيل

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

السلام عليكم

السادة الكرام 

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

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

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

وينقسم العرج الى اسرى وشخصى

ويوجد كود لاخ ابو عيد يقوم بترحيل على اساس كون العلاج Personal  او Family

اذا كان Family فيقوم بالترحيل حتى العمود F

مثال

يقوم بترحيل الى الشيت رقم 134 حسب اسم الشيت بالعمود A

ويرحل من الخليه C الى F الى الشيت 134 الى الخلايا  B  الى E

المطلوب ان اقوم بتوسيع الترحيل ليشمل

النظارات وبيانها من الخلايا G و H الى الخلايا I6  و J6

وتركيبات الاسنات وبيانها من الخلايا I و J  الى الى الخلايا I27 و J27

والعمليات وبيانها من الخلايا K و L الى الخلايا I43   الى   J43

وهكذا فى الشخصى

اتمنى ان اكون اوضحت الصوره

 

 

 

 

 

TIST#2.rar

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

للرفع اكرمكم الله

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

للرفع اكرمكم الله

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

للرفع اكرمكم الله

[أبوعيد]

جرب المرفق

TIST#2.rar

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

السلام عليكم

الاخ الفاضل ابوعيد

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

اخى الحبيب عند تجربة الملف ظهر شيئبن

1- عند تغير النظاق الى personal  وتطبيق الترحيل يظهر خطاءملون بلاصفر

Sheets(Range("a" & t).Text).Range("N" & r & ":Q" & r5) = Range("c" & t & ":f" & t).Value

2- اذا تم ترحيل علاج فقط او نظارات فقط يتم كتابه التاريخ فى العلاج والنظارات والعمليات الاسنان

 

http://www.flflh.com/download-79631-Untitled.jpg.html

 

 

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

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

[أبوعيد]

السلام عليكم

تم التعديل

جرب المرفق

TIST#3.rar

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

السلام عليكم

اخى الحبيب ابو عيد

جزاك الله كل الخير والتقدير

اشكر لك وقتك ومجهودك الكبير

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

الامر تم لصورة رائعة 

وجارى تجربتة بصورة اشمل 

الا انى متاكد انه الحل الامثل

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