Hàm Vlookup. Báo lỗi nhưng không biết khắc phục

[hathanh349]

Các bác xem chỉ giúp em cách khắc phục lỗi này với ah

Sub LayBKMH()
Dim i As Integer
For i = 2 To 26
Sheet2.Cells(i + 12, 2).Value = WorksheetFunction.HLookup(Left(WorksheetFunction.HLookup(Sheet2.Cells(6, 8), _
Sheet8.Range("G3:AO60"), i, 0), 2), Sheet8.Range("b4:c63"), 2, 0)
Next
End Sub
báo lỗi như sau

 

[giaiphap]

Các bác xem chỉ giúp em cách khắc phục lỗi này với ah

Sub LayBKMH()
Dim i As Integer
For i = 2 To 26
Sheet2.Cells(i + 12, 2).Value = WorksheetFunction.HLookup(Left(WorksheetFunction.HLookup(Sheet2.Cells(6, 8), _
Sheet8.Range("G3:AO60"), i, 0), 2), Sheet8.Range("b4:c63"), 2, 0)
Next
End Sub
báo lỗi như sau
View attachment 259019

Trong code không có hàm Vlookup sao lại báo lỗi Vlookup vậy bạn.

 

[batman1]

Các bác xem chỉ giúp em cách khắc phục lỗi này với ah

Sub LayBKMH()
Dim i As Integer
For i = 2 To 26
Sheet2.Cells(i + 12, 2).Value = WorksheetFunction.HLookup(Left(WorksheetFunction.HLookup(Sheet2.Cells(6, 8), _
Sheet8.Range("G3:AO60"), i, 0), 2), Sheet8.Range("b4:c63"), 2, 0)
Next
End Sub
báo lỗi như sau
View attachment 259019

Bình thường mà. Nếu bạn dùng VLookup và HLookup ngoài sheet mà giá trị không tìm thấy thì sao? Thì công thức trả về lỗi.
Khi dùng code ở trên nếu HLookup bên ngoài (thứ nhất) hay trong (thứ hai) mà có lỗi thì sao? Thì nó hiện cái thông bao mà bạn đã trích ấy.

 

[SA_DQ]

Cách khắc phục tạm thời là vầy, bạn nghiên cứu tiếp & giải quyết triệt để đi nha:

Sub LayBKMH()
 Dim I As Integer, WF As Object
 On Error GoTo LoiCT
 
1 Set WF = Application.WorksheetFunction
2 For I = 2 To 26
3    Sheet2.Cells(I + 12, 2).Value = WF.HLookup(Left(WF.HLookup(Sheet2.Cells(6, 8), _
        Sheet8.Range("G3:AO60"), I, 0), 2), Sheet8.Range("b4:c63"), 2, 0)
4  Next I
Err_:           Exit Sub
LoiCT:
 If Err = 1004 Then
    MsgBox Error()
 Else
    MsgBox Err,,Erl
 End If
 Resume Err_
End Sub