أرجوا المساعدة في إيجاد الحل

[zizo747]

السلام عليكم

إخواني أرجوا مساعدتي بعدم السماح بتكرار الرقم في نفس العمود كما في المثال المرفق مع الشكر

Test.zip

[MMFOUAD]

تفضل أخي الغالي مثالك بعد اجراء التعديلات اللازمة علية

ربما يفيدك

حاول كتابة الرقم 8010

في اي خلية ستتلون الخلية باللون الاصفر وغير ذلك ستظل الخلية كما هي

Test.rar

[zizo747]

شكرا لك أخي الكريم على مساعدتك لي ولكن مشكلتي تكمن بعدم السماح لأي رقم من تكراره و في المثال منعت من تكرار الرقم 8010 فقط ماذا إذا تكرر الرقم 8000 أو غيره

أرجوا المساعدة

[MMFOUAD]

تفضل يا أخي

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

مرفق ملفك بعد اجراء التعديلات اللازمة علية

[MMFOUAD]

تفضل يا أخي

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