مسح بيانات مدى افقي بشرط

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

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

أساتذتي الكرام حفظكم الله

المطلوب كود يعمل على مسح البيانات فقط لمدى الخلايا من A:S بشرط أذا كانت قيمة الخلية المقابلة لهم في العمود U صفر(مدى عمل الكود حتى السطر 2000).

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

أبو أنس

مسح بيانات مدى بناءا علي شرط.rar

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

[رجب جاويش]

أخى الفاضل / أبو أنس حاجب

بعد التحية

جرب الكود التالى

Sub ragab()

    For Each cl In [A5:A2000]

    If cl.Offset(0, 20) = 0 Then

	    cl.Resize(1, 19).ClearContents

    End If

    Next

End Sub

مسح بيانات مدى بناءا علي شرط.rar

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

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

أستاذي وسيدي النبيل رجب جاويش حفظكم الله

أسال الله العظيم رب العرش الكريم لك ولأهلك الأمن والأمان وموفور النعم في الدنيا والآخرة.

أتمنى من الله أن أكون أهل لهذا الكرم منكم أحسن الله عاقبة أمركم.

في المختصر المفيد كما هو حال كودكم الجميل.

أبو أنس

بعد تجربة الكود على الملف الأصلي

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

بارك الله بكم وفيكم

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

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

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

أستاذي وسيدي الفاضل حفظكم الله

تقبل خالص الشكر والتقدير والاحترام.

ما رأيك بتعديل سطر الشرط في الكود بشرط جديد يجعل تنفيذ الكود في الاسطر التي تحقق الشرط فقط (الشرط هو إذا كانت الخلية في العمود U صفر وأيضاً الخلية المقابلة لها في العمود G ليست فارغة يتم تنفيذ الكود في السطر مالم يتم التجاهل).

هذا الشرط الجديد أسفل لقد جربته للوهله الأولى وأظنه نجح أرجو التوجيه من سيادتكم بصحة ذلك (حيث عمل على التسريع من الكود):

If cl.Offset(0, 6) <> "" And cl.Offset(0, 20) = 0 Then

أبو أنس

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

[رجب جاويش]

أخى الحبيب / أبو أنس حاجب

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

بارك الله فيك أخى الفاضل على الإضافة واللمسة الجميلة

والحكم على على سرعة الكود يكون فى حالة البيانات الكبيرة كما جربت أنت ونجحت التجربة

تسلم ايديك وتسلم أفكارك

أخوك / رجب جاويش