بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'منع ادخال بيانات او ارقام مكرره'.
تم العثور علي 1 نتيجه
-
تم رفع هذا الكود فى مشاركة منفصله كيفية منع تكرار الأرقام والأسماء حتى لا ننسى هذه المشاركة من الفاضل ا / عبدالله باقشير 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 و لا تنسونا من صالح الدعاء تحياتى