Khắc phục thứ tự sau khi trích lọc bị đảo lộn so với số liệu ban đầu (1 người xem)

[quoc_huy1702]

Chào mọi người e đang dùng vba lọc dữ liệu chưa thanh toán.

Điệu kiện là: Dựa trên số thanh toán > 0 thì lấy dữ liệu các cột còn lại qua sheet "chua thanh toan"

Khi dữ liệu lúc đầu thì code chạy bình thường; chỗ cột Số INVOICE giá trị sau trích lọc khớp số Hợp đồng

Nhưng bây giờ ko hiểu sao khi chạy thì tổng số tiền chưa thanh toán vẫn đúng; mà cái số inoive hiện ra trật lất thứ tự

Đáng lẽ phải nằm ở chỗ này thì nó lại nhảy chổ khác;

Public Sub Chua_TT_sub()
Dim Rng(), Arr(), i As Long, k As Long, Tem2 As Long
Dim example As Range
Set example = Range("A5:H500")
example.ClearContents
With Sheets("Slieu")
    Rng = .Range(.[A14], .[A65000].End(xlUp)).Resize(, 37).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 7)
    For i = 1 To UBound(Rng, 1)
         Tem2 = Rng(i, 33)
        If Tem2 > 0 Then
            k = k + 1
            Arr(k, 1) = Rng(i, 6): Arr(k, 2) = Rng(i, 3)
            Arr(k, 3) = Rng(i, 5): Arr(k, 4) = Rng(i, 7)
            Arr(k, 5) = Rng(i, 8): Arr(k, 6) = Rng(i, 33)
            Arr(k, 7) = Rng(i, 1)
        End If
    Next i
If k Then Sheets("Chua thanh toan").[A5].Resize(k, 7).Value = Arr
End Sub

File download
http://www.mediafire.com/view/?v1e81bt3jqf7911

Nhờ a chị giúp

 

[quoc_huy1702]

Có ai thấy có gì sai trong code hay là cách tổ chức dữ liệu dẫn đến bị hiện ko chính xác như vậy ko?