السلام عليكم هذا كود موجود بالمنتدي لايسمح بطباعة عدد 111 ثلاث مرات في اي خلية في العمود A
المطلوب كيف اجعل الكود يجعل الخلية تمسح كل ما يكتب من مثل هذه العلامات
(( / . * . @ . # .$ . % . & .-.+./*.*/. ))
وشكراً
تم ارفاق ملف
تعديل كود.rar
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
With Application
.ScreenUpdating = False
.EnableEvents = False
If Left(Target, 3) = "111" Then Rows(Target.Row).Delete
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub