احمد الغوري قام بنشر أغسطس 17, 2021 مشاركة قام بنشر أغسطس 17, 2021 الاخوة الكرام. حياكم الله عندي مشكلة صغيره متمثلة بأني حاولت اعمل كود نقل اعمدة معينه من ورقة الى اخرى ولكن احد الاعمدة فيه دالات وعندما حاولت اعمل كود بسيط لنقل الاعمدة فعلا اشتغل ولكن بالنسبة للعمود الذي يحتوي على دالات انتقل كاملا مع الاصفار التي بعد اخر بيانات لاخر صف يحتوي على بيانات وهذا المزعج في الامر تفاصيل اوضح في الملف المرفق .يرجى التكرم بعمل الكود المطلوب تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك البرنامج 1-1.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أغسطس 17, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 17, 2021 تفضل هذا ملفك بعد إضافة الكود وتعديل أسماء الشيتات من المسافات الزائدة وتعديل الأعمدة التي سيتم الترحيل لها حيث كان بها خلايا في الأسفل (مكتوب فيها) تمنع من دقة معرفة آخر صف مكتوب فيه بالتوفيق البرنامج 1-1.xlsm 5 رابط هذا التعليق شارك More sharing options...
احمد الغوري قام بنشر أغسطس 22, 2021 الكاتب مشاركة قام بنشر أغسطس 22, 2021 مازلت على سخائك وكرمك أ/ محمد صالح لك كل التقدير والامتنان والاحترام . فعلا كان في مسافه في تسمية ورقة التجميع لاحظتها متاخرا وانا احاول عليه اليوم الصباح ومزيد من الشكر على تفاعلك وسرعة الرد بصراحة احرجت منك كثيرا . 1 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر أغسطس 25, 2021 مشاركة قام بنشر أغسطس 25, 2021 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 2 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر أكتوبر 28, 2021 مشاركة قام بنشر أكتوبر 28, 2021 السلام عليكم حاولت اطبق الكود للاستاذ محمد صالح لترحيل اعمدة متفرقة الى ورقة الارشيف مع كتابة خلية التاريخ من ورقة date c4 على كل صفوف البيانات التي تم ترحيلها لورقة الارشيف في العمود i لكن لم تفلح المحاولة ارجو مساعدتي في كود جديد او تعديل الكود ليقوم بترحيل الاعمدة المتفرقة من ورقةdate الى ورقة الارشيف ويكون كتابة التاريخ لجميع الصفوف المرحلة مع مراعاة بان الكود يعمل على اوفس 2019 و2010 لان كنت سابقا اعمل بكود 2010 واصبحت به مشاكل عند فتحة على الاوفس 2019 ولكم كل الشكر والتقدير. ترحيل اعمدة متفرقة.xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان