ترحيل صفوف الاكسيل الى صفوف فارغة في نفس الشيت

[Elsayeh]

السلام عليكم

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

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

كود الترحيل داخل الشيت.xlsx

[عبدالفتاح في بي اكسيل]

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

جرب  هذا   الشي  البسيط

لاحظ  اعتمدت  على  العمود  c    ما  دام  دائما  فارغ  كبقية  الاعمدة   فلم  اشير  الى  بقية  الاعمدة 

Sub DeleteRows()
  Intersect(Columns("c"), ActiveSheet.UsedRange).SpecialCells(xlBlanks).EntireRow.Delete
  End Sub

 

[Elsayeh]

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

أشكرك أخي الكريم عبد الفتاح ولكن حذف الصفوف ليس هو المطلوب انما المطلوب هو ترحيل البيانات من صف إلى اخر اعلاه مع ترك الصفوف الفارغة في الاسفل

[عبدالفتاح في بي اكسيل]

مالفائدة  مما تطلبه ثم لم تدرج شكل البيانات كيف يجب ان تكون بعد تشغيل الكود المفترض.🙄

[Elsayeh]

أنا في غاية الامتنان أخي عبد الفتاح على اهتمامك واليك في المرفقات ما اريده من الكود

كود الترحيل داخل الشيت.xlsx

[محمد يوسف ابو يوسف]

بعد اذن اخي وحبيبي في الله  عبدالفتاح في بي اكسيل

 

اخي Elsayeh

تفضل طلبك ترحيل دون فراغ

الملف كود الترحيل داخل الشيت.xlsm

[عبدالفتاح في بي اكسيل]

اعتقد  هذا  سيفي  بالغرض 

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

 

[Elsayeh]

أخي الكريم عبد الفتاح كل الشكر والتقدير لك وأنا في غاية الامتنان لحل هذه المشكلة شاكر ومقدر لكم

والشكر موصول للأخ الكريم محمد يوسف

[عبدالفتاح في بي اكسيل]

@Elsayeh

شكرا  جزيلا  على  تفاعلك 😉

الرجاء  اختيار  افضل  اجابة  تراها  ساعدتك  في  حل  موضوعك  حتى  يتم  قفل  الموضوع  من قبل  ادرارة المنتدى .

تحياتي .