Thầy ơi, thầy xem giúp em code bị lỗi sao ạ
https://docs.google.com/spreadsheets/...
NẾU E TÌM KIẾM SẢN PHẨM THEO TỪ GỢI Ý DƯỚI NÀY THÌ MÃ SẢN PHẨM & GIÁ HIỂN THỊ ĐÚNG
Private Sub timgoiy_click()
Dim ws As WorksheetFunction
Set ws = Application.WorksheetFunction
Dim i As Long
i = ws.Match(timgoiy.Text, Range("tensp"), 0) + 1
With Sheet1
gia.Text = .Range("C" & i)
masp.Text = .Range("A" & i)
End With
TƯƠNG TỰ, E TÌM KIẾM THEO SỐ ĐIỆN THOẠI THÌ BÁO LỖI ???
End Sub
Private Sub timsdt_click()
Dim ws As WorksheetFunction
Set ws = Application.WorksheetFunction
Dim i As Long
'i = ws.Match(timsdt.Text, Range("sdt_KH"), 0) + 1 => báo lỗi dòng này ạ ? là do đâu thầy ?
'With Sheet2
cb_kh.Text = .Range("A" & i)
End With
End Sub
---
Nhờ thầy xem giúp em, cảm ơn
Chào bạn bạn vui lòng mở quyền truy cập giúp gitiho nhé.