تعديل على كود الترحيل ليحذف الصف بعد الترحيل

[مصطفى محمود مصطفى]

السلام عليكم

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

لكن ظهرت مشكلة انه لايتم حذف صف المعلومات التي نقلت بياناتها الى

ورقة المنقولين من المدرسة ارجو مساعدتي بحذف الصف بعد الترحيل

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

في تسلسلها اقصد ازاحة البيانات الى محل الصف الذي حذف او الصفوفربما تكون متفرقة وليس متتالية

وطبيعي التسلسل في العمود A  يبقى كما هو عند ازاحة الصفوف الى الاعلى

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

 

ترحيل وحذف الصفوف التي رحلت اسماءها.rar

[الـعيدروس]

السلام عليكم

 السطر التالي

cel.SpecialCells(xlCellTypeConstants).ClearContents

استبدله بهذا

cel.Delete Shift:=xlUp

 

[مصطفى محمود مصطفى]

السلام عليكم

اخي الاستاذ ابو نصار جزاكم الله خيرا

تعديل رائع وممتاز 

نسال الله ان يحفظكم من كل سوء

شكرا لتعاونكم معي 

تحياتي

[مصطفى محمود مصطفى]

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

عند تنفيذ كود الترحيل وحذف الصف تحدث مشاكل في المعادلات في اوراق اخرى

السبب هو تغيير مدى الاسماء المعرفة  عند حذف الصف وكما موجود في المثال

هل يمكن تغيير الكود او التعديل عليه حيث يسمح بحذف الصف دون ان يتغير مدى الاسماء او اي حل اخر

حيث نتلافى مشكلة الاخطاء التي تحدث بالمعادلات عند تنفيذ الكود

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

حجم الملف كبير رفعته على رابط خارجي

http://www.up-00.com/?RTDL

[مصطفى محمود مصطفى]

السلام عليكم

الاخوة الافاضل قمت بالبحث عن حل للمشكلة

قمت باضافة هذا السطر للكود القديم (

With Range("A5:U" & Lrr)         .Sort .Columns(21), xlAscending

وعملت عمود مساعد عليه يعتمد الفرز

والان الكود يفي بالغرض ارجو  بيان رايكم وتعديل ما يلزم تعديله او اي فكرة اخرى تفي بالغرض

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

ارجو ملاحظة ذلك وتعديله من اهل الخبرة لكي يكون مضبوط عند العمل عليه

شكرا لتعاونكم معي وبارك الله بكم

تحياتي

 

الحمد لله تم الحل بعمود مساعد.rar

تم تعديل نوفمبر 25, 2015 بواسطه مصطفى محمود مصطفى