Giúp em làm báo cáo đến hạn (1 người xem)

[bipbo2008]

em có một file báo cáo này

dư liệu ở sheet 2

Tại sheet 1 : làm thế nào để sao kê, lọc ra được các tài khoản đến hạn (ngày đến hạn)
trong vòng 03 ngày kể từ ngày hiện tại hiện ra được các khách hàng đến hạntài khoản với đầy đủ các cột tại sheet 2

 

[Ba Tê]

em có một file báo cáo này

dư liệu ở sheet 2

Tại sheet 1 : làm thế nào để sao kê, lọc ra được các tài khoản đến hạn (ngày đến hạn)
trong vòng 03 ngày kể từ ngày hiện tại hiện ra được các khách hàng đến hạntài khoản với đầy đủ các cột tại sheet 2

Code này cho Sheet1:

Private Sub Worksheet_Activate()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Tem As Long
With Sheet2
    Rng = .Range(.[A5], .[A65000].End(xlUp)).Resize(, 8).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 8)
    For I = 1 To UBound(Rng, 1)
        If Rng(I, 7) >= Date - 3 Then
            K = K + 1: Arr(K, 1) = K
            For J = 2 To 8
                Arr(K, J) = Rng(I, J)
            Next J
        End If
    Next I
With Sheet1
    .[A5:H100].ClearContents
    If K Then .[A5].Resize(K, 8).Value = Arr
End With
End Sub

Hoặc mở sheet3 xem công thức

 

[bipbo2008]

Ui cám ơn bác

đúng nhu cầu của em

Bác làm ơn giúp em thêm một tí nữa có được không.

Em muốn làm như cái chen code của bác. nhưng noob nên ko làm được.

Cái file em gửi là cái fle mẫu, cái file em muốn làm nó lại có thêm mấy cái cột thừa ra. mà em lại ko muốn mỗi lần làm lại phải cắt đi.

vì vậy bác có thể giúp em - hướng dẫn cho em làm thế nào để làm được như vậy- ý là chỉ cho em cách chèn code vào và sửa lại code như thế nào để lấy được nội dung cột em cần lấy và điều kiện vẫn như vây.

 

[bipbo2008]

Bác Ba Tê ơi làm ơn giúp em với a

 

[bipbo2008]

Bác bate ơi sao hôm nay (07/11/2012) em mở file lên thì nó vẫn sao kê các tài khoản đã quán hạn ( vidụ ngày05/11/2012). Bác có thể sửa lại code cho em là chỉ sao kê tài khoản đến hạn trong vòng 03 ngày ko