سؤال عن كيفية حذف سطر بشرط

[الحامد الشاكر]

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

ارفق ملفاً وسؤالي : كود من خلاله يحذف الأسطر التي تحوي على كلمة "Total"

مع فائق الإحترام

حذف سطر بشرط.zip

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

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

أخي الكريم، جرب الكود التالي بعد وضعه في حدث الورقة المعنية:

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Application.ScreenUpdating = False

For Each cl In Range("D1:D1000")

If cl.Value = "Total" Then cl.EntireRow.Delete

Next

Application.ScreenUpdating = True

End Sub

أخوك بن علية

[الحامد الشاكر]

شكراً لمرورك أخي بن علية

رجاء حار إرفاق ملف مطبق فيه الحل

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

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

أخي الفاضل

بعد أذن أستاذي وسيدي الفاضل بن علية حاجي حفظه الله

تم التطبيق على الملف لتخفيف الضغط عليكم.

أبو أنس

المرفق

حذف سطر بشرط.rar

[الحامد الشاكر]

أشكرك ابوأنس الغالي

[الحامد الشاكر]

ما زال باب الكرام يطرق

كيف يمكن التعديل بحيث إذا كانت الخلية تحتوي "Total" من بين الذي تحتويه وليس فقط قيمتها "Total"

وبالتالي لمجرد إحتواء الخلية على الكلمة يحذف السطر

[الحامد الشاكر]

وين الشباب

[الحامد الشاكر]

:Rules:

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

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

أخي الفاضل حفظك الله

أستبدل الكود بالتالي:

Sub DeleteRow()

Application.ScreenUpdating = False

Dim cl As Range

For Each cl In Range("D1:D1000")

If InStr(1, cl, "Total", 1) Then cl.EntireRow.Delete

Next

Application.ScreenUpdating = True

End Sub[/left]

تحياتي المرفق:

حذف سطر بشرط يحتوي على.rar

أبو أنس

تم تعديل أكتوبر 16, 2012 بواسطه أبو أنس حاجب

[أم عبد الله]

هل يمكن تطبيق هذا الكود على الورقة الأولى الذي تحتوي على Total وفي نفس الوقت يتم حذف الصف الذي يمثاله في الورقة الثانية المرتبطة بها. وجزاكم الله خيراً .

[الحامد الشاكر]

جزاك الله خيرأً أبو أنس