حذف صف في حالة وجود كلمة معينة به

[الســـــــاهر]

السلام عليكم

اسعد الله مساؤكم بالخير و المسرات

اريد كود يقوم بحذف الصفوف التي تحتوي على كلمة معينة و لتكن ( DEL ) وذلك في العامود J

وان امكن لدي طلب اخر

اريد كود يقوم بإيقاف تنفيذ كود اخر في حالة عدم تنشيط خلايا العامود B

يعني مثلا لو ان الخلية النشطة هي A1 او اي خلية اخر ما عدا خلايا العامود B فانه يقوم يتنفيذ الامر EXIT SUB

ارجو اني وفقت في شرح المطلوب وجزاكم الله خير

تم تعديل أبريل 12, 2009 بواسطه الســـــــاهر

[عادل حنفي]

السلام عليكم

اخي الساهر

اريد كود يقوم بحذف الصفوف التي تحتوي على كلمة معينة و لتكن ( DEL ) وذلك في العامود J

هذا هو

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 2 To 20
If Cells(i, 10) = "DEL" Then
Cells(i, 10).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
Range("A2").Select
End Sub

الطلب الثاني

مثلا لو ان الخلية النشطة هي A1 او اي خلية اخر ما عدا خلايا العامود B فانه يقوم يتنفيذ الامر EXIT SUB

هذا هو

if target.column<>2 then exit sub
end if

[الســـــــاهر]

السلام عليكم

استاذنا الغالي عادل المحترم

اسأل الله لك دوام الصحة و العافية

و صحبة رسول الله صلى الله عليه و سلم في الجنة

اللهم آمين

هذا هو المطلوب تمام الف شكر

[أستيكا]

thanks Mr adel barak allh feek

astika

[عادل حنفي]

السلام عليكم

اخي الساهر بارك الله فيك

اخي استيكا بارك الله فيك

خالص تحياتي و تقديري

[احمدزمان]

السلام عليكم و رحمة الله وبركاته
‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏الخميس‏، 21‏/4‏/1430هـ. الموافق ‏16‏/4‏/09م

استاذ عادل

ماشاء الله ابداعات دائمة
وحلول سريعة

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

[عادل حنفي]

السلام عليكم

اخي الحبيب احمد يعقوب

كل الشكر علي مرورك

بارك الله فيك

تحياتي