طلب بخصوص الداله الاضافيه vlook2all

[daolabs]

الاخوان الافاضل السلام عليكم ورحمة الله و بركاته

المرجوا منك ايجاد الداله vlook2all بالغه الانجليزيه و ذلك لان الجهاز الذي لدي لا بدعم اللغه العربيه

و لكم الشكر

[أبو محمد عباس]

السلام عليكم

اخي العزيز تفضل هذا ملف فيه الدالة مع الشرح للاستاذ عمر الحسيني المحترم

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

VLOOK2ALL.rar

[الشهابي]

أخي العزيز / daolabs

هذه الدالة نفسها ونفس الملف الذي أرفقه أخينا عباس السماوي بعد تحويل البارومترات تبعها باللغة الإنجليزية حسب طلبك

تم تعديل الملف في هذه المشاركة أيضاً

VLOOK2ALL_5_2.rar

[أبو محمد عباس]

السلام عليكم

الاستاذ والاخ الشهابي المحترم جزاك الله خيرا وبارك الله فيك

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

[الشهابي]

عفواً إخواني الإعزاء

تم اكتشاف خطأ أثناء التحويل وذلك يسب السرعة وعدم التركيز

اعتذر لذلك وتم تصحيح الخطأ وأرجو استبدال كود الدالة السابق بالكود التالي :

Function VLOOK2ALL(Table_array As Range, lookup_value As Variant, Number_appearing, col_index_num)

For x = 1 To Table_array.Rows.Count

If Table_array.Cells(x, 1) = lookup_value Then

	 Counter = Counter + 1

	 If Counter = Number_appearing Then VLOOK2ALL = Table_array.Cells(x, col_index_num): Exit For

End If

Next

End Function

الأخ / عياس السماوي أنت جزاك الله ألف خير فأنت صاحب السبق باحضاروإرفاق ملف الدالة

وما قمت به فقط التحويل في مسميات بارومترات الدالة

والعفو وهذا الملف المرفق بعد التعديل

كما تم تعديل الملف في المشاركة السابقة أيضاً

VLOOK2ALL_5_2.rar