اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

الكود التالي

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information