Chào thầy,
Em đang gặp khó trường hợp sử dụng hàm VLOOKUP trong VBA này, nhờ thầy hướng dẫn giùm ạ.
Em có hàm như sau:
txt1_tensp_out.Text = Application.VLookup(cbb2_masp_out.Value, Rng, 2, False)
trong đó:
txt1_tensp_out là textbox (Tên SP)
cbb2_masp_out là combobox (Mã SP)
Rng: Bảng dò
và dò ở cột 2 như code phía dưới
Private Sub UserForm_Initialize()
Dim Lr&, Lr0&, Rng As Range
'On Error Resume Next
With SOURCE
Set Rng = .Range("C2:G" & Lr)
Lr0 = .Range("A" & Rows.Count).End(xlUp).Row
Lr = .Range("C" & Rows.Count).End(xlUp).Row
cbb_ngay_out.List = .Range("A2:A" & Lr0).Value
cbb2_masp_out.List = .Range("C2:C" & Lr).Value
txt1_tensp_out.Text = Application.VLookup(cbb2_masp_out.Value, Rng, 2, False)
End With
Set Rng = Nothing
End Sub
Hiện code đang báo lỗi, nhờ thầy chỉ giùm cách khắc phục em với nhé!
Em cảm ơn thầy!
Bạn gửi file lên giúp gitiho nhé.
Dạ, nhờ thầy vào link phía dưới nhé ạ!
https://drive.google.com/file/d/1Ux3gUqX3njeg5PjGrkHp_HSW6ULXLJJR/view?usp=sharing