طلب كود يمنع تكرار البيانات المدخلة في عمود معين بعد الترحيل

[علي الشيخ]

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

 

يوجد في المرفق ملف بيه شيت مكون من 3 أعمدة

يتم إدخال البيانات في الجدول الموجود بهذه الأعمدة عن طريق الترحيل

المطلوب جزاكم الله خيرا أنه لو الشخص أدخل قيمة في العمود رقم 2   " B " وهو عمود اسم الصنف

لما يضغط ترحيل Save item لا يقبل الإضافة ويظهر تنبيه يفيد ان الصنف موجود بالفعل

أي ان اسم الصنف هو المطلوب عدم تكراره

 

وجزاكم الله خيرا مقدما

items.rar

[إبراهيم ابوليله]

أخى

قم بتغير الكود الخاص بك

الى الكود الاتى

Sub tarheel()
LastRow = Range("A10000").End(xlUp).Row + 1
LR = Range("b10000").End(xlUp).Row + 1
    For r = 5 To LR
        If Cells(r, 2) = Range("b2") Then MsgBox "This Item Name already exist, No shift will done": Exit Sub
    Next

Cells(LastRow, 1).Value = Range("A2").Value
Cells(LastRow, 2).Value = Range("B2").Value
Cells(LastRow, 3).Value = Range("C2").Value

 Range("A2:C2").Select
    Selection.ClearContents
 Range("A2").Select
End Sub

تقبل تحياتى

[علي الشيخ]

فعلا خير الكلام ما قل ودل

الله يجزاك الخير ويرزقك من حيث لا تحتسب ونفع بك وبعلمك

شكرا لك أخي الفاضل