بارك الله فيك أستاذ محمد الريفي
واسمح لي إذا لم يكن يضايقك طبعا (أما لو ضايقك هعمل حذف علطول أو على عرض)
لإثراء الموضوع هذه دالة توضع في موديول تقوم بالمهمة
Function Two_Con_Vlookup(Table_Range As Range, Return_Col As Long, Col1_Fnd, Col2_Fnd)
Dim rCheck As Range, bFound As Boolean, lLoop As Long
On Error Resume Next
Set rCheck = Table_Range.Columns(1).Cells(1, 1)
With WorksheetFunction
For lLoop = 1 To .CountIf(Table_Range.Columns(1), Col1_Fnd)
Set rCheck = Table_Range.Columns(1).Find(Col1_Fnd, rCheck, xlValues, xlWhole, xlNext, xlRows, False)
If UCase(rCheck(1, 2)) = UCase(Col2_Fnd) Then
bFound = True
Exit For
End If
Next lLoop
End With
If bFound = True Then
Two_Con_Vlookup = rCheck(1, Return_Col)
Else
Two_Con_Vlookup = "#N/A"
End If
End Function
وهذا ملف مرفق مثال على الدالة
VLOOKUPTwoCriteria.rar