فورم بحث واضافة عميل جديد

[الجزيرة]

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

سعدت بالعودة إلى المنتدى الأول بالوطن العربي

أخواني مرفق ملف اكسل يحتوي على كود بحث عن عميل واضافة عميل جديد

الكود من أحد الأخوه الافاضل في هذا المنتدى المبارك

المطلوب :
1- عند إضافة عميل جديد وقد سبق إضافته بالفعل ، أن يعرض رسالة ويرفض الإضافة

2- الكود قديم ويبدو لي أنه صعب الفهم فلو هناك كود أسهل أو أفضل منه أتمنى وضعه بالملف

شاكراً ومقدراً لكم تجاوبكم

أخوكم ابو عبدالله

ادراج اسم جديد.xlsm

[ابراهيم الحداد]

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

اجعل الكود هكذا

Sub ADD_DESCRIPTION()
Dim ws As Worksheet, LR As Long, C As String
Dim x As Byte
Set ws = Sheets("DEFINITIONS")
LR = ws.Range("D" & Rows.Count).End(xlUp).Row
C = Me.TextBox1.Value
x = WorksheetFunction.CountIf(ws.Range("D2:D" & LR), C)
If x > 0 Then
MsgBox "هذا البيان موجود ولا يجب تكرار إضافته"
Exit Sub
Else:
ws.Range("D" & LR + 1) = C
MsgBox "تم إضافة البيان الجديد بنجاح"
Range([d2], [d2].End(xlDown)).Select
Selection.Sort [d2], xlAscending
Range("A1").Select
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub

 

[الجزيرة]

بارك الله فيك أخي الكريم ابراهيم

تمام يا ريس 🙂