(تمت الاجابة) برجاء المساعدة بكود يمنع تكرار رقم فى نفس السطر مرتين

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

مرفق الملف موضح به المطلوب وجزاكم الله كل خير

وشكرا

كود يمنع تكرار رقم فى نفس السطر مرتين.rar

[عبدالله المجرب]

السلام عليكم

اخي فضل

جرب هذا الكود

Sub Abu_Ahmed1()

Dim cl As Range

For Each cl In [E2:E16]

Set MyRng = Range(Cells(cl.Row, 3), Cells(cl.Row, 5))

If Application.CountIf(MyRng, cl) > 1 Then

MyArr = MyArr & Trim(cl) & ","

cl.Delete Shift:=xlUp

End If

Next

For Each c In Split(MyArr, ",")

Cells([E1000].End(xlUp).Row + 1, 5) = c

Next

End Sub

[فضل حسين]

حبيبى وعينيى المايسترو باشا

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

تعلمت منكم الكثير ومازلت اتعلم . لك علينا من الفضل والعطاء والعلم الكثير. فأصبحت رمزا بداخلنا تجسد لنا أسمى معانى العطاء والحب والعلم .

اما بعد

قمت بتجربة الكود ولكن للامانة محتاج وقت اكثر للحكم عليه

ولكن ياحبيبى ياماياسترو اريد ان اطلب منك طلب

طيب افترض ان الموجود ثلاث اعمده ( عمودا و عمود2 وعمود3 )

وانا هاقوم باضافة عمود رابع واضع فيه ارقام مكررة وارقام غير مكررة واريد نفس السؤال عدم تكرار رقم فى نفس الصف

فهل الكود العظيم الخاص بسيادتكم من المرونة بالتعامل هكذا مع الاعمدة مع اضافة اعمدة جديدة وحل مشكلة تكرار رقم فى نفس الصف

حبيبى قلبى المايسترو جزاك الله كل خير وبارك فيك وفى اعمالك

وعلى فكرة احببت الاكسل من خلال حبيب قلبى المايسترو

فى انتظار ردك

تم تعديل فبراير 29, 2012 بواسطه فضل 1

[فضل حسين]

حبيب قلبى المايسترو

للتوضيح اكثر ياحبيبى ماانا بطلبه من سيادتك

هل ممكن من خلال معرفة رقم العمود او بمعلومية اى شئ اخر وليكن مثلا على سبيل المثال كلمة مكرر او غير مكرر

استطيع اوصل لرقم العمود الاخير وبالتالى انفذ عليه الكود لمنع تكرار الرقم مرتين فى نفس السطر .

وبكده اصبح عندى كود غير عادى وهو ترتيب او تغيير اخر عمود لمنع تكرار رقم اشمل واعم

واوصل فى النهاية لعدد من الاعمدة او الصفوف لايوجد رقم مكرر مرتين فى نفس السطر .

على فكرة

سبحان الله والحمد لله ولااله الا الله والله اكبر (انت موسوعة وفعلا ملكش حل .)

تم تعديل فبراير 29, 2012 بواسطه فضل 1

[فضل حسين]

حبيب قلبى المايسترو

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

وبالفعل كما اوضحت لسيادتكم بانه كود رائع وبه افكار رائعة مثل حبيبى المايسترو

ولكن الملحوظة التى تم اكتشافها بعد فهم الكود وتجربته اتضح لى الاتى :-

اننى لو جعلت اخر صف (E16) بها رقم مكرر مرتين لن يستطيع الكود تبديله او تغييره . وبدون سرد فى شرح الكود لتوضيح ذلك وانت اعلم منى فى هذا .

ولكن للاختصار انا ارفقت الملف وبه اخر صف والذى به اسم محمد15 وبه الارقام الاتيه ( 15 و 6 و15 ) وعند تنفيذ الكود لم يتم تبديل او تغيير الرقم 15 ألاخير ليصبح لايوجد رقم مكرر مرتين .

كود يمنع تكرار رقم فى نفس السطر مرتين المايسترو.rar

[عبدالله المجرب]

السلام عليكم

اخي فضل

جرب المرفق (نسبة التكرار تمثل حالة كل 8 مرات تقريباً) حسب التجربة

كود يمنع تكرار رقم فى نفس السطر مرتين المايسترو.rar

[أبو عبد النور]

جميل جدا اخي عبد الله.

لقد بحثت ووجدت حلا ايضا للمسألة.

ولكن الكود طويل وكودك مختصر.

بارك الله فيك.

[فضل حسين]

حبيب قلبى المايسترو

والله انت الدنيا معاك جميلة . ومفيش احسن من كده .

