كود لازاحة نطاق الصف الفارغ في الجدول

[حراثي تواتي]

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

اخواني زملائي اعضاء منتدانا الغالي ارجوا منكم مساعدتي في كود يقوم بازاحة نطاق الصفوف الفارغة في الجدول كما هو موضح في الشرح والملف المرفق

ولكم منا أسمى عبارات الاحترام والتقدير

وعيدكم مبارك كل عام والامة الاسلامية بخير

تواتي 15.xlsm

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

ممكن  توضيح  اكثر  هل  تقصد  حذف  واذا  كان  لا    من  اي  صف  يبدا ؟!

[الرائد77]

تفضل

 

Private Sub CommandButton2_Click()
On Error Resume Next
    With Range("b9:b10000")
    
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

 

تواتي 15.xlsm

[حراثي تواتي]

اخي  عبدالفتاح في بي اكسيل اقصد حذف الصف الفارغ في الجدول فقط وليس كل الورقة

يبدا من الصف ( D32:A1 ) يعني يحذف الصف الفارغ في هذا النطاق من الجدول فقط

 

[الرائد77]

تفضل

انتبه اخي قلت  من a1 وو في الجدول الفعلي في ورقتك a9

لذلك هذا الكود يقوم بالاززاحة الى الاعلى ابتداءا من الخلية a1 و لا  يحذف الصف كاملا

 

اذا اردتت البدء من a9 غير في الكود

Private Sub CommandButton2_Click()
On Error Resume Next
    With Range("a1:d32")
    
    .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    End With
End Sub

 

تواتي 15.xlsm

[الرائد77]

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

تفضل حبيبي  الملف النهائي 

الازاحة الى الاعلى و ازاحة الخلايا التي تحنوي على المعادلات معها

تواتي 15) fini.xlsm

[حراثي تواتي]

هناك خلايا متعددة في الصف بها دوال

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

تواتي 15) fini.xlsm

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

جرب  هذا بعد   التعديل  

تواتي 15) fini (1).xlsm

[سليم حاصبيا]

جرب هذا الكود

Private Sub CommandButton2_Click()
On Error Resume Next
   
     Range("a9").Resize(9).SpecialCells(4) _
     .EntireRow.Delete Shift:=xlUp
    
End Sub

 

[حراثي تواتي]

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

الرائد77

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

فبارك الله فيكم جميعا واتمنى للجميع عيد مبارك سعيد