حذف صفوف متتالية بناء على قيمة خلية معينة

[elzaem_yousif]

الاستاذة الافاضل

بكل حب وتقدير اتقدم بسؤالى لحضراتكم بعد ما دوخت على طريقة عملية لحله وللاسف فشلت ، وارجو من الله ان يكون الحل موجود بينكم

انا استخرج تقرير من برنامج واقوم بنسخة الى الاكسل وبناء معادلات لاستخراج تقارير تحليلة لهذا التقرير ، وهذا التقرير يضيف فواصل صفحات تلقائية لا ارغب بها وهى ثابتة لا تتغير ، اريد من الاكسل ان يبحث فى العمود ( J ) اذا وجد خلية تحتوى على اى جزء من ( __________ ) لاحظ لا يشترط ان تكون القيمة مطابقة وانما لو فقط تحتوى على اى جزء من النص السابق - وهى فواصل الصفحات من البرنامج سابق الذكر - يقوم بحذف الاتى

1-  الصف السابق للصف الموجود فى الخلية  ( j ) اى جزء من ( __________ ) ، يعنى الصف العلوى لهذا الصف

2- الصف نفسة الذى يوجد به فى الخلية ( J ) اى جزء من النص ( __________ )

3- عدد 16 صف التالى للصف نفسة الذى يوجد به فى الخلية ( J ) اى جزء من النص ( __________ )

 

ولكم منى جزيل الشكر والتقدير 

جعله الله علمكم خالصا فى ميزان حسانتكم يوم الحساب

محاسب محمد يوسف

مدير مالى

tardy.rar

[ياسر خليل أبو البراء]

أخي الكريم الزعيم يوسف

إليك ما طلبت إن شاء الله ، حيث يتم حذف الصف الذي يحتوي النص والصف السابق له و16 صف تالية له أي مجموع 18 صف متتالي ..

حمل الملف من هنا

 

[elzaem_yousif]

3 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم الزعيم يوسف

إليك ما طلبت إن شاء الله ، حيث يتم حذف الصف الذي يحتوي النص والصف السابق له و16 صف تالية له أي مجموع 18 صف متتالي ..

حمل الملف من هنا

 

عزيزى ياسر خليل أبو البراء

ارجو اعادة ارسال الملف بطريقة اخرى حيث ان الموقع لا يعمل معى 

[ياسر خليل أبو البراء]

أخي الكريم عند النقر على الرابط يظهر صفحات دعائية عدد من المرات حوالي 4 مرات في كل مرة يظهر كلمة Skip Ad بعد 5 ثواني في أعلى يمين الصفحة

إذا لم تستطع سأقوم بتحميله لك إن شاء الله ..فقط كرر المحاولة

 

[elzaem_yousif]

تم تحميل الملف مع الشكر والتقدير 

بارك الله فيك يا اخى العزيز

جارى التحميل والعمل على الملف واخطارك بالنتيجة ان شاء الله

سؤال هل من الممكن اضافة كود فى نفس الصفحة لحذف الصفوف الفارغة فى حيز البيانات  ( حتى لو احتوت على معادلة فقط ) .؟

[ياسر خليل أبو البراء]

نعم يمكن إن شاء الله حذف الصفوف الفارغة في حيز البيانات أما بخصوص أنها تحتوي معادلة فيرجى إرفاق ملف معبر عن الطلب للعمل عليه

تقبل تحياتي

[سليم حاصبيا]

4 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم عند النقر على الرابط يظهر صفحات دعائية عدد من المرات حوالي 4 مرات في كل مرة يظهر كلمة Skip Ad بعد 5 ثواني في أعلى يمين الصفحة

إذا لم تستطع سأقوم بتحميله لك إن شاء الله ..فقط كرر المحاولة

 

اخي ياسر 

لا افهم لماذا تصر دائماً على تحميل مشاركاتك عبر هذا الموقع الذي يكرر اعلاناته اكثر من 5 مرات احياناً

و في كل مرة صفحة جديدة وانتظر 10 ثواني,كل ذلك يحدث بشكل ممل 

اليس هناك من حل اخر

[ياسر خليل أبو البراء]

أخي الكريم سليم

ليس إصرار ولكنه محاولة بسيطة لتحسين أوضاعي

عموماً إليك الكود المستخدم

Sub DeleteRows()
    Dim LR As Long, I As Long
    
    LR = Cells(Rows.Count, "J").End(xlUp).Row
    
    For I = LR To 2 Step -1
        If InStr(Cells(I, "J"), "_______") > 0 Then
            Cells(I, "J").Offset(-1).Resize(18, 1).EntireRow.Delete
        End If
    Next I
End Sub

تقبل تحياتي