Lọc dữ liệu Công văn đến (1 người xem)

[longriver28284]

Mình có file Excel đính kèm. Làm thế nào để ở sheet thống kê, nhập một khoảng thời gian từ ngày...đến ngày thì các dòng ở sheet Den có giá trị Ngày đến nằm trong khoảng thời gian đó sẽ được điền vào tự động vào Sheet Thong ke. VD: trong file mình điền từ ngày 20/11/2010 đến ngày 27/11/2010 sẽ có 7 dòng được điền vào. Rất mong các bạn giúp đỡ.

 

[concogia]

Mình có file Excel đính kèm. Làm thế nào để ở sheet thống kê, nhập một khoảng thời gian từ ngày...đến ngày thì các dòng ở sheet Den có giá trị Ngày đến nằm trong khoảng thời gian đó sẽ được điền vào tự động vào Sheet Thong ke. VD: trong file mình điền từ ngày 20/11/2010 đến ngày 27/11/2010 sẽ có 7 dòng được điền vào. Rất mong các bạn giúp đỡ.

Cái này có thể dùng sự kiện sheet cũng được nhưng mình tạo nút lọc cho an toàn hơn
Thân

 

[Nguoiay]

Em dùng sự kiện change:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$2" Then
        Loc
    End If
End Sub

và:..

Sub Loc()
  Range("A5:I1000").Clear
  With Sheets("Den").Range("A4:I1000")
    .AdvancedFilter 2, Range("M1:N2"), Range("A4")
  End With
End Sub

Nhưng không hiểu lỗi gì mà vẫn không chạy được?
AC chỉ dùm em chỗ sai nhé!

 

[ptm0412]

Sub Loc()
Dim EndR As Long
  Range("A5:I1000").Clear
  With Sheets("Den")
  EndR = .[a1000].End(xlUp).Row - 2
  .Range("A[B][COLOR=red]3[/COLOR][/B]:I" & EndR).AdvancedFilter 2,  Range("M1:N2"), Range("a[B][COLOR=red]3:I3[/COLOR][/B]")
  End With
End Sub

Xem những chỗ tô đỏ. Quá cơ bản.

 

[Nguoiay]

Em sửa lại:

Sub Loc()
  Dim ws As Worksheet
  Dim i As Long
  Set ws = Sheets("Den")
  i = ws.Range("A65535").End(xlUp).Row - 2
  Range("A5:I1000").Clear
  With ws
    .Range("A3:I" & i).AdvancedFilter 2, Range("M1:N2"), Range("A3:I3")
  End With
  Set ws = Nothing
End Sub

 

[Nguoiay]

Sub Loc()
Dim EndR As Long
Range("A5:I1000").Clear
With Sheets("Den")
EndR = .[a1000].End(xlUp).Row - 2
.Range("A[B][COLOR=red]3[/COLOR][/B]:I" & EndR).AdvancedFilter 2, Range("M1:N2"), Range("a[B][COLOR=red]3:I3[/COLOR][/B]")
End With
End Sub

Xem những chỗ tô đỏ. Quá cơ bản.

Có lần em làm cách trên cũng chạy tốt lắm mà. Không hiểu sao lần này lại...Hi..hi.....

 

[longriver28284]

Cảm ơn mọi người nhiều lắm, mình làm được rồi.

 

[ptm0412]

Có lần em làm cách trên cũng chạy tốt lắm mà. Không hiểu sao lần này lại...Hi..hi.....

Advanced filter không đời nào chạy tốt, thậm chí chạy không ra kết quả gì nếu không tóm luôn dòng tiêu đề vào vùng dữ liệu.

Vùng dữ liệu không tiêu đề trong khi vùng điều kiện có tiêu đề, thì đến khi nào mới thoả điều kiện?

Không thoả điều kiện mà cứ ép nó copy, thì chỉ được "dòng tiêu đề", do từ đầu không gộp tiêu đề vào, anh Bill lấy dòng dữ liệu đầu tiên làm dòng tiêu đề.

 

[longriver28284]

Mình đã là được nhưng vẫn còn có lỗi. Nếu nhập vào ngày 30/10/2010 đến 30/11/2010 thì lại không thể lọc được.

 

[Nguoiay]

Mình đã là được nhưng vẫn còn có lỗi. Nếu nhập vào ngày 30/10/2010 đến 30/11/2010 thì lại không thể lọc được.

Bạn xem đây nhé! Mình thấy có lỗi gì đâu?

 

[longriver28284]

Cái này có thể dùng sự kiện sheet cũng được nhưng mình tạo nút lọc cho an toàn hơn
Thân

Bạn xem lại hộ mình với, mình nhập ngày như trong file đính kèm nhưng không thống kê được, phần tổng số cũng hiện sai kết quả nữa. Giúp mình với nhé

 

[ptm0412]

Cột A sheet đến, và 2 ô D2, F2 không phải là ngày tháng thì làm sao so sánh trong filter.
- Sửa tất cả lại thành ngày tháng, sao cho không cần canh mà tự động chạy qua phải.
- Sửa thêm câu này của code

.AutoFilter 1, ">=" & Range("D2").Value, , "<=" & Range("F2").Value

Thành

.AutoFilter 1, ">=" & Range("D2").Value2, , "<=" & Range("F2").Value2

 

[concogia]

Bạn xem lại hộ mình với, mình nhập ngày như trong file đính kèm nhưng không thống kê được, phần tổng số cũng hiện sai kết quả nữa. Giúp mình với nhé

"Só- zì" mình nhầm file, quên nhắc bạn dữ liệu ngày nhập phải đúng định dạng (trong file định dạng là Text)
Thân