لدى جدول موظفين ( اكسل )
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
المطلوب تعديل الكود ليمسح بقي بيانات في عدد من الخلايا في الطسر نفسة وشكرا