السلام عليكم
هذا الكود بحاجة الى شرح حيث انى حاولت تطبيقة مع الملف المرفق ولم يفلح
الرجاء التكرم ببيان سبب الخطاء
وشكرا
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