منع تكرار الارقام

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

السلام عليكم

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

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

Copy of.rar

[أبو قاسم]

تفضل  عسى اني توفقت بالمطلوب انتظر ردك

Copy of new report2 to osama.rar

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

15 دقائق مضت, أبو قاسم said:

تفضل  عسى اني توفقت بالمطلوب انتظر ردك

Copy of new report2 to osama.rar

شكرا لك اخوي هذا هو المطلوب

ولكن عند الكتابة يمنع التكرار لكن اذا كتبت رقم وقمت بنسخه ومن ثم لصقة في خلية اخرى يلا تظهر الراسالة ويقبل التكرار

هل من طريقة لحل منع التكرار عند النسخ واللصق؟؟

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

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

كليك يمين على اسم ورقة العمل ثم View Code ثم ضع الكود التالي عله يفي بالغرض

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim DupCtr As Double
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
        If Not Intersect(Target, Columns(1)) Is Nothing Then
        
            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
            End If
        End If
End Sub

 

 

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

السلام عليكم ورحمة الله وبركاته ...جزاكم الله خيراً أخي الحبيب أبو البراء على هذا الكود الرائع

الذي يمنع التكرار في العمودA حيث يعطي رسالة بوجود تكرار معين من خلال استخدام الدالة CountIf ويمسح محتوى الخلية التي حصل بها التكرار.

تقبل تحياتي العطرة والسلام عليكم.

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

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

أخي الحبيب أبو يوسف

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

سأقوم بفتح موضوع جديد إذا نجح الأمر إن شاء الله

تقبل تحياتي

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

1 دقيقه مضت, ياسر خليل أبو البراء said:

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

أخي الحبيب أبو يوسف

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

سأقوم بفتح موضوع جديد إذا نجح الأمر إن شاء الله

تقبل تحياتي

راجياً لكم التوفيق والسداد..

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

بفضل الله وعونه تم الأمر ..

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

انقر هنا

جزيت خيراً أخي الغالي أبو يوسف على دعواتك الطيبة ، فلولا دعائك ما تم الأمر

تقبل تحياتي

 

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

شكرا لكم جميعا على الاهتمام والرد

[عبدالله فاروق ابو ريان]

جزاك الله خيرا استاذي ياسر خليل

[gamal molud]

السلام عليكم ورحمة الله وبركاته ...جزاكم الله خيراً أخي الحبيب أبو البراء على هذا الكود الرائع

 

تقبل تحياتي العطرة والسلام عليكم.100/100

 

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

أخي الفاضل عبد الله

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

 

أخي الكريم جمال

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

تحية من مصر لأهل ليبيا وشرفت المنتدى ونورت بين إخوانك

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

تقبلوا تحياتي

[gamal molud]

شكرا جزيلا