قاعدة التحقق من الصحة

[osamawhitewhale]

^{السلام عليكم ورحمه الله وبركاته}

^{الاخوه الكرام ...}

^{تحية طيبة وبعد ,,}

^{باستخدام قاعدة التحقق من الصحة كيف يمكنني منع تكرار الخلايا المتشابهه في نفس العمود}

^{ولكم مني كل تقدير واحترام}

^{اخوكم محمد اسامه}

[عبدالله المجرب]

اخي محمد هذه احدى ابداعات الاخوة (الاخ بن علية )

اتمنى ان يكون هذا ما اردت

قائمة منسدلة دون تكرار.rar

تم تعديل ديسمبر 31, 2010 بواسطه ولد المجرب

[عبد الفتاح كيرة]

أسامة

اتبع ما يلى مع أى عمود به تكرار

حدد العمود " بدون عنوانه "

من بيانات اختر " إزالة التكرار

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

كون قاعدة التحقق من الصحة كما هو معتاد

[عبد الفتاح كيرة]

بالكود :

هذا الكود يصفى القائمة بحيث تكون قيمها فريدة

Dim myrng As Range

Dim mycl As Range

Dim MyEndR As Long

With Sheets(1)

        MyEndR = .Range("a" & .Rows.Count).End(xlUp).Row

        Set myrng = .Range("a2:a" & MyEndR)

End With

       For i = 2 To 100

            For Each mycl In myrng

                mycount = Application.WorksheetFunction.CountIf(myrng, mycl)

                    If mycount > 1 Then

                        mycl.EntireRow.Delete

                    End If

            Next mycl

       Next i

القيم الفريدة فى عمود - كود.zip

تم تعديل ديسمبر 31, 2010 بواسطه kemas

[احمدزمان]

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

بعد اذن اخواني ولد مجرب و كيماس

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

شاهد المرفق

حاول ترار المعلومة في الخلايا الصفراء

منع_تكرار_ادخال_في_عمود.rar

[عبد الفتاح كيرة]

لعل هذا ما أراده أسامة فعلا

لقد ذهبنا به مذهبا بعيدا جدا

تتبعت رد أخينا ولد المجرب عليه

مع الشكر

[ابو القبطان]

هي دي ابداعاتك من زمان يا استاذ احمد

[احمدزمان]

السلام عليكم

اشكرك اخي كيماس

وسوف اضع لك موضوع خاص حول الكود الذي عملته

اشكرك أخي New4a

[عبدالله المجرب]

لعل هذا ما أراده أسامة فعلا

لقد ذهبنا به مذهبا بعيدا جدا

تتبعت رد أخينا ولد المجرب عليه

مع الشكر

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

[عبد الفتاح كيرة]

لكن استفدنا كودا خفيفا لتصفية قائمة بها عناصر مكررة

كما أنه سريع جدا

ضممته لمكتبة أكوادى

ينفع عند الحاجة

Dim myrng As Range

Dim mycl As Range

Dim MyEndR As Long

With Sheets(1)

        MyEndR = .Range("a" & .Rows.Count).End(xlUp).Row

        Set myrng = .Range("a2:a" & MyEndR)

End With

       For i = 2 To 100

            For Each mycl In myrng

                mycount = Application.WorksheetFunction.CountIf(myrng, mycl)

                    If mycount > 1 Then

                        mycl.EntireRow.Delete

                    End If

            Next mycl

       Next i

بارك الله فيك

أستاذ أحمد

مرحبا بكل ما يأتى منك