عدم التكرار في ثلاث أعمدة

[محمد سامر]

السلام عليكم ورحمة الله وبركاته

استخدمت كود لعدم التكرار ولكنه يعمل في عمود واحد فقط...

وعندي ثلاث مجموعات.. واريد عدم التكرار في الثلاث مجموعات مرتبطين ببعضهم البعض.

بمعنى((( عند ادخال قيمه في المجموعه رقم 2 ... وهي مكرره في المجموعه رقم 1..... يقوم بإعطائي رساله بأنها مكررة وهكذا في الثلاث مجموعات

عدم التكرار في ثلاث اعمدة مختلفين.rar

 

تم تعديل أغسطس 10, 2017 بواسطه محمد سامر

[احمدزمان]

و عليكم السلام و رحمة الله وبركاته

اخي الفاضل محمد سامر

لم استطع التعديل على الكود الموجود

ولكن

عملت كود آخر - - آمل ان يفي بالمطلوب

'On Error Resume Next
Dim RN1 As Range, RN2 As Range
Dim Q1
Set RN1 = Range("b7:b18,h7:h18,m7:m18")
Q1 = Range(Target.Address)
For Each RN2 In RN1
If Q1 <> "" And RN2.Address <> Target.Address And RN2 = Q1 Then
MsgBox "ÇáÇÏÎÇá :   " & Target.Value & "  ãßÑÑ ÓíÊã ÍÐÝå ", vbMsgBoxRight, "ÇÏÎÇá ãßÑÑ"
Cells(Target.Row, Target.Column).Select
Selection = ""
Exit Sub
End If
Next

 

عدم التكرار في ثلاث اعمدة مختلفينAZ.rar

[محمد سامر]

جزاك الله كل خير اخي الكريم

هذا هو المطلوب....بارك الله فيك

[محمد سامر]

يوجد طلب اخير اخي الكريم ....

عند وضع اي قيمه خارج الجدول أو داخله يتم حسابها مكرره....انا اريدها داخل الجدول فقط...هل يوجد حل لذلك؟؟؟؟؟

[احمدزمان]

تفضل اخي الفاضل

تم التعديل للعمل على اعمدة الرقم فقط

 

عدم التكرار في ثلاث اعمدة مختلفينAZ.rar

[محمد سامر]

18 دقائق مضت, احمدزمان said:

تفضل اخي الفاضل

تم التعديل للعمل على اعمدة الرقم فقط

 

عدم التكرار في ثلاث اعمدة مختلفينAZ.rar

سلمت يداك اخي.....حماك الله من كل سوء..... هذا هو المطلوب 100 %

 ممكن  أخي شرح مبسط للكود اللي حضرتك استخدمته حتي يتسنى لي استخدامه بعد ذلك؟؟؟؟اكون شاكر لحضرتك؟؟

[الأستاذ / محمد الدسوقى]

أخى الكريم

'ويمكن تنفيذ الكود على كافة الأعمدة فى الثلاث مجموعات باستخدام
If TC = 2 Or TC = 3 Or TC = 4 Or TC = 8 Or TC = 9 Or TC = 10 Or TC = 13 Or TC = 14 Or TC = 15

'بدلا من

If TC = 2 Or TC = 8 Or TC = 13
يعنى تحديد نطاق الجدول بالكامل فى كل مجموعة بدلا من تحديد عمود واحد فقط ليمنع التكرار فى أى خلية من خلايا الثلاث مجموعات

 

[محمد سامر]

28 دقائق مضت, الأستاذ / محمد الدسوقى said:

أخى الكريم

'ويمكن تنفيذ الكود على كافة الأعمدة فى الثلاث مجموعات باستخدام
If TC = 2 Or TC = 3 Or TC = 4 Or TC = 8 Or TC = 9 Or TC = 10 Or TC = 13 Or TC = 14 Or TC = 15

'بدلا من

If TC = 2 Or TC = 8 Or TC = 13
يعنى تحديد نطاق الجدول بالكامل فى كل مجموعة بدلا من تحديد عمود واحد فقط ليمنع التكرار فى أى خلية من خلايا الثلاث مجموعات

 

جزاك الله خيرا استاذ محمد.....نفع الله بك في كل خير