Nhờ sửa lỗi code tự động nhập liệu theo điều kiện

[lp0072021]

Chào các anh chị diễn đàn.
Em nhờ anh chị sửa lại lỗi code tự động nhập liệu theo điều kiện như trong file đính kèm. Em cảm ơn các anh chị.

 

[bebo021999]

Dùng cái này:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, i&, rng
lr = Cells(Rows.Count, "H").End(xlUp).Row
If Intersect(Target, Range("G11:G" & lr)) Is Nothing Or Target.Count > 1 Or lr < 11 Then Exit Sub
rng = Range("G11:H" & lr).Value
For i = 1 To UBound(rng)
    If rng(i, 2) = Target.Offset(, 1).Value And i <> Target.Row - 10 Then rng(i, 1) = Target.Value
Next
Range("G11").Resize(UBound(rng), 1).Value = rng
End Sub

 

[lp0072021]

Dùng cái này:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, i&, rng
lr = Cells(Rows.Count, "H").End(xlUp).Row
If Intersect(Target, Range("G11:G" & lr)) Is Nothing Or Target.Count > 1 Or lr < 11 Then Exit Sub
rng = Range("G11:H" & lr).Value
For i = 1 To UBound(rng)
    If rng(i, 2) = Target.Offset(, 1).Value And i <> Target.Row - 10 Then rng(i, 1) = Target.Value
Next
Range("G11").Resize(UBound(rng), 1).Value = rng
End Sub

Anh giúp em trường hợp cột nhập liệu được copy nhiều dòng 1 lúc rồi dán. Em cảm ơn anh nhiều nhé.