mhmdtk2 قام بنشر فبراير 25, 2016 مشاركة قام بنشر فبراير 25, 2016 إخواني والأستاذة الكرام السلام عليكم ورحمة الله وبركاته آمل مساعدتي في إيجاد كود لحذف الصفوف والأعمدة الغير مستخدمة مع الأخذ بعين الاعتبار أن يكون الصف أو العمود المراد حذفه خالياً تماما ، ولقد قمت بإرفق الملف الذي أعمل عليه كما قمت بتجربة الأكواد في موضوع تم طرحه في المنتدى بعام 2009 ولم أفلح شاكراً ومقدرا لكم مجهوداتكم وفقكم الله أخوكم / محمد طاهر حذف الصفوف والأ‘عمدة.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 25, 2016 مشاركة قام بنشر فبراير 25, 2016 (معدل) جرب هذا الكود 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 بواسطه سليم حاصبيا 4 رابط هذا التعليق شارك More sharing options...
mhmdtk2 قام بنشر فبراير 25, 2016 الكاتب مشاركة قام بنشر فبراير 25, 2016 اقتباس أخي الكريم سليم حاصبيا لا يسعني إلا أن أقول لك (وفقك الله وسدد خطاك ووهبك ما تتمنى) جزاك الله كل خير جربت الكود وعمل بشكل ممتاز الشكر موصول لك ولكل القائمين على هذا الموقع اقتباس اقتباس 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 25, 2016 مشاركة قام بنشر فبراير 25, 2016 أخي الكريم يرجى تغيير اسم الظهور للغة العربية ليعبر عن شخصكم الكريم لمعرفة التفاصيل قم بالإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى أخي الحبيب سليم بارك الله فيك وجزاك الله كل خير .. كود أكثر من رائع وسريع جداً جرب الكود التالي (هو غريب شوية لكن يؤدي الغرض !! الغرابة من إن السطر مكرر مرتين ..افتكاسات ياسر مع التهييس) Sub DeleteEmptyRowsAndColumns() Cells.SpecialCells(xlCellTypeBlanks).Delete Cells.SpecialCells(xlCellTypeBlanks).Delete End Sub تقبل وافر تقديري واحترامي 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 25, 2016 مشاركة قام بنشر فبراير 25, 2016 (معدل) 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 بواسطه سليم حاصبيا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 25, 2016 مشاركة قام بنشر فبراير 25, 2016 أخي الحبيب سليم كودك هو الأفضل بالنسبة للطلب الكود الذي أرفقته ينفع في حالات معينة .. لكن قد يسبب مشاكل إذا كانت الخلايا الفارغة وسط خلايا بها بيانات .. لم أفهم مقصدك بقولك كيف لم تمسح الصفوف والأعمدة الفارغة من كل الورقة؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان