Elsayeh قام بنشر فبراير 27, 2022 مشاركة قام بنشر فبراير 27, 2022 السلام عليكم عند نسخ بيانات من شيت خارجي الى البرنامج يكون هناك صفوف فارغة مما يزيد من عدد الصفوف في الشيت المطلوب كود برمجي لنقل محتويات الصفوف الى الصفوف الفارغة أعلاها لتقليل عدد الصفوف في الشيت .. مع خالص تحياتي كود الترحيل داخل الشيت.xlsx رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 27, 2022 مشاركة قام بنشر فبراير 27, 2022 على حسب فهمي يجب تغيير العنوان واستبداله ب حدف الصفوف الفارغة جرب هذا الشي البسيط لاحظ اعتمدت على العمود c ما دام دائما فارغ كبقية الاعمدة فلم اشير الى بقية الاعمدة Sub DeleteRows() Intersect(Columns("c"), ActiveSheet.UsedRange).SpecialCells(xlBlanks).EntireRow.Delete End Sub 3 رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر فبراير 28, 2022 الكاتب مشاركة قام بنشر فبراير 28, 2022 السلام عليكم ورحمةة الله أشكرك أخي الكريم عبد الفتاح ولكن حذف الصفوف ليس هو المطلوب انما المطلوب هو ترحيل البيانات من صف إلى اخر اعلاه مع ترك الصفوف الفارغة في الاسفل رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 28, 2022 مشاركة قام بنشر فبراير 28, 2022 مالفائدة مما تطلبه ثم لم تدرج شكل البيانات كيف يجب ان تكون بعد تشغيل الكود المفترض.🙄 1 رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر فبراير 28, 2022 الكاتب مشاركة قام بنشر فبراير 28, 2022 أنا في غاية الامتنان أخي عبد الفتاح على اهتمامك واليك في المرفقات ما اريده من الكود كود الترحيل داخل الشيت.xlsx رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر فبراير 28, 2022 مشاركة قام بنشر فبراير 28, 2022 بعد اذن اخي وحبيبي في الله عبدالفتاح في بي اكسيل اخي Elsayeh تفضل طلبك ترحيل دون فراغ الملف كود الترحيل داخل الشيت.xlsm 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر فبراير 28, 2022 أفضل إجابة مشاركة قام بنشر فبراير 28, 2022 اعتقد هذا سيفي بالغرض Sub DeleteRows() With Columns("B:G") .SpecialCells(xlBlanks).Delete Shift:=xlUp .Rows(5).Copy .SpecialCells(xlBlanks).PasteSpecial xlPasteFormats End With Application.CutCopyMode = False End Sub 2 رابط هذا التعليق شارك More sharing options...
Elsayeh قام بنشر فبراير 28, 2022 الكاتب مشاركة قام بنشر فبراير 28, 2022 أخي الكريم عبد الفتاح كل الشكر والتقدير لك وأنا في غاية الامتنان لحل هذه المشكلة شاكر ومقدر لكم والشكر موصول للأخ الكريم محمد يوسف رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 28, 2022 مشاركة قام بنشر فبراير 28, 2022 @Elsayeh شكرا جزيلا على تفاعلك 😉 الرجاء اختيار افضل اجابة تراها ساعدتك في حل موضوعك حتى يتم قفل الموضوع من قبل ادرارة المنتدى . تحياتي . 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان