السلام عليكم
وهذا الحل باستخدام الكود
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
TR = Target.Row
ER = Sheets("ÇáÈíÇäÇÊ").UsedRange.Rows.Count
For FR = 2 To ER
If Sheets("ÇáÈíÇäÇÊ").Cells(FR, 2) = Cells(TR, 2) Then
For TC = 4 To 7
Cells(TR, TC) = Sheets("ÇáÈíÇäÇÊ").Cells(FR, TC - 1)
Next TC
Exit Sub
End If
Next FR
End If
End Sub
ح_العملاء.rar