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

[حراثي تواتي]

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

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

وشكرا مسبقا

 

عدم السماح بترحيل البيانات.xlsm

[سليم حاصبيا]

جرب هذا الملف

 

UNIQ_DATA.xlsm

[حراثي تواتي]

شكرا استاذنا سليم حاصبيا على الاهتمام والمتابعة والمساعدة

بعد التجريب كما تلاحظ شيخنا الكود لا يعمل كما اريد حيث انه يسمح بالتكرار + يرحل البيانات مرتين ويتوقف عن العمل

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

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

lr = WorksheetFunction.CountIf(Range("B2:B10000"), TextBox1.Value)
If lr >= 1 Then
MsgBox "ÚÝæÇ ÇáÑÞã ÇáÊÓáÓáí ãßÑÑ"

[سليم حاصبيا]

تم معالجة الأمر

مع تغيير بسيط في تصميم اليوزر

 

New_UNIQ_DATA.xlsm

[أحمد يوسف]

حراثي تواتي

فين انت من كل اجابات الأستاذ سليم ؟!!!

أين الضغط على الإعــــجــــاب لكل اجابات الأستاذ سليم وليس على تعليقى انا وهذا اقل ما يقدم لصاحب الفضل عليك فى حل مشكلتك وتفريج كربتك ؟!!💙