كود لحذف كل صف لا يوجد به اى كلام او ارقام

[omar shideed]

السادة الافاضل 

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

شكرا

[حمادة باشا]

الأخ الكريم/ omar shideed

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

جرب الكود المرفق علك تجد فيه مرادك

تقبل تحياتي

 

Book1-Delete Empty Row.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / omar shideed

بارك الله فيك

وبع اذن اخي الحبيب /  حمادة باشا ... جزاه الله خيرا

وبعد حله لاكثر من رااائع

واثراءا للموضوع اقدم لك كود آخر لحذف الصفوف الفارغة

وعذرا اي الحبيب / حمادة فلقد استخدمت ملفك كمثال مع وجود الكود الخاص باخي / حمادة

Sub DeleteRowOnCell()

On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange

End Sub

تقبلوا خالص تحياتي

 

Book1-Delete Empty Row11.rar

[حمادة باشا]

الأستاذ والأخ الحبيب/ حمادة عمر

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

ماشاء الله جبت المختصر المفيد - كود رائع جزاك الله كل خير

تقبل تحياتي

[أبو أنس80]

شي جميل جدا 

[حمادة عمر]

شي جميل جدا 

 

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

[جلال الجمال_ابو أدهم]

الاساتذه الافاضل _ الله ينور على اعمالكم الجميلة

[حمادة عمر]

الاساتذه الافاضل _ الله ينور على اعمالكم الجميلة

 

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الافاضل حماده باشا وحماده عمر

دائما يوجد حلول

جزاكم الله خير على كل جديد نتعلمه منكم

[حمادة عمر]

السلام عليكم

الاخوه الافاضل حماده باشا وحماده عمر

دائما يوجد حلول

جزاكم الله خير على كل جديد نتعلمه منكم

 

السلام عليكم

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

تقبل خالص تحياتي

[حمادة باشا]

السلام عليكم

الاخوه الافاضل حماده باشا وحماده عمر

دائما يوجد حلول

جزاكم الله خير على كل جديد نتعلمه منكم

 

الأخ الكريم/ ۩◊۩ أبو حنين ۩◊۩

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

جزاكم الله كل خير - جعلنا الله عند حسن الظن بنا

جمعة مباركة - تقبل تحياتي