Help me! Lỗi xuất hiện khi sử dụng Application.WorksheetFunction.Vlookup trên VBA (1 người xem)

[laidv11]

Em mới tập mầy mò VBA. Trong quá trình làm báo cáo cho công ty em có sử dụng đoạn code sau. Múc đích là để lấy dữ liệu từ 1 bảng tham chiếu trên 1 file excel khác để cho lắp vào bản báo cáo của công ty.
Tuy nhiên đoạn code ko thực hiện được, lỗi báo tại dòng

Cells(u, 7) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Cells(u, 6), table2015, 3, False), 0) (lỗi 1004, WorksheetFunction Vloop ko thể thực hiện được). (đoạn code em post ở phía dưới)


Mong các anh chỉ giúp cho em với


Sub Market_Segment()


Windows("msgm_m_15.xlsx").Activate
Sheets(1).Activate
Dim table2015 As Range
Set table2015 = Range("A5:O300")


Windows("msgm_mtd_15.xlsx").Activate
Sheets(1).Activate
Dim table2014 As Range
Set table2014 = Range("A5:O300")


Windows("BSC Report November 2015 FSH.xlsm").Activate
Sheets("5.S&M").Activate
Dim u As Integer
For u = 39 To 60
Cells(u, 7) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Cells(u, 6), table2015, 3, False), 0)
Cells(u, 8) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Cells(u, 6), table2015, 6, False), 0)
Cells(u, 11) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Cells(u, 6), table2014, 3, False), 0)
Cells(u, 12) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Cells(u, 6), table2014, 6, False), 0)
Next


End Sub

 

[laidv11]

upppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp

 

[giaiphap]

Up file lên đây xem mới biết nó lỗi do đâu.

 

[laidv11]

Mình đã tìm ra lỗi, lỗi này do cấu tạo của Function Vlookup trong VBA. Khi mình thêm đoạn code On Error Resume Next thì code chạy ngon lành.

 

[nghiaphuc]

Mình đã tìm ra lỗi, lỗi này do cấu tạo của Function Vlookup trong VBA. Khi mình thêm đoạn code On Error Resume Next thì code chạy ngon lành.

Sử dụng câu lệnh On Error Resume Next bạn cần phải cẩn thận, cứ gặp lỗi là bỏ qua thì đôi khi code chạy không đúng kết quả mong đợi đâu. Bạn chỉ nên sử dụng câu lệnh này khi bạn kiểm soát được các lỗi có thể xảy ra trong quá trình chạy code thôi.

 

[laidv11]

Sử dụng câu lệnh On Error Resume Next bạn cần phải cẩn thận, cứ gặp lỗi là bỏ qua thì đôi khi code chạy không đúng kết quả mong đợi đâu. Bạn chỉ nên sử dụng câu lệnh này khi bạn kiểm soát được các lỗi có thể xảy ra trong quá trình chạy code thôi.

Thank bạn, mình cũng test đi test lại nhiều lần để chắc chắn ko bỏ sót công đoạn nào.

Không biết có cách nào để sửa lỗi khi dùng worksheetfunction vlookup trong VBA ko. Mình hay gặp hay lỗi sau
1. Như ở trên, bảng tham chiếu nằm trên 1 file excel khác, mình đặt range bang tham chiếu rồi áp sử dụng worksheet function Vlookup thì bị báo lỗi
2. Thỉnh thoảng trong 1 phép tính là tổng của các formula dưới dạng worksheetfunction vloopkup, tách từng formula ra 1 thì ko có vấn đề nhưng khi cộng vào với nhau thì lại báo lỗi ...