السلام عليكم 
  
هذا الكود بحاجة الى شرح حيث انى حاولت تطبيقة مع الملف المرفق ولم يفلح 
الرجاء التكرم ببيان سبب الخطاء 
وشكرا 
Private Sub Arec1_Change()
Dim i, j As Integer, flag As Boolean, sdsheet As Worksheet
Set sdsheet = ThisWorkbook.Sheets("Items")
If Me.Arec1.Value <> "" Then
    flag = False
    i = 2
    j = Me.Arec1.Value
    Do While sdsheet.Cells(i + 1, 2).Value <> ""
        If sdsheet.Cells(i + 1, 2).Value = j Then
            flag = True
            Me.Arec2.Value = sdsheet.Cells(i + 1, 3).Value
            Me.Arec3.Value = sdsheet.Cells(i + 1, 4).Value
            Me.Arec4.Value = sdsheet.Cells(i + 1, 5).Value
            Exit Sub
        End If
        i = i + 1
    Loop
    End If
    
    
End Sub
Boook1.zip