[GỠ RỐI ] lỗi code (1 người xem)

[quoc_huy1702]

Xin chào mọi người

Mình có file excel dùng để theo dõi hàng hóa;

và Code lọc thông tin chưa giao hàng, từ sheet số liệu thông qua 1 biến tạm để trích xuất 1 số ô thông tin cần thiết.

Lúc trước code sử dụng bình thường. lâu nay vẫn sử dụng tốt; không hiểu sao 2 ngày gần đây code ko hoạt động

Mọi người xem giúp

Code đang dùng

Public Sub Chua_GH_Sub()Dim Rng(), Arr(), I As Long, K As Long, Tem As Long
Dim example As Range
Set example = Range("A5:h500")
example.ClearContents
With Sheets("Slieu")
    Rng = .Range(.[C14], .[C65000].End(xlUp)).Resize(, 37).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 8)
    For I = 1 To UBound(Rng, 1)
        Tem = Rng(I, 11) - Rng(I, 12)
        If Tem > 0 Then
            K = K + 1
            Arr(K, 1) = Rng(I, 4): Arr(K, 2) = Rng(I, 1)
            Arr(K, 3) = Rng(I, 3): Arr(K, 4) = Rng(I, 5)
            Arr(K, 5) = Rng(I, 6): Arr(K, 8) = Tem
        End If
    Next I
If K Then Sheets("Chua giao hang").[A5].Resize(K, 8).Value = Arr
End Sub