Gửi Thầy, e có làm userform về nhập khối lượng. Ở userform nhapDL ở phần tên vật tư, khi e thay đổi vật tư và bấm nút cập nhật ở bất cứ dòng nào để thay thế nội dung ở ô đó thì nó báo lỗi vlookup. Phiền thầy xem qua và cho e sửa lỗi này
Mình có xem thử file thì không rõ nguyên nhân tại sao đoạn code VLOOKUP lại báo lỗi.
Cú pháp viết đúng và logic cũng đúng.
Với trường hợp này thì mình nghĩ bạn thêm đoạn lệnh bẫy lỗi để bỏ qua lỗi này (khi lỗi chưa rõ nguyên nhân mà nếu bỏ qua lỗi không ảnh hưởng tới hoạt động thì có thể bẫy lỗi đi):
On Error Resume Next
txt_donvi = Application.WorksheetFunction.VLookup(cb_vt, vung1, 2, 0)
txt_dongia = Application.WorksheetFunction.VLookup(cb_vt, vung1, 3, 0)
If txt_dongia <> "" And txt_soluong <> "" Then
txt_thanhtien = txt_dongia * txt_soluong
End If
On Error GoTo 0