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

منع ادخال بيانات او ارقام مكرره

بواسطه جلال الجمال_ابو أدهم
فبراير 12, 2017 في منتدى الاكسيل Excel

https://www.officena.net/ib/topic/75479-%D9%83%D9%88%D8%AF-%D8%B5%D8%BA%D9%8A%D8%B1-%D8%AC%D8%AF%D8%A7-%D9%88-%D9%84%D9%83%D9%86-%D9%85%D9%81%D9%8A%D8%AF-%D8%AC%D8%AF%D8%A7_%D9%83%D9%88%D8%AF-%D9%85%D9%86%D8%B9-%D8%A7%D8%AF%D8%AE%D8%A7%D9%84-%D8%A7%D9%84%D8%A7%D8%B1%D9%82%D8%A7%D9%85-%D9%88-%D8%A7%D9%84%D8%A7%D8%B3%D9%85%D8%A7%D8%A1-%D8%A7%D9%84%D9%85%D9%83%D8%B1%D8%B1%D9%87-%D8%B9%D9%86%D8%AF-%D8%A7%D8%AF%D8%AE%D8%A7%D9%84%D9%87%D8%A7-%D9%81%D9%89-%D8%B9%D9%85%D9%88%D8%AF%D9%8A%D9%86/

متابعين 0

اضف رد علي هذا الموضوع
أضف موضوع جديد

الردود الموصى بها

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

قام بنشر فبراير 12, 2017

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

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

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

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

تحياتى