Sub update()
Dim lrUpd As Integer, lrDat As Integer, i As Integer, j As Integer
Dim mis As String
Dim changeRng As Range
lrUpd = Sheets("update").Range("A" & Rows.Count).End(xlUp).Row
lrDat = Sheets("data").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lrUpd
Set changeRng = Sheets("Data").Range("A2:A" & lrDat).Find(Sheets("update").Range("A" & i).Value)
If Not changeRng Is Nothing Then
Sheets("Data").Range("B" & changeRng.Row).Value = Sheets("update").Range("B" & i).Value
j = j + 1
Else
mis = mis & Sheets("update").Range("A" & i) & ", "
End If
Next
If Len(miss) > 0 Then
MsgBox ("Co loi update tai code: " & miss)
Else
MsgBox ("Da update " & j & " code thanh cong")
End If
End Sub