Như trong file, ở cột O sheet TLuongDT là số liệu ban đầu. Sau khi tính toán được từ sheet Cuoc2006 rồi em chạy update dữ liệu thì các giá trị ở cột V sheet Cuoc2006 sẽ được update qua cột O sheet TLuongDT (dựa vào các MH để update, còn những MH ko được tính toán trong sheet cuoc2006 thì giữ nguyên giá trị ban đầu). Mong các anh giúp.
Chuyện tính toán theo cách nào thì bạn chịu trách nhiệm nhé, trong file đang bị lỗi tham chiếu vòng đấy.
Tôi viết code sau cho việc cập nhật dữ liệu từ cột V sheet CUOC2006 sang cột O sheet TLuong DT:
[GPECODE=vb]Sub Update()
Dim Tmp, i As Long, Cll As Range, fR As Long
On Error Resume Next
Tmp = Sheets("CUOC2006").[A10:V10000]
For i = 1 To UBound(Tmp)
If IsEmpty(Tmp(i, 1)) Then Exit For
Set Cll = Sheets("TLuong DT").[Q:Q].Find(Tmp(i, 1), , , xlWhole)
If Cll Is Nothing Then GoTo Next_Code
fR = Cll.Row
Do
Cll.Offset(, -2) = Tmp(i, 22)
Set Cll = Sheets("TLuong DT").[Q:Q].FindNext(Cll)
Loop Until Cll.Row = fR
Next_Code:
Next
End Sub[/GPECODE]
