مساعدة فى استخراج بيانات

[عمرو رحيل]

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

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

111.rar

[علي سالم 75]

هذه محاولة

شوف المرفق

111.rar

[احمدزمان]

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

محاولة ممتازة ورائعة

من اخ كريم

جزاك الله كل خير

[عمرو رحيل]

هذه محاولة

شوف المرفق

شكرا لمجهودك ولكن هذا الحل غير صالح لانه عند تغيير الرقم 7 الى رقم اخر لا يتغير الناتج فى الخلية E1

[عمرو رحيل]

يا جماعة الخير اليس هناك من مساعد فى هذا السؤال؟

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

السلام عليكم

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

Sub Abu_Ahmed()

Dim cl As Range

For Each cl In [G1:G7]

If Application.CountIf([A1:D3], cl) = 0 Then [E1] = cl

Next

End Sub

[الـعيدروس]

السلام عليكم

جزاك الله استاذ عبدالله المجرب

بعد اذن الاستاذ الحبيب عبدالله

اضافة بسيطه على الكود في حال المدى متغير

Sub Abu_Ahmed()

Dim cl As Range

For Each cl In Range("G1:G" & Cells(Rows.Count, 7).End(xlUp).Row)

If Application.CountIf(Range("A1:D" & Cells(Rows.Count, 4).End(xlUp).Row), cl) = 0 Then Range("E" & Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row) = cl

Next

End Sub

[عمرو رحيل]

مشكورين

تم تعديل يناير 9, 2012 بواسطه amroraheel

[علي سالم 75]

هذه محاولة

شوف المرفق

شكرا لمجهودك ولكن هذا الحل غير صالح لانه عند تغيير الرقم 7 الى رقم اخر لا يتغير الناتج فى الخلية E1

انا كنت فاكر ان الارقام تسلسلية

غير المعادلة بهذه

=INDEX($G$1:$G$7;MATCH(0;$H$1:$H$7;0))

[مصطفى كمال]

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

أخي الكريم انظر الموضوع التالي ولا تنسى التركيز على الصورة وتحميل الملف المساعد

فقط يجب كتابة البيانات في ورقتين مختلفتين ليتم المقارنة

لا تنسى الدعاء لصاحب الموقع

تحية وسلام للأستاذ محمد طاهر