مشكلة فى معادلة Vlookup

[Osama-2020]

السلام  عليكم

الزملاء الافاضل

عندي مشكلة فى معادلة vlookup فى الشيت المرفق (ملونة باللون الاصفر) ..... ومش عارف ليه مش شغاله وارجو المساعدة من فضلكم

شكرا جزيلا

Vlookup.xlsx

[أبوســـارة1973]

 

 المشكلة هي أن هذه الدالة لا تقبل البحث عن قيم علي يمين الخلية المرجعية(قيمة البحث)ي

بمعنى يجب أن تكون قيم البحث في العمود الأول من جدول البحث  

[سليم حاصبيا]

لا أعلم اذا كان هذا المطلوب

Osama.xlsx

[عبدالفتاح في بي اكسيل]

هذا  بالكود  البرمجي  لعله يساعدك 

تفضل

Sub osama()
Dim data, i As Long, fnd As Range
With Range("B27:C" & Cells(Rows.Count, 3).End(xlUp).Row)
    data = .Value
    For i = LBound(data, 1) To UBound(data, 1)
        Set fnd = Range("C3:R21").Find(data(i, 2), , xlValues, xlWhole)
        If Not fnd Is Nothing Then data(i, 1) = Cells(fnd.Row, 2)
    Next i
    .Value = data
End With
End Sub

 

جلب اسماء.xlsm

[Osama-2020]

جزاك الله خير الجزاء استاذنا الكريم 👍👍