حذف صفوف فارغة

[دلفين سردار]

السلام عليكم

احبتي في لله

لدي مشكلة ومنذ اكثر من شهر وانا لا اجد له اي حل

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

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

المصنف1.xlsx

[Ali Mohamed Ali]

تفضل اخى الكريم

 

المصنف1-1.xlsm

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

جرب هذا الماكرو (دون حلقات تكرارية) من سطر واحد

Option Explicit

Sub del_rows()
Range("Q5:Q" & Range("Q5").CurrentRegion.Rows.Count + 6) _
.SpecialCells(4).EntireRow.Delete
End Sub

 

[دلفين سردار]

جزاكم الله الف خير اشكرك استاذ علي محمد

.....

استاذ سليم اين اضع هذا الكود كيف يعني من سطر واحد

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

11 دقائق مضت, دلفين سردار said:

جزاكم الله الف خير اشكرك استاذ علي محمد

.....

استاذ سليم اين اضع هذا الكود كيف يعني من سطر واحد

اضغط على الزر  RUN في الصفحة SALIM من هذا الملف

 

SALIM_ROWS.xls

[دلفين سردار]

جزاكم الله الف خير والله هذا كنت ابحث عنه منذ اكثر من شهر

ولكن استاذ هل من الممكن ان يعمل بشكل اوتوماتيكي بمعنى دون الضغط على كلمة RUn

19 دقائق مضت, سليم حاصبيا said:

اضغط على الزر  RUN في الصفحة SALIM من هذا الملف

 

SALIM_ROWS.xls