تعديل على كود

[محمد الورفلي1]

السلام عليكم هذا كود موجود بالمنتدي لايسمح بطباعة عدد 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

تم تعديل مارس 28, 2015 بواسطه محمد الخازمي

[ياسر خليل أبو البراء]

ارفق ملف للعمل عليه ..

[محمد الورفلي1]

تم ارفاق ملف ياستاذ ياسر  في المشاركة الاولى

تم تعديل مارس 28, 2015 بواسطه محمد الخازمي

[ياسر خليل أبو البراء]

الاخ الحبيب محمد

جرب الكود بالشكل التالي ..

إذا كانت قيمة أي خلية بالعمود الأول تساوي أياً من الرموز التي أدرجتها يقوم الكود بمسحها .. الرموز لا تكون ضمن نصوص أخرى ..تمسح فقط إذا كانت بالخلية أي رمز

ClearContents Special Characters.rar

[محمد الورفلي1]

شكراَ بارك الله فيك   سؤال اخر بسيط ان شاء الله  هل اذا ادخلنا في نفس الوقت رق وعلامة هل يوجد كود لفصل العلامة وحذفها والابقاء علي الرقم مثلاً  (( /*55 )فيكون الشكل في الخلية ( 55 ))  

تم تعديل مارس 28, 2015 بواسطه محمد الخازمي

[محمد الورفلي1]

شكراَ بارك الله فيك   سؤال اخر بسيط ان شاء الله  هل اذا ادخلنا في نفس الوقت رقم وعلامة هل يوجد كود لفصل العلامة وحذفها والابقاء علي الرقم مثلاً  (( /*55 )فيكون الشكل في الخلية ( 55 ))