حذف الصفوف والأعمدة الغير مستخدمة

[mhmdtk2]

إخواني والأستاذة الكرام

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

آمل مساعدتي في إيجاد كود لحذف الصفوف والأعمدة الغير مستخدمة مع الأخذ بعين الاعتبار أن يكون الصف أو العمود المراد حذفه خالياً تماما ،

ولقد قمت بإرفق الملف الذي أعمل عليه 

كما قمت بتجربة الأكواد في موضوع تم طرحه في المنتدى بعام 2009 ولم أفلح 

 

شاكراً ومقدرا لكم مجهوداتكم

وفقكم الله

أخوكم / محمد طاهر

حذف الصفوف والأ‘عمدة.rar

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

جرب هذا الكود

 

Sub DeleteEmptyRowsAndColumns()
        x = ActiveSheet.UsedRange.Row - 1
        y = ActiveSheet.UsedRange.Rows.Count
        LastRow = x + y
Application.ScreenUpdating = False

    For r = LastRow To 1 Step -1
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
        m = ActiveSheet.UsedRange.Column - 1
        n = ActiveSheet.UsedRange.Columns.Count
        LastColumn = m + n

    For c = LastColumn To 1 Step -1
        If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete
    Next c
Application.ScreenUpdating = True
End Sub

 

تم تعديل فبراير 25, 2016 بواسطه سليم حاصبيا

[mhmdtk2]

اقتباس

 

أخي الكريم سليم حاصبيا       

لا يسعني إلا أن أقول لك (وفقك الله وسدد خطاك ووهبك ما تتمنى)

جزاك الله كل خير

جربت الكود وعمل بشكل ممتاز 

الشكر موصول لك ولكل القائمين على هذا الموقع

 

اقتباس

 

 

اقتباس

 

 

[ياسر خليل أبو البراء]

أخي الكريم

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

لمعرفة التفاصيل قم بالإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى

 

أخي الحبيب سليم بارك الله فيك وجزاك الله كل خير .. كود أكثر من رائع وسريع جداً

جرب الكود التالي (هو غريب شوية لكن يؤدي الغرض !! الغرابة من إن السطر مكرر مرتين ..افتكاسات ياسر مع التهييس)

Sub DeleteEmptyRowsAndColumns()
    Cells.SpecialCells(xlCellTypeBlanks).Delete
    Cells.SpecialCells(xlCellTypeBlanks).Delete
End Sub

تقبل وافر تقديري واحترامي

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

Sub DeleteEmptyRowsAndColumns()
        x = ActiveSheet.UsedRange.Row - 1
        y = ActiveSheet.UsedRange.Rows.Count
        LastRow = x + y
Application.ScreenUpdating = False

    For r = LastRow To 1 Step -1
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
        m = ActiveSheet.UsedRange.Column - 1
        n = ActiveSheet.UsedRange.Columns.Count
        LastColumn = m + n

    For c = LastColumn To 1 Step -1
        If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete
    Next c
Application.ScreenUpdating = True
End Sub

 

 

هي دي العبقرية بحد ذاتها اخي ياسر

و لكن اتسائل كيف لم تمسح الصفوف و الاعمدة الفارغة من كل الورقة 

لا اعلم السبب الاقتباس الى ياسر خليل و يظهر انه لنفسي

تم تعديل فبراير 25, 2016 بواسطه سليم حاصبيا

[ياسر خليل أبو البراء]

أخي الحبيب سليم

كودك هو الأفضل بالنسبة للطلب

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

لم أفهم مقصدك بقولك كيف لم تمسح الصفوف والأعمدة الفارغة من كل الورقة؟