ممكن التعديل على هذا الكود

[abuhanen10]

اخوانى الاعزاء

كود بحث بمعيار واحد داخل كل الشيت وليس صفحه واحه

اريد التعديل ليكون بمعيارين او ثلاثه

اولا الكود

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

[abuhanen10]

لعلى اجد اجابه

 

[abuhanen10]

هو فيه وصايه لعدم الرد

فيه ايه بالظبط