استخراج القيم الفريده .. بطريقه العلامه عبد الله باقشير

[أ / محمد صالح]

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

رجاء تصويرها للتعامل مع الخطأ

[ناصر سعيد]

تفضل اخي الكريم استاذ محمد صالح

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

جرب تنصيب النت فريم ورك 3.5 ... أعتقد أن هذا كفيل بحل المشكلة إن شاء العلي القدير

[أ / محمد صالح]

المشكلة كما قال أستاذ ياسر تخص تحديث دوت نت فريم وورك

وأنصح باستخدام نسخة ويندوز أحدث حيث أن شركة ميكروسوفت قد أوقفت الدعم والتحديثات لنسخة اكس بي التي صدرت في ١٩٩٨ 

وصدر بعدها

Vista

7

8

8.1

10

وأكرر جميع هذه الحلول لمشكلة واحدة

ويلزمني منها أيسرها وأسرعها في التنفيذ

وليس مجرد حصر لكل الحلول

وفقنا الله جميعا لكل ما يحب ويرضى

[ناصر سعيد]

وفقنا الله جميعا لكل ما يحب ويرضى

وشكرا لحسن الرد

[ناصر سعيد]

Sub قيم_فريده_مرتبة()
    Sheets("Sheet1").Range("D7:D150").Copy
    Sheets("Sheet4").Range("H7").PasteSpecial Paste:=xlPasteValues
ActiveSheet.Range("H7:H" & Range("H" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
 [H7:H500].Sort [H7], xlAscending
End Sub

ربنا يبارك في النافع .. يارب

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

 

[رحااال]

في 27‏/4‏/2017 at 11:10, أ / محمد صالح said:

ما شاء الله

أخي خبور خير رائع وجميع أكواده بسيطة وفعالة أعاده الله لنا وسلمه من كل سوء

ولإثراء الموضوع أقدم هذه المعادلة لنفس الغرض

=INDEX($a$2:$a$1000,MATCH(0,COUNTIF($D$1:D1,$a$2:$a$1000),0))

حيث وجود البيانات في العمود a ويتم كتابة المعادلة في الخلية d2 مع الضغط على

Ctrl+shift+enter

لأنها معادلة صفيف array formula

ثم تسحب لأسفل

وفقنا الله جميعا للخير

دمتم في رعاية الله وحفظه

 

 

أخي الكريم جربت نفس ما ذكرت وظهر كما بالصورة: