ليس لدى خبرة في هذه الاكواد

[ابونادر 2012]

لدى جدول موظفين ( اكسل )

Private Sub Worksheet_Change(ByVal Target As Range)
If Val(Cells(Target.Row, "I")) > 1 Then
  MsgBox ("رقم هذا الموظف :  " & Target.Value & "    موجود مسبقاً")
  Cells(Target.Row, Target.Column).Select
  Selection = ""
  
  Exit Sub
  
End If
End Sub

 

 

المطلوب تعديل الكود ليمسح بقي بيانات   في عدد من الخلايا في الطسر نفسة    وشكرا 

[ضاحي الغريب]

أخي الكريم /// أبو نادر 

تمت الأجابة علي نفس الموضوع باسم (( طلب تعديل كود رسالة ) علي الرابط

http://www.officena.net/ib/index.php?showtopic=46427

وعلي اية حال تعديل الكود ليقوم بمسح الصف باكمله

Private Sub Worksheet_Change(ByVal Target As Range)
If Val(Cells(Target.Row, "I")) > 1 Then
  MsgBox ("رقم هذا الموظف :  " & Target.Value & "    موجود مسبقا")
  
  Cells(Target.Row, Target.Column).Select
 Selection = ""
  Selection.EntireRow.Delete
  Exit Sub
  
End If
End Sub