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

[khairi ali]

السلام عليكم ورحمة الله وبركاته

أخواني الكرام بعد التحية 

الرجاء تعديل كود الترحيل للاستاذ ياسر بحيث يتم الترحيل حسب القسم  كما موضح في الملف المرفق

ولكم مني جزيل الشكر

الترحيل بشرط القسم.xlsb

[عبدالله الصاري]

السلام عليكم

عذرا للتاخير انقطاع الكهرباء وصل لارقام قياسية

جرب الملف  وبه كود للعلامة عبدالله باقشير طبقته على ملفك

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

                     '''  أسماء الأعمدة المطلوب نسخها
                       Range("A" & R).Range("b1:c1,g1,i1:k1,s1:u1").Copy
 

طبعا القائمة المنسدلة لم تعد ضرورية

تحياتي

الترحيل بشرط القسم (1).xlsb

[khairi ali]

مشكور جدا وبارك الله فيك.      اعذرني على التاخير في الرد 

الكهرباء اليوم تجاوز 14الساعة وانت اعلم