كود صغير جدا و لكن مفيد جدا_كود منع ادخال الارقام و الاسماء المكرره عند ادخالها فى عمودين

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله  كيفية منع تكرار الأرقام والأسماء

حتى لا ننسى هذه المشاركة  من الفاضل ا /  عبدالله باقشير

 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Set ww = Application.WorksheetFunction
If Not Intersect(Target, Range("B5:C" & 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

مرفق الملف و الشرح

منع المتكررات بالكود

المثال على عمودين B و C

ويبدأ من الصف رقم 5 الى الاسفل

________.rar

 

و بالمعادلات

 

___________.rar

 

و لا تنسونا من صالح الدعاء

تحياتى