Nhờ Anh/ Chị chỉ giúp công thức lọc dữ liệu hàng ngày trong 1 tháng qua Sheet mới! (1 người xem)

[zip555]

Cần công thức theo yêu cầu tại Sheet XUAT. Cảm ơn!

 

[SA_DQ]

Công thức thì mình thua!
Thử xem VBA làm việc đó như thế nào!

 

[quanluu]

Cần công thức theo yêu cầu tại Sheet XUAT. Cảm ơn!

Góp vui code #, Bạn gọi sub này trong worksheet_change là ok

Sub Filter()
    Range("A11:R100").ClearContents
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
    Set rs = cn.Execute("SELECT f2,f3,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22 FROM [THANG1$A5:V2696] where f1 = " & Cells(2, 1))
    Range("A11").CopyFromRecordset rs
End Sub

 

[zip555]

Công thức thì mình thua!
Thử xem VBA làm việc đó như thế nào!

Khi mình nhập số liệu ở sheet THANG1 rồi chọn lại ngày ở A2 của sheet XUAT thì báo lổi bạn ah

 

[zip555]

Góp vui code #, Bạn gọi sub này trong worksheet_change là ok

Sub Filter()
    Range("A11:R100").ClearContents
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"";"
    Set rs = cn.Execute("SELECT f2,f3,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22 FROM [THANG1$A5:V2696] where f1 = " & Cells(2, 1))
    Range("A11").CopyFromRecordset rs
End Sub

Đã nhâp code, nhưng chỉ lọc số liệu ngày 01, các ngày khác không tự lọc. Nhờ bạn chỉ giúp!

 

[quanluu]

Đã nhâp code, nhưng chỉ lọc số liệu ngày 01, các ngày khác không tự lọc. Nhờ bạn chỉ giúp!

Bạn đã gọi sub này trong sự kiện worksheet_change chưa? Mà hình như dữ liệu của bạn ngày nào cũng giống nhau, nên bạn k thấy nó thay đổi là đúng rùi

 

[quanluu]

Đã nhâp code, nhưng chỉ lọc số liệu ngày 01, các ngày khác không tự lọc. Nhờ bạn chỉ giúp!

Bạn đã gọi sub này trong sự kiện worksheet_change chưa? Mà hình như dữ liệu của bạn ngày nào cũng giống nhau, nên bạn k thấy nó thay đổi là đúng rùi

 

[zip555]

Mình đã nhập và test thữ nhưng chỉ lọc được ngày 01. Ngày 02 thì không lọc được. Dữ liệu của mình đang để test là ngày 01 02 03 khác nhau .

 

[zip555]

Dùng hàm IF+ Vlookup có được không bạn? Vì mình không biết viết code

 

[quanluu]

Có vẻ bạn ko rành cde lắm, nên bạn coi file.