تفضل يا أخي
في هذه الحالة انت محتاج لكود VBA لتنفيذ العملية
كالتالي
Private Sub Worksheet_Change(ByVal Target As Range)
If Val(Cells(Target.Row, "B")) > 1 Then
MsgBox ("ÊßÑÑ ÇáÑÞã: " & Target.Value & " ...ÇÑÌæ ÊÛííÑ ÇáÞíãÉ")
Cells(Target.Row, Target.Column).Select
Selection = ""
Exit Sub
End If
End Sub
مرفق ملفك بعد اجراء التعديلات اللازمة علية
Duplicated_numbers.rar