مساعده في اصلاح كود نقل اسم المريض

[محمد عبد الناصر]

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

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

الملف مرفق

test 2.xlsm

تم تعديل أكتوبر 13, 2020 بواسطه محمد عبد الناصر

[حسين مامون]

السلام عليكم

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

If FS.Range("b6").Text = TS.Cells(er2, 1).Text Then MsgBox "هذا الاسم مكرر": Exit Sub

تم تعديل أكتوبر 13, 2020 بواسطه حسين مامون

[محمد عبد الناصر]

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

[محي الدين ابو البشر]

يعمل جيدا

جرب

test 2.xlsm