Cho code này vào sự kiện Worksheet_Change của sheet1 nhéEm có 1 file ví dụ. Em muốn nhờ AC viết dùm em code cập nhật dữ liệu sang các cột bên cạnh.
(Câu hỏi cụ thể trong file đính kèm)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fRng As Range, Clls As Range
On Error Resume Next
If Target.Row > 4 And Target.Column = 4 Then
For Each Clls In Target
If Clls.Value = "" Then Clls.Offset(, 1).Resize(, 2) = ""
Set fRng = Sheet2.Range("A1").CurrentRegion.Resize(, 1).Find(Clls.Value, , xlValues, xlWhole)
If Not fRng Is Nothing Then
Clls.Offset(, 1).Resize(, 2) = fRng.Offset(, 1).Resize(, 2).Value
End If
Next
End If
End Sub