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