Code:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo KhongTimThay
If Not Intersect(Target, Range("B6:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
Sheet2.Activate
Sheet2.Range("B:B").Find(What:=Trim(Target.Value), After:=Sheet2.Range("B3"), LookIn:=xlValues,
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False, SearchFormat:=False).Activate
End If
End
KhongTimThay:
Sheet1.Activate
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''