مشكلة فى تكرار بيانات عند الترحيل

[yassen66]

السلام عليكم 

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

وانا اريد ان لا يتكرر عند عدم تنزيل اى بيانات فى بند رقم 2 ورقم 3

الملف مرفق ,.... تـــم تعديل وتغيير عنوان المشاركة ليعبر أكثر عن طلبك

New Microsoft Excel Worksheet - Copy.xlsb

[ابو القاسم]

اخي العزيز تتاكد من ان الادخال موجود من عدمه بهذا الكود

ws = sheets("اسم الصفحة")
ird = WorksheetFunction.CountIf(ws.Range("a3:a32"), TextBox2.Value)
'ثم بعد ذلك ادخل الشرط
if ird = 1 then
'اي انه موجود
msgbox "البيانات موجودة مسبقا"
exit sub
elseif ird = 0 then
'البيانات غير موجودة
'ادخل الكود الذي تريد تنفيذة
end if