Cả nhà giúp em sửa lỗi "Runtime error 1004"

[huedtx23385]

cả nhà giúp em sửa lỗi bài dùng Worksheet Function này với . Em bị lỗi ạ.
Em cảm ơn cả nhà:

Sub VlookupOvertime()

Dim sh As Worksheet

Dim i As Long, Lr As Long

Dim Myrange As Range


Set sh = ThisWorkbook.Sheets("LAM THEM")

Set Myrange = sh.Range("N25:O29")

Lr = sh.Range("d" & Rows.Count).End(xlUp).Row

For i = 11 To Lr


sh.Cells(i, 8) = Application.WorksheetFunction.VLookup(Cells(i, 3), Myrange, 2, False)

Next i


End Sub

 

[SA_DQ]

Hãy dịch câu lệnh này sẽ rõ ngay í mà:

Sh.Cells(i, 8) = Application.WorksheetFunction.VLookup(Cells(i, 3), MyRange, 2, False)

Vùng MyRange của bạn là Sh.Range("N25:O29"); Vùng đó chỉ là:

17h00~18h15'	1
17h00~19h45'	1.5
17h00~19h15'	2
17h00~20h00	3
8h00~17h00	8

Vậy thì làm sao có gì mà tra?

 

[VetMini]

Dùng WorkSheetFunction thì phải bẫy lỗi. Trừ những hàm không bao giờ có lỗi.

 

[SA_DQ]

Vấn đề của chủ bài đăng đang là lấy râu ông nọ cắm vô cằm bà kia
Viết chương trình thì bỏ cách dòng (giống như các nhà Hàn lâm về VBA) tự làm khó mình khi kiểm soát chương trình;
Nên không biết đi đâu, về đâu, chứ chưa nói đến chuyện cao cấp khác.
Đang chập chững bò mà đã lo chạy!