مشكلة اللصق الذى يفسد خاصية التحقق من الصحة DATA VALIDATION

[فارس الواقعية]

الاخوة الاعضاء

لدى طلب فى التحقق من الصحة عجزت عن حله واتمنى ان اجد له حل معكم

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

وقد ارفقت لكم الملف على موقع 4shared لعدم وجود صلاحية بحسابى على المنتدى لرفع الملفات

الرابط التالى

http://www.4shared.com/office/3Tgm6hIE/WORK_SHOP_INVENTORY.html

ارجو ان اجد حل لطلبى لديكم

اخوكم

محمود فوزي

[أبو حنــــين]

السلام عليكم

لرفع الملف قم بضغطه ببرنامج ضغط مثل WinRAR ثم ارسله

[عبدالله باقشير]

السلام عليكم

اتريده بالكود

هنا يمكنك تعيين المدى الذي تريده

Private Const stRng As String = "B4:B100"

Option Explicit

Private Const stRng As String = "B4:B100"

Private Sub Worksheet_Change(ByVal Target As Range)

If Me.CheckBox1.Value = True Then Exit Sub

On Error Resume Next


If Not Intersect(Target.Cells, Range(stRng).Cells) Is Nothing Then

    If Target.Cells.Count > 1 Then Exit Sub

    If Application.CountIf(Range(stRng), Target.Value) > 1 Then

        Application.EnableEvents = False

        Application.Undo

        If Application.CountIf(Range(stRng), Target.Value) > 1 Then Target.ClearContents

        Application.EnableEvents = True

        MsgBox "مكرر "

    End If

End If

On Error GoTo 0

End Sub

المرفق 2003

WORK SHOP INVENTORY.rar

[فارس الواقعية]

كم انا ممتن لك اخى بارك الله فيك ورزقك عيشة هنية وبعد عنك كل مكروه

لك منى كل الاحترام والتقدير

[فارس الواقعية]

اخي الكريم / عبدالله باقشير المحترم

الأخوة الأعضاء الكرم

بعد استخدام الكود السابق والعمل به واجهتنى مشكلة اخرى ارجو ان اجد لها حل معكم هى :-

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

بالاضافة لما هو موجود بالملف السابق المعدل من قبل الاخ الكريم عبدالله باقشير التعديل بحيث عند لصق اكثر من خلية فى خلايا العمود B لايقبلها الملف ويظهر رسالة التكرار ويحذف كافة اكواد الاصناف المكررة ويبقى على عدم المكرر منها ويمكن التجربة من خلال نسخ عدة اكواد من نفس العمود بالاسفل ولصقها فى المدى حتى B53 حيث انى استخدم البيانات من بداية الصف رقم 54 كقاعدة بيانات لكافة الاصناف

والمرفق بالاسفل

ولكم خالص الشكر والاحترام والتقدير

WORK SHOP INVENTORY.rar

[أم عبد الله]

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