حصر الاسماء من المكررة

[أبوحازم]

السلام عليكم ورحمة الله وبركاتة . إخواني منتدى أوفسينا المحترمين  

الرجا مساعدتي : طلبي هو حصر الاسماء من المكررة الى غير المكررة في ورقة 2

لعد العملاء وغير ذلك والمرفق يشرح نفسة وشكرا جزيلا جدا

حصر الاسماء وفرزها.rar

[سليم حاصبيا]

ربما مان المطلوب

حصر الاسماء وفرزها salim.rar

[أبوحازم]

نعم نعم شكرا جزيلا جدا إي مشكلة براجعك

[أبوحازم]

بس عندما نسخت الدالة لم تعمل لماذا ياريت توضحولي أكثر جزاكم الله خير

[علاء رسلان]

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

الحل كما أوضح الأخ الكريم سليم حاصبيا يحتاج منك أن تضغط على الأزرار 

ctrl&Shift&Enter

الثلاثة معا و ليس

Enter

فقط و ذلك أن المعادلة معادلة مصفوفة .

 

[أبوحازم]

نعم سويت نفس المطلوب بس حصل تكرار في الاسماء ياريت تشوف الصورة في المرفق

JWPWP.rar

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

الأخ أبو حازم

بعد إذن الأخ الحبيب سليم .بارك الله فيه

إليك الحل التالي بدالة معرفة قمة في الروعة تغنيك عن كل هذا الكم من المعادلات ..حيث قام أخي وحبيبي سليم باخفاء ورقة العمل ورقة3 ووضع بها معادلات لاستخراج القيم الفريدة

أما الدالة المعرفة فتغنيك عن كل هذا الأمر

Function GetUnique(ArrDupes As Variant, Ref As Long) As Variant
'تقوم الدالة باستخراج القيم الغير مكررة وتخطي الخلايا الفارغة
'=IFERROR(GetUnique($A$1:$A$20,ROW(A1)),"")
'-----------------------------------------------------------
    Dim E
    With CreateObject("Scripting.Dictionary")
        If TypeOf ArrDupes Is Range Then
            For Each E In ArrDupes
                If E <> "" Then .Item(E.Value) = Empty
            Next
        Else
            For Each E In ArrDupes
               If E <> "" Then .Item(E) = Empty
            Next
        End If
        GetUnique = .keys()(Ref - 1)
    End With
End Function

تقبل تحياتي

حصر الاسماء وفرزها YK.rar

[علاء رسلان]

السلام عليكم

بعد إذن أخى الفاضل سليم حاصبيا ، أقدم حلى المتواضع الذى لا يرتقى الى مستوى أخى الكريم سليم و هو على قدر استطاعتى و فهمى ، طبعا هناك عمود إضافى .. و ان أمكن أخى الكريم سليم ان تفضلت بشرح معادلتك لأننى لم أستوعبها و حيرتنى كثيرا نظرا لطولها و تلاعبها معى ذات اليمين و اليسار لم استطيع الأمساك بها لفهمها و أنزلقت من بين يدى كإنزلاق الزئبق .

حصر الاسماء.rar

[ابوزيد]

السلام عليكم

عمل ممتاز

[أبوحازم]

ياسلام ياسلام إبداع وأي مشكلة براجع وشكرا جزيلا جدا

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

لم يتم تحديد أفضل إجابة

 

أنا تعبت من كثرة ما بكتب الجملة دي في المشاركات ..يا ريت يا إخواني الالتزام بالتوجيهات

نريد أن نظهر بمظهر يليق بالمنتدى .. الأمر لن يكلفك كثيراً فقط نقرة واحدة بالماوس (أنا مش بطلب المستحيل) .. أحياناً الموضوع ممكن يستغرق أكثر من ساعة وحضرتك بتكسل تضغط ضغطة واحدة بالماوس .. مش لمصلحة شخصية ولا عشان نقطة إيجابية ولكن لسهولة التعامل مع الموضوعات وتيسير الأمر على من يريد المساعدة أن يركز في الموضوعات التي لم يجاب عليها