يوسف السيد قام بنشر أكتوبر 20, 2012 قام بنشر أكتوبر 20, 2012 فى الملف المرفق ادناه وضعت كود لحذف السطور بناء على كلمة "لا" لكنه لايحذفها كلها مرة واحدة مما يجعلنى مضطرا للضغط على الكود اكثر من مرة لحذف الصفوف كلها ... واريد من الاخوة تصحيح الكود بحيث يحذف السطور التى تحتوى على كلمة "لا" دفعة واحدة مع اعطاء رساله تفيد بعدد السطور التى تم حذفها . ولكم جزيل الشكر حذف سطور بناء على شرط.rar
بن علية حاجي قام بنشر أكتوبر 20, 2012 قام بنشر أكتوبر 20, 2012 السلام عليكم ورحمة الله أخي الكريم يوسف، إن الكود الذي وضعته يحذف الصفوف من الأعلى إلى الأسفل مما يترك بعض الصفوف التي تحقق الشرط المذكور إلا إذا تم تنفيذ الكود أكثر من مرة... والكود يجب أن يحذف الصفوف من الأسفل إلى الأعلى وهكذا نضمن حذف كل الصفوف التي يتوفر فيها الشرط... وقد قمت بتعديل على الكود يتناسب مع المطلوب بتصرف طفيف... أخوك بن علية حذف سطور بناء على شرط.rar 1
بن علية حاجي قام بنشر أكتوبر 20, 2012 قام بنشر أكتوبر 20, 2012 السلام عليكم ورحمة الله أخي الكريم، لم ألاحظ طلبك فيما يخص رسالة بعدد الصفوف التي تم حذفها وأضع بين يديك تعديلا جديدا للكود في الملف المرفق التالي يقوم بحذف الصفوف التي يتوفر فيها الشرط مع إعطاء رسالة بعدد الصفوف التي تم حذفها بعد الانتهاء من عملية الحذف... واعذرني على هذا السهو... أخوك بن علية حذف سطور بناء على شرط_2.rar 2
الـعيدروس قام بنشر أكتوبر 20, 2012 قام بنشر أكتوبر 20, 2012 (معدل) السلام عليكم 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 بواسطه عباد
يوسف السيد قام بنشر أكتوبر 20, 2012 الكاتب قام بنشر أكتوبر 20, 2012 الأخ // بن علية حاجى الأخ // عباد جزاكم الله خيرا ... وزادكم علما كلا الحلان يعمل بشكل صحيح تقبلوا شكرى وتقديرى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.