اخوانى الاعزاء
كود بحث بمعيار واحد داخل كل الشيت وليس صفحه واحه
اريد التعديل ليكون بمعيارين او ثلاثه
اولا الكود
Function VLookupInRanges(v As Variant, c As Long, ParamArray rng() As Variant) As Variant
Dim r As Variant
Dim i As Long
r = CVErr(xlErrRef)
For i = LBound(rng) To UBound(rng)
r = Application.VLookup(v, rng(i), c, False)
If Not IsError(r) Then
Exit For
End If
Next i
VLookupInRanges = r
End Function
ثانيا معادله البحث =VLookupInRanges($L$4,10,'1'!$C$11:$W$150,'2'!$C$11:$W$150,'3'!$C$11:$W$150,5)
ثالثا ملف التطبيق
البحث بشروط.rar