Viết code để tự động tìm kiếm trong sheet lần 2

[thlpro]

Chào Moij Người,

Mọi người xem giúp file này mình với. Ở sheet 2 mình đang có vấn đề về viết code để tự động tìm kiếm trong sheet . Mọi xem và giúp mình với nhé. Thánks.

 

[thlpro]

Sao chẳng thấy ai giúp mình cái bài này hết vậy. Pls help me.

 

[ChanhTQ@]

/-(ãy so với cái cũ mần răng

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [c4]) Is Nothing Then
    Dim Sh As Worksheet, Rng As Range, sRng As Range
    
    Set Sh = ThisWorkbook.Worksheets("Sheet1")
    Set Rng = Sh.Range(Sh.[B4], Sh.[B65500].End(xlUp))
    Set sRng = Rng.Find(Target.Value, , xlValues, xlWhole)
    If sRng Is Nothing Then
        MsgBox "Khong Có Nguo2i Này", , "GPE Xin Luu Í"
    Else
        With Target
            .Offset(1).Value = sRng.Offset(, -1).Value
            .Offset(2).Value = sRng.Offset(, 1).Value
            .Offset(3).Value = sRng.Offset(, 5).Value
            .Offset(4).Resize(3).Value = "? GPE"
        End With
    End If
 End If
End Sub

 

[dailykem]

bài tập về tìm kiếm có trong diễn đàn nhiều rồi thì phải