Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(3)) Is Nothing And Target.Count = 1 _
And Target.Value <> "" Then
Dim Rng As Range, sRng As Range, Sh As Worksheet
Set Sh = Sheets("Bieu 01-XD")
Set Rng = Sh.Range(Sh.[c7], Sh.[c65500].End(xlUp))
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
Target.Offset(, 1).Value = "Nothing!"
Else
Target.Offset(, 1).Value = sRng.Offset(, 1).Value
Target.Offset(, 3).Value = sRng.Offset(, 3).Value
End If
End If
End Sub