أخى الفاضل / عبد الله
سلام الله عليكم
الدالة المعدلة كما فى المشاركة الأولى
Function VLOOK2ALL(قيمة_البحث As Variant, جدول_البيانات As Range, عمود_النتيجة, رقم_الظهور)
For x = 1 To جدول_البيانات.Rows.Count
If قيمة_البحث = جدول_البيانات.Cells(x, 1) Then
Counter = Counter + 1
If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For
End If
Next
End Function
أما فى المشاركة 25 وضعت الدالة بالشكل القديم
Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة)
والتى عدلت عليه فكان يجب وضع الدالة التى قمتم بالتعديل عليها