الأخ عباد بارك الله فيك أخي الغالي
اسمح لي بإضافة بسيطة جداً .. عند حذف القيمة الموجودة في الخلية (الهدف) يتم إرجاع الأمر كما كان (بدون تسطير)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Row < 10 Then Exit Sub
If Target = "" Then Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Borders.LineStyle = xlNone: Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Borders.ColorIndex = 1
End Sub
يبقى شيء واحد أريدك التعديل عليه وهو في حالة مسح بيانات أكثر من خلية في النطاق الهدف يظهر خطأ ... أريد التخلص من الخطأ وفي نفس الوقت أن يقوم بتنفيذ العملية (التخلص من التسطير)