[Gỡ rối] Không hiểu lý do code lâu nay sử dụng tốt, tự nhiên ko hoạt động nữa

[quoc_huy1702]

Xin chào mọi người

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

Dựa trên thông tin cơ bản trên sheet solieu , 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

[/COLOR]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[COLOR=#000000]

Link file
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=107364&d=1376369924

 

[ndu96081631]

Xin chào mọi người

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

Dựa trên thông tin cơ bản trên sheet solieu , 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

Bạn nói "lâu nay vẫn sử dụng tốt" à? Tôi không tin!
Này nhé:
Tem = Rng(I, 11) - Rng(I, 12)
Mà Rng được xác định bởi:

With Sheets("Slieu")
    Rng = .Range(.[C[COLOR=#ff0000]14[/COLOR]], .[C65000].End(xlUp)).Resize(, 37).Value
End With

Với dòng đầu tiên của Rng (dòng 14) là tiêu đề (dạng chuổi). Vậy thì làm sao Rng(I, 11) có thể trừ với Rng(I, 12) được (chuổi trừ chuổi à)
Có chăng vầy mới được:

With Sheets("Slieu")
    Rng = .Range(.[C[COLOR=#ff0000]15[/COLOR]], .[C65000].End(xlUp)).Resize(, 37).Value
End With

 

[mhung12005]

Xin chào mọi người

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

Dựa trên thông tin cơ bản trên sheet solieu , 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

Link file
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=107364&d=1376369924

Mình đoán là bạn đã insert thêm dòng và thêm cột ở sheet Slieu nên code chạy lỗi. Muốn sửa được thì phải biết yêu cầu lọc như thế nào chứ. Nếu không kq code trả về sẽ không chính xác.

 

[quoc_huy1702]

cám ơn thầy ndu96081631
em sửa lại theo gợi ý. code đã hoạt động như ý muốn rồi