Khi tìm ĐVT hay ĐVT theo Tên Hàng, em đang dùng code như bên dưới.
Nhưng khi chọn xong tên từ cb_TenHang thì ĐVT và Đơn Giá ko tự hiện ra mà phải gõ ký ký tự bất kì vô 2 ô đó thì mới hiện ra kết quả được.
Nhờ Thầy xem giúp có lỗi sai ở đâu ạ.
#Link file:
https://drive.google.com/file/d/1uuIT...
##Code trong file:
Private Sub tb_DVT_Change()
If cb_TenHang <> "" Then
tb_DVT.Value = Application.WorksheetFunction.VLookup(cb_TenHang, Sheets("DS_Hang").Range("A3:B6"), 2, 0)
End If
End Sub
Chào bạn phần lấy đơn vị tính bạn nên chọn như sau
Private Sub cb_TenHang_Change()
If cb_TenHang <> "" Then
tb_DVT.Value = Application.WorksheetFunction.VLookup(cb_TenHang, Sheets("DS_Hang").Range("A3:B6"), 2, 0)
End If
End Sub
bạn bắt sự kiện tại cb_tenhang nhé.
Dạ cảm ơn thầy, e đã chỉnh lại và làm dc rồi ạ.