حقا اعضاء هذا المنتدى وانا اولهم من المحظوظين فعلا بوجودهم فى هذا المنتدى العظيم ووجودهم فى صحبة خبراء وعلماء هذا المنتدى ومن بينهم المايسترو .

الف شكر ياحبيب قلبى المايسترو حل رائع وسيمفونية جميلة . وعلى فكرة الحانك العظيمة وسيمفونياتك الجميلة فى المنتدى اصبحت كثيرة جدا . وعايزين نعملك البون لاعمالك .

ولكن انا لى عند سيادتك طلب او رجاء ارجو ان تقوم بتلبيته وقد يكون معظم اعضاء المنتدى محتاجين نفس الطلب .

شرح لهذا الكود العظيم بل محتاجين فيديو بصوتك الجميل لشرح هذا العمل الرائع لكى نتعلم منه ونستمتع به اكثر واكثر . لانه بالطبع عمل مليئة بالافكار والاكواد المهمة والمفيدة . لذلك ارجو تلبية طلبى بعد اذن سيادتك .وللمايسترو جزيل الشكر ولاتنسى ان الدنيا معك جميلة جدا وفى انتظار رد سيادتك بل فى انتظار فيديو بصوت سيادتك وهذا سوف يسعدنى كثيرا .

سلام ياحبيبى

تم تعديل مارس 4, 2012 بواسطه فضل 1

[عبدالله المجرب]

السلام عليكم

لك ما طلبت بخصوص الشرح (تم شرح كودين للفائدة)

[ahmed saif]

بارك الله فيكم

[رجب جاويش]

بعد أذن أخى / عبد الله المجرب

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

وذلك بطريقتين

الأولى : تغير الأرقام الموجودة فى العمود الثالث فقط لمنع التكرار كما فى المشاركات السابقة

الثانية : تغير جميع الأرقام الموجودة فى الأعمدة الثلاثة ومع ذلك لا يحدث أى تكرار لأى رقم فى نفس الصف

أرجو القاء نظرة عليها وابداء رأيك الذى أعتز به

كود يمنع تكرار رقم فى نفس السطر مرتين - رجب1.rar

كود يمنع تكرار رقم فى نفس السطر مرتين - رجب.rar

[عبدالله المجرب]

اخي رجب احسنت

وهذا يستعمل لعمل ارقام عشوائية

لكن

ما يطلبه اخونا فضل هو توزيع نفس الارقام الموجودة في العمود (مع شرط عدم تكرارها في نفس الصف)

[فضل حسين]

شكر خاص

لحبيب قلبى المايسترو

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

وجعلنى ايضا فى حيرة ومش عارف اقولك ايه يامايسترو . اشعر بالخجل امام كرم اخلاقك ونبل سيادتكم . كل مااستطيع ان اقوله اننى احبك فى الله واحمل لك كل احترام وتقدير وثناء . وفعلا يامايسترو الحياة معك جميلة . ربنا يديم الحب ويديم العطاء ويخليك لنا يامايسترو قدوة لنا .

[رجب جاويش]

أخى الفاضل / عبد الله المجرب

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

تم تعديل الكود الخاص بى بحيث يقوم بتنفيذ الملحوظة التى أشرت اليها وهى توزيع نفس الأرقام الموجودة فى العمود مع عدم التكرار فى نفس الصف

كود يمنع تكرار رقم فى نفس السطر مرتين - رجب2.rar

[فضل حسين]

اخى رجب

عمل جميل بارك الله فيك والظاهر فى القريب العاجل ان شاء الله سوف نرى اعمال رائعة منك مثلك . جزاك الله كل خير

ولكن للاسف

قمت بتجربة الحل ووجد رقم بيتكرر ويضيف ارقام غير موجود اصلا فى ارقام العمود . وللتأكد قم بكتابة الارقم من 1 حتى 15 بنفس التسلسل ونفذ الكود

على مااظن سوف تجد رقم 4 او رقم 5 تم تكراره مرتين وهذا بالطبع غير مطلوب .

فى النهاية عمل جميل مثل صاحبة .

[أبو ردينة]

جزاك الله خيرا أخي الكريم عبد الله

تم التحميل و جاري التطبيق للأستفادة بارك الله فيكم

[الزير]

الاستاذ عبدالله المجرب اعمالك مميزة ومساهماتك كبيرة

الاستاذ رجب من سار على الدرب وصل ومشوار الالف ميل يبداء بخطوة

الاخ فضل1 استلتك جميلة وتشغل المخ بالتفكير والاجمل منها الحلول

[جروان]

الى اصاحب التميز ولأفكار النيرة ..أزكى التحيات وأجملها..وأنداها

وأطيبها..أرسلها لكم بكل ود وحب وإخلاص..