حذف سطور بناء على شرط

[يوسف السيد]

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

ولكم جزيل الشكر

حذف سطور بناء على شرط.rar

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

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

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

وقد قمت بتعديل على الكود يتناسب مع المطلوب بتصرف طفيف...

أخوك بن علية

حذف سطور بناء على شرط.rar

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

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

أخي الكريم، لم ألاحظ طلبك فيما يخص رسالة بعدد الصفوف التي تم حذفها وأضع بين يديك تعديلا جديدا للكود في الملف المرفق التالي يقوم بحذف الصفوف التي يتوفر فيها الشرط مع إعطاء رسالة بعدد الصفوف التي تم حذفها بعد الانتهاء من عملية الحذف... واعذرني على هذا السهو...

أخوك بن علية

حذف سطور بناء على شرط_2.rar

[الـعيدروس]

السلام عليكم

Sub A_rc()

Dim Cl As Range

X = MsgBox(" هل ترغب بحذف الشيكات التى تم استلامها ", vbYesNo + vbMsgBoxRtlReading, " حذف سطر ")

If X = vbYes Then

Application.ScreenUpdating = False

E = Cells(Rows.Count, 5).End(xlUp).Row

For R = 2 To E

	  If Cells(R, 5) = "لا" Then

	    A = A & Cells(R, 5).Row

	    B = B & "," & Cells(R, 5).Address

	  End If

Next

  EE = Right(B, Len(B) - 1)

    Range(EE).EntireRow.Delete

	 MsgBox "عدد اسطر الشرط هيا" & ": " & Len(A), vbInformation, "تم"

    Else

Range("A5").Select

End If

End Sub

تم تعديل أكتوبر 20, 2012 بواسطه عباد

[يوسف السيد]

الأخ // بن علية حاجى

الأخ // عباد

جزاكم الله خيرا ... وزادكم علما

كلا الحلان يعمل بشكل صحيح

تقبلوا شكرى وتقديرى