تعديل على كود في حد الصفحة لجلب بيانات الموظف في حال تكرار اسمه

[ابو مارفن]

 

السلام عليكم فضلا وليس امرا تعديل على كود في حد الصفحة لجلب بيانات الموظف في حال تكرار الاسم مع جزيل الشكر 

بيانات الموظف.xlsm.xlsx

[ابو مارفن]

Private Sub Worksheet_Change(ByVal Target As Range)
'لادراج بيانات الاسم في حال تكراره
    If Target.Column = 2 And Target.Row > 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlManual
    Dim rw&
    On Error Resume Next
    rw = Range("q:q").Find(Target.Value, Target, , 1, , 2).Row
    Target.Offset(, 1).Value = Cells(rw, 3).Value
    Target.Offset(, 2).Value = Cells(rw, 4).Value
    Target.Offset(, 3).Value = Cells(rw, 5).Value
    Target.Offset(, 4).Value = Cells(rw, 6).Value
    Target.Offset(, 5).Value = Cells(rw, 7).Value
    Target.Offset(, 6).Value = Cells(rw, 8).Value
    Target.Offset(, 7).Value = Cells(rw, 9).Value
    Target.Offset(, 8).Value = Cells(rw, 10).Value
    Target.Offset(, 9).Value = Cells(rw, 11).Value
Application.Calculation = xlAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
 End If
End Sub

 

[ابو مارفن]

للرفع