كود ترحيل

[محمد فاروق محمود]

ارجو من حضراتكم مساعدتى فى ترحيل بيانات وشكراNew Microsoft Excel Worksheet.rar

[سليم حاصبيا]

ربما يكون المطلوب

 

salim_Data.rar

[محمد فاروق محمود]

جزاك الله كل الخير لم اتوقع الرد السريع شكرا لك ولكن عند اختيار اسم حمد واضغط زر ترحيل يرحل تحت اسم احمد وممكن لو هيرحل نفس القيم للصف السابق يعطى رسالة انة مكرر وهل من الممكن شرح الاكواد حتى تعم الفائدة ونتعلم من حضرتك ولك كل الاحترام

[سليم حاصبيا]

ربما يكون المطلوب حسب ما فهمت من المشاركة

 

 

 

salim_Data1.rar

[محمد فاروق محمود]

لك كل الشكر لاهتمام حضرتك المشكلة كلها

- لو بدات باختيار حمد يتم الترحيل تحت اسم احمد 

- اسمحلى لو اطمع فى كرمك لو قسمت الاسماء على قسمين احدهما من العمود C الى العمود H كجانب منة يتم ترحيل من خلايا E5 الى E8 من صفحة SHEET1

والاخر  من العمود Oالى العمود H كجانب لة يتم ترحيل من خلايا E10 الى E13 من صفحة SHEET1 شكرا اخى

[سليم حاصبيا]

59 دقائق مضت, محمد فاروق محمود said:

لك كل الشكر لاهتمام حضرتك المشكلة كلها

- لو بدات باختيار حمد يتم الترحيل تحت اسم احمد 

- اسمحلى لو اطمع فى كرمك لو قسمت الاسماء على قسمين احدهما من العمود C الى العمود H كجانب منة يتم ترحيل من خلايا E5 الى E8 من صفحة SHEET1

والاخر  من العمود Oالى العمود H كجانب لة يتم ترحيل من خلايا E10 الى E13 من صفحة SHEET1 شكرا اخى

استبدل السطر قي الكود حيث كلمة Find_Col  بهذا السطر فقط:

Find_Col = Tar_Sh.Cells.Find(My_Name,lookat:=xlWhole).Column

 

 

[محمد فاروق محمود]

الله ينور تسلم كدا تم التاكيد على الاسم وبكدا الترحيل زى الفل هل من الممكن نطمع فى الطلب الثانى 

- لو قسمت الاسماء على قسمين احدهما من العمود C الى العمود H كجانب منة يتم ترحيل من خلايا E5 الى E8 من صفحة SHEET1

والاخر  من العمود Oالى العمود H كجانب لة يتم ترحيل من خلايا E10 الى E13 من صفحة SHEET1 شكرا اخى