lỗi method range of object _worksheet failed

[HienPr_Nguyen]

e có viết đoạn code để tìm kiếm dữ liệu và bị lỗi method range of object _worksheet failed
Sub Serch()
Dim ws As WorksheetFunction
Dim i, a, b, c As Integer
Dim rng As Range
Set ws = Application.WorksheetFunction
With Sheet6
For i = 3 To 79 Step 1
a = .Range("E" & i).Value
b = .Range("F" & i).Value
c = ws.Match(.Range("G2").Value, Sheet2.Range("C" & a & ":C" & b), 0)
.Range(Cells(i, 7)).Value = ws.VLookup(.Range("G2").Value, Sheet2.Range("C" & a & "" & b), 14, 0)
'.Range(Cells(i, 7)).Value = ws.Index(Sheet2.Range("P" & a & "" & b), c, 1)
Next i
End With
End Sub

nhờ các bác trên diễn đàn xem giúp e nó sai ở đâu với ạ. cám ơn ad duyệt bài ạ!

 

[ho van luong]

e có viết đoạn code để tìm kiếm dữ liệu và bị lỗi method range of object _worksheet failed
Sub Serch()
Dim ws As WorksheetFunction
Dim i, a, b, c As Integer
Dim rng As Range
Set ws = Application.WorksheetFunction
With Sheet6
For i = 3 To 79 Step 1
a = .Range("E" & i).Value
b = .Range("F" & i).Value
c = ws.Match(.Range("G2").Value, Sheet2.Range("C" & a & ":C" & b), 0)
.Range(Cells(i, 7)).Value = ws.VLookup(.Range("G2").Value, Sheet2.Range("C" & a & "" & b), 14, 0)
'.Range(Cells(i, 7)).Value = ws.Index(Sheet2.Range("P" & a & "" & b), c, 1)
Next i
End With
End Sub

nhờ các bác trên diễn đàn xem giúp e nó sai ở đâu với ạ. cám ơn ad duyệt bài ạ!

Sai ở chổ: .Range(Cells(i,7)).value.... Sửa đoạn này là chạy.

 

[SA_DQ]

@Chủ bài đăng: Ngoài lề 1 chút:
→ Các dòng lệnh của macro nên bỏ vô thẻ [ PHP] . . .[ /Php] hay [ Code]. . . [/ code] cho dẽ nhìn với tất thẩy mọi người;
→ Tên các tham biến nên tượng hình hơn, ví dụ Dim Dg As Long thay vì các tham biến i, a, b, . . của bạn;
Tên tham biến nên có ký tự hoa chen lẫn, như Dim wF As Object,. . . .
Chúng là những chú ý nho nhỏ nhưng là thói quen tốt từ nay về sau cho bạn & cả cho tôi. . .

Chúc tốt lành!

 

[HienPr_Nguyen]

Sai ở chổ: .Range(Cells(i,7)).value.... Sửa đoạn này là chạy.

Cám ơn bác nhé. Mình sửa đủ kiểu r mà vẫn ko đc, mới tập tành VBA bác ạ

Bài đã được tự động gộp: 4/8/23

@Chủ bài đăng: Ngoài lề 1 chút:
→ Các dòng lệnh của macro nên bỏ vô thẻ [ PHP] . . .[ /Php] hay [ Code]. . . [/ code] cho dẽ nhìn với tất thẩy mọi người;
→ Tên các tham biến nên tượng hình hơn, ví dụ Dim Dg As Long thay vì các tham biến i, a, b, . . của bạn;
Tên tham biến nên có ký tự hoa chen lẫn, như Dim wF As Object,. . . .
Chúng là những chú ý nho nhỏ nhưng là thói quen tốt từ nay về sau cho bạn & cả cho tôi. . .

Chúc tốt lành!

Cám ơn bác đã góp ý ạ

Bài đã được tự động gộp: 4/8/23

Sai ở chổ: .Range(Cells(i,7)).value.... Sửa đoạn này là chạy.

Nó ko hiểu vùng tìm kiếm hàm INDEX phải ko ạ.?

 

[ptm0412]

Nó ko hiểu vùng tìm kiếm hàm INDEX phải ko ạ.?

Range là range, mà cells là cells, không xài cùng lúc 2 cái cho 1 ô.
Nếu trong range có cells, thì phải có 2 cells: 1 cells đầu range và 1 cells cuối range

 

[HienPr_Nguyen]

Range là range, mà cells là cells, không xài cùng lúc 2 cái cho 1 ô.
Nếu trong range có cells, thì phải có 2 cells: 1 cells đầu range và 1 cells cuối range

Cám ơn bạn nhiều ạ.

 

[truongvu317]

method range of object _worksheet failed

Sheet6.Cells(i, 7).Value = ws.Index(Sheet2.Range("P" & a & ":P" & b), c, 1)

Bạn thử như này xem được không.

 

[HienPr_Nguyen]

Sheet6.Cells(i, 7).Value = ws.Index(Sheet2.Range("P" & a & "" & b), c, 1)

Mình cũng dùng INDEX rồi mà cũng lỗi như vậy b ạ

 

[ho van luong]

Cám ơn bác nhé. Mình sửa đủ kiểu r mà vẫn ko đc, mới tập tành VBA bác ạ

Bài đã được tự động gộp: 4/8/23

Cám ơn bác đã góp ý ạ

Bài đã được tự động gộp: 4/8/23

Nó ko hiểu vùng tìm kiếm hàm INDEX phải ko ạ.?

Tôi chỉ biết sai cú pháp ở chổ này: .Range(Cells(i, 7)).Value = ws.VLookup...... Thay bằng: .Cells(i,7).Value=ws.VLookup.....là có chạy. Còn bạn đang làm gì, kết quả đúng hay không thưc tình tôi không biết.