تعديل على كود الادخال والترحيل

[med12]

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

فورم معدل 1.1.xlsm

[عبدالفتاح في بي اكسيل]

جرب هذا  الشيء لعله  يفيدك 

Private Sub TextBox1_AfterUpdate()
If Application.WorksheetFunction.CountIf(Worksheets("DATA").Range("A2:A10000"), TextBox1.Text) > 0 Then
 MsgBox (" عفوا رقم  السجيل مكرر"), vbInformation
 Cancel = True
End If
TextBox1.Value = ""
End Sub

 

[med12]

أستاذ عبدالفتاح في بي اكسيل  شكرا على المساعد ...متألق بتدخلالتك  ....اللهم أجعلها صدقة جارية في ميزان حسناتك

شكرا للاخ الطيب عبدالفتاح في بي اكسيل  هذا هو الملف بعد الاستفادة من مساعدة الاخ  ...لمن يرغب الاستفادة 

فورم معدل 1.2.xlsm