دالة Vlookup

[أبوالباسل]

السلام عليكم ورحمة الله وبركاته
عندي مجموعة عملاء مرتبين حسب ترتيبهم في حجم التعامل (العامود باللون الأصفر) ، لكن عندما يتم تحصيل دفعات إسبوعية منهم يتم ترتيبهم قربهم لبعض (العامود باللون الأخضر) لتوفير الجهد والوقت.
إخترت دالة Vlookup للبحث عن اسم العميل في جدول الترتيب حسب حجم التعامل .... ثم إحضار رقم ترتيب خط السير من جدول خط السير وإضافته لجدول الترتيب حسب حجم التعامل.
إلا أنها لم تعمل ... ممكن أعرف السبب.

خط السير.xlsx

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

جرب إستخدام إحدى الصيغ التالية 

=IFERROR(INDEX($G$3:$G$121, MATCH(C3, $H$3:$H$121, 0)), "غير موجود")
'أو

=XLOOKUP(C3, $H$3:$H$121, $G$3:$G$121, "غير موجود")

بالأكواد 

Option Explicit

Sub UpdateOrder()
    Dim WS As Worksheet, lastRow As Long, i As Long
    Dim Client As String, tmp As Variant
    Set WS = Sheets("خط السير")
    
    lastRow = 120
    
    Application.ScreenUpdating = False
    WS.Range("b3:b" & lastRow).ClearContents
    For i = 3 To lastRow
        Client = WS.Cells(i, "C").Value
        
        If Client <> "" Then
            tmp = Application.Match(Client, WS.Range("H3:H" & lastRow), 0)
            
            If Not IsError(tmp) Then
                WS.Cells(i, "B").Value = WS.Cells(tmp + 2, "G").Value
            Else
                WS.Cells(i, "B").Value = "غير موجود"
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

خط السير.rar