محمد سامر قام بنشر أغسطس 10, 2017 قام بنشر أغسطس 10, 2017 (معدل) السلام عليكم ورحمة الله وبركاته استخدمت كود لعدم التكرار ولكنه يعمل في عمود واحد فقط... وعندي ثلاث مجموعات.. واريد عدم التكرار في الثلاث مجموعات مرتبطين ببعضهم البعض. بمعنى((( عند ادخال قيمه في المجموعه رقم 2 ... وهي مكرره في المجموعه رقم 1..... يقوم بإعطائي رساله بأنها مكررة وهكذا في الثلاث مجموعات عدم التكرار في ثلاث اعمدة مختلفين.rar تم تعديل أغسطس 10, 2017 بواسطه محمد سامر
احمدزمان قام بنشر أغسطس 10, 2017 قام بنشر أغسطس 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
محمد سامر قام بنشر أغسطس 10, 2017 الكاتب قام بنشر أغسطس 10, 2017 جزاك الله كل خير اخي الكريم هذا هو المطلوب....بارك الله فيك
محمد سامر قام بنشر أغسطس 10, 2017 الكاتب قام بنشر أغسطس 10, 2017 يوجد طلب اخير اخي الكريم .... عند وضع اي قيمه خارج الجدول أو داخله يتم حسابها مكرره....انا اريدها داخل الجدول فقط...هل يوجد حل لذلك؟؟؟؟؟
احمدزمان قام بنشر أغسطس 10, 2017 قام بنشر أغسطس 10, 2017 تفضل اخي الفاضل تم التعديل للعمل على اعمدة الرقم فقط عدم التكرار في ثلاث اعمدة مختلفينAZ.rar
محمد سامر قام بنشر أغسطس 10, 2017 الكاتب قام بنشر أغسطس 10, 2017 18 دقائق مضت, احمدزمان said: تفضل اخي الفاضل تم التعديل للعمل على اعمدة الرقم فقط عدم التكرار في ثلاث اعمدة مختلفينAZ.rar سلمت يداك اخي.....حماك الله من كل سوء..... هذا هو المطلوب 100 % ممكن أخي شرح مبسط للكود اللي حضرتك استخدمته حتي يتسنى لي استخدامه بعد ذلك؟؟؟؟اكون شاكر لحضرتك؟؟
الأستاذ / محمد الدسوقى قام بنشر أغسطس 10, 2017 قام بنشر أغسطس 10, 2017 أخى الكريم 'ويمكن تنفيذ الكود على كافة الأعمدة فى الثلاث مجموعات باستخدام 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 يعنى تحديد نطاق الجدول بالكامل فى كل مجموعة بدلا من تحديد عمود واحد فقط ليمنع التكرار فى أى خلية من خلايا الثلاث مجموعات 1
محمد سامر قام بنشر أغسطس 10, 2017 الكاتب قام بنشر أغسطس 10, 2017 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 يعنى تحديد نطاق الجدول بالكامل فى كل مجموعة بدلا من تحديد عمود واحد فقط ليمنع التكرار فى أى خلية من خلايا الثلاث مجموعات جزاك الله خيرا استاذ محمد.....نفع الله بك في كل خير 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.