ارجو المساعدة لمنع التكرار في ورقة العمل

[mohammed_ali]

السلام عليكم : 

ارجو المساعده : كود لمنع التكرار وحذف فقط القيمة المكرره في صفحة العمل في نطاق محدد من الخلايا مثلا من  A2:B400

تم تعديل فبراير 14, 2017 بواسطه mohammed_ali

[محمود_الشريف]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Set ww = Application.WorksheetFunction
If Not Intersect(Target, Range("A2:B400" & Target.Row)) Is Nothing Then
If ww.CountIf(ww.Index(Range(Cells(5, Target.Column), _
Cells(Target.Row, Target.Column)), 0, 1), Target.Value) > 1 Then
MsgBox "الادخال :   " & Target.Value & "  مكرر سيتم حذفه ", vbMsgBoxRight, "ادخال مكرر"
Cells(Target.Row, Target.Column).Select
Selection = ""
Exit Sub
End If
End If
End Sub

أخى الكريم

ضع الكود أعلاه فى موديول الصفحة

[mohammed_ali]

السلام عليكم استاذي الكود بضعه في الشيت ولا في الموديول المنفصل 

[محمود_الشريف]

أخى الكريم

ضع الكود أعلاه  ((  داخل الشيت )) 

الطريقة ::  تدخل على محرر الأكواد تضغط على الشيت المطلوب تنفيذ الكود فيه وتضع الكود داخل محرر أكواد الصفحة نفسها 

[mohammed_ali]

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

فهل ممكن الكود في نموذج جاهز  للفهم فقط

[محمود_الشريف]

أخى الكريم

تجد بالمرفقات الكود أعلاه وكود آخر 

الكود أعلاه يعمل على عمودين برساله حذف ، والكود الآخر يعمل على عمود واحد برساله تخيير مع حذف

منع التكرار بطريقتين.rar

[mohammed_ali]

السلام عليكم استاذي مشكور هذا هو المطلوب . لكم جزيل الشكر والاحترام 

[محمود_الشريف]

أخى الكريم

الشكر لله ، وجزيتم عنى خيرا