Gửi bởi
tuanthao103
Nhờ mọi người giúp đỡ. Mình có 1file nhập hàng chứa 2 sheet. mình muốn khi nhập ean ở sheet 1 mà trùng với ean ở sheet 2 thì sẽ tự động điền nốt các thông tin còn lại. còn khi ean ko có trong sheet 2 thì mình sẽ tự nhập dữ liệu ngoài.
File mình gửi kèm. mong nhận được sự giúp đỡ.
Món này chắc vừa tự động vừa nhập tay được nè. Paste code vào sheet Nhap
Mã:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Column = 1 Then
If Target.Row > 1 Then
Set Rng = Sheets("data").Range("A2", Sheets("data").Range("A65000").End(3)).Find(Target.Value, , xlValues, xlWhole, , , True)
If Not Rng Is Nothing Then
Target.Offset(, 1).Resize(, 5).Value = Rng.Offset(, 1).Resize(, 5).Value
End If
End If
End If
End Sub
View more random threads: