Lỗi khi dùng hlookup trong vba (1 người xem)

[huycan30390]

Em dùng hlookup trong vba để tra bảng tự động từ sheet này sang sheet khác.không hiểu tại sao cứ báo lỗi

Sub Button31_Click()
'khai bao
     'bulon
     Dim bbl As Single, dbl As Single
     Dim fvb As Single, ftb As Single 'gan bien
    With Worksheets("tinh")
        'bulon
        bbl = .Range("b12").Value
        dbl = .Range("b13") / 1000 'doi ve m
        bt = .Range("b14").Value
         fsd = .Range("b15").Value * 1000 'doi ve KN/m2
     End With
        'tra bang
        [COLOR=#ff0000][B]fvb = WorksheetFunction.HLookup(bbl, Worksheets("bangtra").Range("c3:i5"), 2, False)  [/B][/COLOR]   
End Sub

Không hiểu sao,dòng màu đỏ toàn báo lỗi "1004".Ai sửa giúp em với

 

[leonguyenz]

Em dùng hlookup trong vba để tra bảng tự động từ sheet này sang sheet khác.không hiểu tại sao cứ báo lỗi
---
Không hiểu sao,dòng màu đỏ toàn báo lỗi "1004".Ai sửa giúp em với

Khả năng không tìm thấy trị dò trên bảng dò.
Bạn gửi file lên xem.

 

[ndu96081631]

Không hiểu sao,dòng màu đỏ toàn báo lỗi "1004".Ai sửa giúp em với

Vậy có nghĩa là lỗi KHÔNG TÌM THẤY
Có thể thí nghiệm bằng cách gõ =HLOOKUP(B12,bangtra!C3:I5,2,0) lên 1 cell nào đó tại sheet tinh ---> Chắc chắn kết quả nhận được sẽ là lỗi #N/A

 

[VetMini]

Hàm tìm kiếm của WrokSheet sẽ nảy sinh lỗi nếu kết quả không kiếm được.
Nếu dùng hàm này, bạn pjair lông nó vào "On Error Resume Next ... Resume 0" và test err.Number

Cách dễ hơn là dùng hàm này trong bối cảnh Application. Trong bối cảnh này, nếu không tìm được thì hàm sẽ trả về trị Error
Khi dùng hàm tìm kiếm của Application, bạn lấy kết quả vào biến Variant.
Sau đó thử If Not IsError(biến) Then...