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

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

قام بنشر

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information