اذهب الي المحتوي
أوفيسنا

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

قام بنشر

image002.gif

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

ارفق لكم هذا الشرح وان شاء الله ينول رضاكم

واي استفسار انا في الخدمة حسب المعرفة

والله الموفق

  • Like 1
قام بنشر

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

ان شاء الله اذا لم يتم اجابته من قبل احد الاخوة سأضع الكود في الغد

====

اخي ابو الحسن شكراً لك

قام بنشر

استاذى الفاضل / المايسترو

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

وبكل الشوق منتظرين تلوين التكرار بواسطة التنسيق الشرطى

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

قام بنشر

بارك الله لك أخي عبد الله

شرح رائع

......

أخي ضي النور

لا يتم اللجوء للكود إلا في حالة عدم القدرة على تنفيذ الأمر بالطرق العادية

وهذه أفضل الطرق لمنع التكرار

  • Like 1
قام بنشر

استاذ عبدالله

بارك الله فبك شرح رائع ومبسط لذلك اطلب المزيد مثلا كل اسبوع جديد

شكرا .....................جوده

قام بنشر

شرح جميل وموفق اخى عبدالله

ولى سؤال

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

السلام عليكم

اخي الفاضل

التحقق من الصحة يعمل اذا تم الادخال مباشرة في الخلية وليس بالسحب والإفلات او باللصق

والله اعلم

قام بنشر

اخى عبدالله المجرب

اشكرك كثيرا على تواصلك معى وهذا ما عهدناه فيك وفى اساتذه المنتدى الكرام

جعله الله فى ميزان حسناتكم

تعقيبا على اجابه سيادتكم

كيف يمكننا ان نظهر رساله التنبيه عند وضع قيمه مكرره عن طريق النسخ واللصق

هل توجد طريقه اخرى بالمعادلات لا بالاكواد

وشكرا اخى الفاضل

قام بنشر

بالاكواد يمكن ذلك

وكما قلت سابقاً

سأحاول عمل مثل هذا الكود ان يسر الله لي ذلك

السلام عليك

هذا هو الكود يوضع في حدث الصفحة (ورقة العمل)

ويقوم بنفس عمل التحقق من الصحة ولو تم السحب او اللصق لاكثر من قيمة سيتم التنبيه والمسح


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 3 Then Exit Sub

If Target.Count > 1 Then

Target.ClearContents: Exit Sub

End If

If Application.CountIf(Range("C2:C1000"), Target) > 1 Then

MsgBox "رقم مكرر", vbOKOnly, "تنبيه"

Target.ClearContents

Target.Select

Exit Sub

End If

End Sub

عبدالله المجرب.rar

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information