كود نقل اعمدة معينة من ورقة الى اخرى

[احمد الغوري]

الاخوة الكرام.      حياكم الله 

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

  تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

البرنامج 1-1.xlsm

[أ / محمد صالح]

تفضل هذا ملفك بعد إضافة الكود

وتعديل أسماء الشيتات من المسافات الزائدة

وتعديل الأعمدة التي سيتم الترحيل لها

حيث كان بها خلايا في الأسفل (مكتوب فيها) تمنع من دقة معرفة آخر صف مكتوب فيه

بالتوفيق

البرنامج 1-1.xlsm

[احمد الغوري]

مازلت على سخائك وكرمك أ/ محمد صالح 

لك كل التقدير والامتنان والاحترام .

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

ومزيد من الشكر على تفاعلك وسرعة الرد بصراحة احرجت منك كثيرا .

[lionheart]

Sub TestCode()
    Dim v, w, m As Long
    With Sheet1
        m = .Columns(3).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
        v = .Range("B6:O" & m).Value
        w = Application.Index(v, Evaluate("ROW(1:" & UBound(v, 1) & ")"), [{1,2,3,14}])
        Sheet2.Range("K3").Resize(UBound(v, 1), UBound(v, 2)).Value = w
    End With
End Sub

 

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

السلام عليكم حاولت اطبق الكود للاستاذ محمد صالح لترحيل اعمدة متفرقة الى ورقة الارشيف مع كتابة خلية التاريخ من ورقة date c4 على كل صفوف البيانات التي تم ترحيلها لورقة الارشيف في العمود i لكن لم تفلح المحاولة ارجو مساعدتي في كود جديد او تعديل الكود ليقوم بترحيل الاعمدة المتفرقة من ورقةdate الى ورقة الارشيف ويكون كتابة التاريخ لجميع الصفوف المرحلة مع مراعاة بان الكود يعمل على اوفس 2019 و2010 لان كنت سابقا اعمل بكود 2010 واصبحت به مشاكل عند فتحة على الاوفس 2019 ولكم كل الشكر والتقدير.

ترحيل اعمدة متفرقة.xlsm