xin giúp đỡ thực hiện tự động hóa trong excel (1 người xem)

[dongamurong8]

Mình xin nhờ các anh chị trên diễn dàn giúp tự động hóa trong excel.
Mình có 1 sheet Nguồn được nhập đầy đủ thông tin vào từ trước,
Bây giờ mình muốn số liệu tự động nhập liệu vào các ô địa chỉ, số chứng minh thư, ngày cấp, nơi cấp, Mỗi khi mình điền tên bất kì có trong danh sách nguồn vào sheet 'danh sach'

 

[le_vis]

Mình đã làm thử bạn xem đúng ý chưa

Các cột còn lại bạn làm tiếp nhé

 

[vuongtoituonglai]

Bạn xem như vậy được chưa nhé

 

[SA_DQ]

Chuyện này có thể thực hiện bằng 1 macro sự kiện tại trang 'DanhSach' sẽ đơn giản hơn:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 
 Set Sh = ThisWorkbook.Worksheets("Nguon")
 Set Rng = Sh.Range(Sh.[a2], Sh.[a2].End(xlDown))
 If Not Intersect(Target, [A3].Resize(Rng.Rows.Count)) Is Nothing Then
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        MsgBox "Nothing"
    Else
        sRng.Offset(, 1).Resize(, 13).Copy Destination:=Target.Offset(, 1)
    End If
 End If
End Sub