Viết code để tự động tìm kiếm trong sheet

[thlpro]

Chào các ACE,

Làm ơn xem file của mình và giúp mình về việc viết code làm sao để tự động tìm kiếm trong sheet. Yêu cầu nằm trong file đính kèm

 

[viehoai]

Chào các ACE,<br>
<br>
Làm ơn xem file của mình và giúp mình về việc viết code làm sao để tự động tìm kiếm trong sheet. Yêu cầu nằm trong file đính kèm

Cần gì code hả bạn? Bạn xem file nhé

 

[thlpro]

Cái này mình biết rồi. Giờ mình muốn viết code cho nó kia. Anh em nào biết thì chỉ giáo vài chiêu giúp em.

 

[ChanhTQ@]

Thích thì chiều

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [c3]) Is Nothing Then
    Dim Sh As Worksheet, Rng As Range, sRng As Range
    
    Set Sh = ThisWorkbook.Worksheets("Nhan Vien")
    Set Rng = Sh.Range(Sh.[b2], Sh.[b2].End(xlDown))
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        MsgBox "Khong Có Nguòi Này!", , "GPE Xin Luu í!"
    Else
        Target.Offset(1).Value = sRng.Offset(, 1).Value
        Target.Offset(2).Value = sRng.Offset(, 2).Value
 
    End If
 End If
End Sub

Chú í: Mình viết macro sự kiện trong E2003 đó nha!