Cảm ơn sealand nhé!Mình đã xem file bạn gửi lại cho mình rồi.Nhưng không thể dùng combo box được hả bạn.Tại file của mình phải dùng combo box vì có liên quan đến một số mã code VBA mà.(Vì nhờ CB này nên có thể viết thêm đoạn offset dữ liệu sang 1 đến 2 cột khác, vì mình không muốn dùng vlookup vì sẽ làm file chạy chậm).Đây là suy nghĩ của mình mới nghĩ cách để bổ sung vào file quản lý vật tư kho hàng của mình.Các bạn cố gắng còn cách nào nữa không nhé.Một lần nữa cảm ơn sealand vì file hữu ích này.Nếu không còn cách nào khác thì có lẽ sẽ quay qua dùng cách của bạn,như vậy sẽ dễ quản lý hơn.
Đúng với ý mình mong muốn rồi, cảm ơn sealand nhiều nhé,khi nào làm xong file mình sẽ up lên cho anh chị nhận xét thêm.Bây giờ mình sẽ bổ sung vào file đang dỡ dang đã.Có gì sẽ phản hồi sau.Chúc sức khỏe và thành công.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Vg As Range
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Row > 1 Then
Set Vg = Sheet2.Range("D2:D" & Sheet2.[D65536].End(3).Row).Resize(, 3)
nap Vg, "*"
moveC
Set Vg = Nothing
ElseIf Target.Column = 3 And Target.Row > 1 Then
Set Vg = Sheet2.Range("A2:A" & Sheet2.[A65536].End(3).Row).Resize(, 3)
nap Vg, Target.Offset(, -2).Value
moveC
Set Vg = Nothing
'------------------------------------------------
Else ' Day la dòng thêm
Me.ComboBox1.Visible = False 'Đây là dòng thêm
'------------------------------------------------
End If
End Sub
