تعديل كود لحذف بيانات صف

[ماجدجلال]

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

الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 Then
   If Target.Value = "مغادر" Then
     Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).ClearContents
   End If
 End If
End Sub

من تصميم الاستاذ الكبير محمد حجازي وهو يعمل علي حذف البيانات الموجود من الصف الاولي حتي السابع اذا احتوي هذا الصف علي كلمة " مغادر "

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

وشكرا لكم ,

[محمد حجازي]

السلام عليكم ...

تفضل الكود :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
  If Target.Value = "مغادر" Then
    Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).ClearContents
    Range(Cells(Target.Row, 6), Cells(Target.Row, 7)).ClearContents
  End If
End If
End Sub

[ماجدجلال]

شكرا لك استاذ محمد

اكيد رايح ينجح ,,,