Code không chạy khi số dòng tăng lên (3 người xem)

[quynhace]

Chào cả nhà,
Mình có 1 đoạn code trong file dữ liệu đang dùng rất tốt, nhưng khi mình điền số liệu đến dòng số 1045 thì nó không lọc nữa. Các bạn chỉ và sửa lại giúp mình với nhé.

Sub Loc()
Application.ScreenUpdating = False
Dim I As Long, J As Long, K As Long, Clls As Range, Tong As Double
Dim sArr(), dArr()
sArr = Sheets("Tong Hop Bao Gia").[D8:AR2000].Value
ReDim dArr(1 To UBound(sArr), 1 To 8)
Tong = 0
For I = 1 To UBound(sArr)
If sArr(I, 1) = Sheets("Bao Gia").[E9].Value Then
K = K + 1
Tong = Tong + (sArr(I, 10) * sArr(I, 20))
dArr(K, 1) = K
dArr(K, 2) = sArr(I, 8)
dArr(K, 3) = sArr(I, 9)
dArr(K, 4) = sArr(I, 11)
dArr(K, 5) = sArr(I, 10)
dArr(K, 6) = sArr(I, 20)
dArr(K, 7) = sArr(I, 10) * sArr(I, 20)
dArr(K, 8) = sArr(I, 34)
End If

 

[thanhsangnguyen1982]

Gửi file lên đi bạn mọ người mới giúp được

 

[quynhace]

Mình đã gửi file đính kèm trong bài 1 rồi bạn thanhsangnguyen1982 à.
Bạn và mọi người giúp mình với nhé.
Rất cảm ơn bạn và mọi người.

 

[hoamattroicoi]

Mình đã gửi file đính kèm trong bài 1 rồi bạn thanhsangnguyen1982 à.
Bạn và mọi người giúp mình với nhé.
Rất cảm ơn bạn và mọi người.

Code này trông quen quen, nội dung file này trông cũng quen quen nhưng mà hỏng biết là của ai, hiiiii. Hình như đoạn code bạn đưa lên không bị lỗi mà đang bị lỗi khi chọn dữ liệu ở D4 sheet PTDH thì phải??? Bạn kiểm tra lại công thức ô F3, G3, cột C của sheet Tong Hop Bao Gia nhé, nó đang bị lỗi đó (lỗi #REF), kiểm tra lại công thức D3 và D4 sheet PTDH nữa nhé vì bị lỗi nên Sub PTDH() đang báo lỗi Type Mismatch.

 

[quynhace]

Các ô đó cũng không có giá trị gì trong phần chạy code đâu Hoamattroicoi à, phần trên mình sử dụng hàm vlookup để hoàn thiện. Mình đã xóa các ô đó đi và update lại file rồi.
Hoamattroicoi thấy file này quen quen là đúng đó, trước đây mình có được bạn giúp mình mà hiiiiii.
Mọi người giúp mình với nhé.

 

[quynhace]

Ồ, cảm ơn Hoamattroicoi đã nhắc nhở mình, đúng là mình để lỗi phần đó nên code không chạy được.
Mình đã làm được rồi. Cảm ơn bạn lần nữa nhé.