ماجدجلال قام بنشر يونيو 19, 2005 مشاركة قام بنشر يونيو 19, 2005 السلام عليكم ورحمة الله الكود التالي 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 من تصميم الاستاذ الكبير محمد حجازي وهو يعمل علي حذف البيانات الموجود من الصف الاولي حتي السابع اذا احتوي هذا الصف علي كلمة " مغادر " ارجو المساعدة في تعديل هذا الكود لجعلة يحذف بيانات الصف الاولي ثم الثاني وبعدها السادس والسابع فقط اي استثناء الصف الثالث والرابع والخامس من عملية الحذف وشكرا لكم , رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يونيو 20, 2005 مشاركة قام بنشر يونيو 20, 2005 السلام عليكم ... تفضل الكود : 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 رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر يونيو 20, 2005 الكاتب مشاركة قام بنشر يونيو 20, 2005 شكرا لك استاذ محمد اكيد رايح ينجح ,,, رابط هذا التعليق شارك More sharing options...
الردود الموصى بها