Lọc danh sách tự động theo năm

[kevin_mn]

Lọc dữ liệu theo năm nhưng VBA bị lổi

Mí bác ơi mình có một cái bảng danh sách = Excel. Mình định code cho nó lọc Auto theo năm, Nhưng bị lổi hoài. Chưa làm dc. Máy bác xem file đính kèm và giúp mình với. Thanks Mấy bác nhiều.

 

[tedaynui]

Bạn xem lại, nhào vô bạn cho
Range("A5:G1000").ClearContents
thì nó xoá sạch còn gì đâu mà lọc

Và thêm dòng này nữa
.Resize(, 2).NumberFormat = "yyyy"

TDN

 

[ndu96081631]

Mí bác ơi mình có một cái bảng danh sách = Excel. Mình định code cho nó lọc Auto theo năm, Nhưng bị lổi hoài. Chưa làm dc. Máy bác xem file đính kèm và giúp mình với. Thanks Mấy bác nhiều.

Tôi đoán code này bạn "lượm" ở đâu đó... mang về phải biết biến đổi lại cho phù hợp với dử liệu của mình chứ (code của người khác sao có thể chạy được trên tất cả)
Sửa lại đây:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$2" Then
    With Range("A5").CurrentRegion.Offset(, 1).Resize(, 1)
      .NumberFormat = "yyyy"
      .AutoFilter 1, IIf(Target = "", "<>", Target), , , False
      .NumberFormat = "dd/mm/yyyy"
    End With
  End If
End Sub

Chú ý: Dời dòng tiêu đề lên để sao cho nó cách dử liệu ít nhất 1 dòng trống (mới có thể xài CurrentRegion được)
-------------------
Xin nói thêm: Khi nãy tôi đưa code và file lên, tôi dùng End(xlUp) nhưng sau đó thấy không ổn ---> Vì khi Filter xong thì End(xlUP) sẽ xác định sai dòng cuối cùng ---> Đã sửa lại thành CurrentRegion...
Các bạn xem lại code và file nhé (1 kinh nghiệm đáng giá)

 

[kevin_mn]

Thanks bác ndu96081631 nhiều nhé. Thât ra em cũng hẽm cóa rành về VBA..hì nên lượm làm thử í mà. Học hỏi là chủ yếu. Thanks mí bác nhiều lém.