منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود

[ياسر خليل أبو البراء]

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

إخواني وأحبابي في الله

استناداً إلى الموضوع في الرابط التالي

من هنا

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

ها هو الكود يوضع في حدث ورقة العمل ، ويتم التعامل مع العمود الأول

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cl As Variant, Dat As Variant
    Dim DupCtr As Double
    Dim LastRow As Long
    
    If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then
        Application.EnableEvents = False
        If Target.Cells.Count > 1 Then
            Dat = Target.Formula

            For Each Cl In Dat
                If Cl <> "" Then
                    MsgBox "Change Only One Cell At A Time", , "Too Many Changes!"
                    Application.Undo: Application.CutCopyMode = False
                    GoTo Skipper
                End If
            Next Cl
        End If
        '=========================================================================
        LastRow = Cells(Rows.Count, "A").End(xlUp).Row
        DupCtr = Application.WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(LastRow, "A")), Target.Text)
        
        If DupCtr > 1 Then
            MsgBox "You Have Entered A Duplicate"
            Target.ClearContents: Target.Activate
            GoTo Skipper
        End If
    End If
Skipper:
    Application.EnableEvents = True
End Sub

أرجو أن يكون الموضوع مفيد لكم

 

حمل الملف من هنا

 

تقبلوا وافر تقديري واحترامي

[جلال الجمال_ابو أدهم]

ما شاء الله عليك
تحياتى

[محمد حسن المحمد]

السلام عليكم أخي الحبيب أبو البراء

ما شاء الله لا قوة إلا بالله...والحمد لله الذي بنعمته تتم الصالحات.

هنيئـــــاً لكم ..ولطلاب العلم الذين يقبسون من نوره الساطع.... 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم الاخالحبيب أبو البراء

جزاك الله كل الخير .. ابدعاتك تفتح لنا طرق جديد للعمل 

 

[ياسر خليل أبو البراء]

أخي العزيز جلال الجمال

أحمد الله أنك متواجد فيما بيننا بعد طول انقطاع وأرجو أن تكون بيننا دائماً

أخي الحبيب المتميز أبو يوسف

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

أخي الغالي أبو حنين

بعد طووووووووووووووول انقطاع أخيراً ظهرت على شاشات أوفيسنا .. عوداً حميداً يا رجل

تقبلوا جميعاً وافر تقديري واحترامي

[اسامة ابو عمر]

ما شاء الله اخوي ابو البراء 

مبدع وشغل كبير جدا

جزاك الله كل خير وبارك الله فيك 

[ياسر خليل أبو البراء]

وجزيت خيراً أخي العزيز أسامة بمثل ما دعوت لي وزيادة

تقبل وافر تقديري واحترامي

[الصـقر]

جزاكم الله خيرا يا ابوالبراء

تقبل تحياتى

 

[ياسر خليل أبو البراء]

وجزيت خيراً أخي وحبيبي حسام عيسى صقر المنتدى

نورت الموضوع بردك الجميل

[اسامة ابو عمر]

19 ساعات مضت, ياسر خليل أبو البراء said:

وجزيت خيراً أخي العزيز أسامة بمثل ما دعوت لي وزيادة

تقبل وافر تقديري واحترامي

ربنا يجازيك كل خير 

لكن تحملني اخي ابو البراء فانا ما زلت اوجه مشكلة بالكود 

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

يعني لازم اني انسخ البيانات تحت بعض ولو حصل فراغ بالاسطر ومكتبتش بسطرين تالته وتركتهم فاضين ما بيزبطش

احيانا بيجيني الملف فيه فراغات ومش كل الكتابة تحت بعض

[ياسر خليل أبو البراء]

أخي الكريم أسامة

من الطبيعي أن تظهر أخطاء لأن كل شخص يعمل بالكود يعمل بشكل مختلف

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

تقبل تحياتي

[اسامة ابو عمر]

2 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم أسامة

من الطبيعي أن تظهر أخطاء لأن كل شخص يعمل بالكود يعمل بشكل مختلف

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

تقبل تحياتي

شكرا جزيلا اخوي ابو البراء على المساعدة

جزاك الله خير وفرج الله عنك كل ضيق 

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لنا أخي الحبيب أسامة

وإن لك فضل علينا بعد فضل الله عزوجل ، وهذا جزء بسيط من رد الجميل

تقبل تحياتي