V/v tìm kiếm dữ liệu

[tuanxitin]

Dear anh/chị,

Nhờ anh chị xem giúp em đoạn mã, không biết bị lỗi gì
cảm ơn anh chị

 

[HUONGLIEN6577]

của bạn đây.
1. Lỗi do không khai báo biến chạy i Dim i as long
2. Vùng tham chiếu viết liền: .... Sheet2.Range("A2B45") mà phải là Sheet2.Range("A2:B45")
3. khi chay code : i chạy từ 1 --> Cells(1,10) là tiêu đề, khi i đến 5 --> cells(5,10) là ô rỗng, Lỗi hàm Vlookup
Mình sửa lại :
Sub timkiem()
Dim I As Long
Dim d As Integer
With Sheet1
d = .Range("A" & .Rows.Count).End(xlUp).Row

For I = 2 To d
.Cells(I, 34).Value = Application.WorksheetFunction.VLookup(.Cells(I, 10).Value, Sheet2.Range("A2:B45"), 2, True)
Next
End With
End Sub

Bạn cho thêm dòng và chạy thử.

 

[HieuCD]

Dear anh/chị,

Nhờ anh chị xem giúp em đoạn mã, không biết bị lỗi gì
cảm ơn anh chị

của bạn đây.
1. Lỗi do không khai báo biến chạy i Dim i as long
2. Vùng tham chiếu viết liền: .... Sheet2.Range("A2B45") mà phải là Sheet2.Range("A2:B45")
3. khi chay code : i chạy từ 1 --> Cells(1,10) là tiêu đề, khi i đến 5 --> cells(5,10) là ô rỗng, Lỗi hàm Vlookup
Mình sửa lại :
Sub timkiem()
Dim I As Long
Dim d As Integer
With Sheet1
d = .Range("A" & .Rows.Count).End(xlUp).Row

For I = 2 To d
.Cells(I, 34).Value = Application.WorksheetFunction.VLookup(.Cells(I, 10).Value, Sheet2.Range("A2:B45"), 2, True)
Next
End With
End Sub

Bạn cho thêm dòng và chạy thử.

Còn khả năng có thể xảy ra là hàm Vlookup tìm không thấy giá trị dò tìm, thêm lệnh bỏ qua lỗi: On Error Resume Next

 

[tuanxitin]

Còn khả năng có thể xảy ra là hàm Vlookup tìm không thấy giá trị dò tìm, thêm lệnh bỏ qua lỗi: On Error Resume Next

cảm ơn anh

Còn khả năng có thể xảy ra là hàm Vlookup tìm không thấy giá trị dò tìm, thêm lệnh bỏ qua lỗi: On Error Resume Next

cảm ơn anh

 

[HUONGLIEN6577]

Còn khả năng có thể xảy ra là hàm Vlookup tìm không thấy giá trị dò tìm, thêm lệnh bỏ qua lỗi: On Error Resume Next

Cảm ơn anh. tôi lại có thêm kiến thức rồi.