كود لحذف الصفوف

[احمد العدوى]

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

بعد التحية

مرفق ملف لوضع كود لحذف الصفوف لو تكرمتمكود لحذف الصفوف.rar

[عبدالله المجرب]

الاخ الفاضل

جرب هذا الكود

Sub Abu_Ahmed()

LR = [E1000].End(xlUp).Row

For i = LR To 2 Step -1

If Cells(i, 5) = Empty Then

Rows(i).Delete Shift:=xlUp

End If

Next

End Sub

[أبو أنس حاجب]

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

ماشاء الله . الله يحفظك ويديم عليك الصحة والعافية والنشاط ولايجعل للكسل طريق اليك.

أبو أنس

[بن علية حاجي]

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

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

أخوكم بن علية

[احمد العدوى]

جزاك الله خيراً ياأخ عبد الله

ولو ممكن لو تكرمت تحل المشكلة بالإخفاء وليس بالحذف

ومعذرة الخطأ عندى فى طلب الحذف وليس الإخفاء

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

[عبدالله المجرب]

السلام عليكم

استبدل الكود السابق بهذا

Sub Abu_Ahmed()

LR = [E1000].End(xlUp).Row

For i = LR To 2 Step -1

If Cells(i, 5) = Empty Then

Rows(i).EntireRow.Hidden = True

End If

Next

End Sub

[احمد العدوى]

حبيب قلبى أبو أحمد

ماشاء الله

رائع وبارك الله لك ولكم جميعاً

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

خيركم من تعلم العلم وعلمه

[احمد العدوى]

بعد أن استمتعت بإخفاء الصفوف

أريد كوداً اخر لإظهارها لتنفيذ قيم أخرى على نفس الملف

ونأسف لكثرة الأسئلة

ولكن منكم نستفيد

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

[عبدالله المجرب]

السلام عليكم

هذا الكود لاظهار الصفوف بعد إخفائها

Sub Abu_Ahmed_Show()

    Rows("2:" & [E1000].End(xlUp).Row).EntireRow.Hidden = False

End Sub

[احمد العدوى]

شكراً أبو أحمد

بارك الله لك