Sub update_max()
Dim ArrMax As Range, ArrMax1 As Range, ArrMax2 As Range, ArrMax3 As Range
Dim max As Range, Kqua As Range
Set ArrMax = Range("A2:A11")
Set ArrMax1 = Sheets("nhanvien").Range("A2:A11")
Set ArrMax2 = Sheets("chamcong").Range("A2:A11")
Set ArrMax3 = Sheets("phucap").Range("A2:A11")
For Each max In ArrMax
If max <> "" Then
'nhan vien
Set Kqua = ArrMax1.Find(max, , xlFormulas, xlWhole)
If Not Kqua Is Nothing Then max.Offset(, 1).Value = Kqua.Offset(, 2).Value
'cham cong
Set Kqua = ArrMax2.Find(max, , xlFormulas, xlWhole)
If Not Kqua Is Nothing Then max.Offset(, 2).Value = Kqua.Offset(, 1).Value
'phu cap
Set Kqua = ArrMax3.Find(max, , xlFormulas, xlWhole)
If Not Kqua Is Nothing Then max.Offset(, 3).Value = Kqua.Offset(, 1).Value
End If
Next
MsgBox ("update_max xong"), , "Thong bao"
End Sub
(điều kiện trong 1 sheet các mã ko trùng nhau nhé)
