Không cần cột phụ đâu... cũng không công thức luônThường thì dùng thêm cột phụ, như trong bài của bạn tại D2=month(C2) rồi copy xuống, sau đó dùng chức năng Filter để lọc.
Select tất cả là thế nào? ---> Copy rồi cứ Paste sang nơi khác xem (làm xong mới nói)Nhưng nếu dùng thêm cột phụ và dùng filter, khi lọc ra được rồi, Em chọn copy thì nó bị select tất cả hết. Có cách nào không dùng cột phụ không bác ?
Bạn xem bài Lọc này nhé, tớ "lớn dần" từ dạng bài này đấy, thân!Nhưng nếu dùng thêm cột phụ và dùng filter, khi lọc ra được rồi, Em chọn copy thì nó bị select tất cả hết. Có cách nào không dùng cột phụ không bác ?
Bạn xem bài Lọc này nhé, tớ "lớn dần" từ dạng bài này đấy, thân!
Các bác cho em hỏi làm thế nào để lọc lấy dữ liệu theo từng tháng?
DK=IF(MONTH(Sheet1!$B$2:$B$124)=Sheet1!$D$2,ROW(Sheet1!$B$2:$B$124))
Bạn xem file xem sao rồi tính tiếp nhéTrong trường hợp muốn lọc theo 2 điều kiện thì làm thế nào ạ ? Em gửi các bác file mẫu các bác xem giúp em nhé.
Cái bảng gì mà nhiều cột thế. Nếu chỉ có năm sinh 1981 thì làm sao biết sinh tháng nào.Mình có một file này mong các bác giúp lọc sinh nhật trong tháng nhưng lấy nhiều điều kiện (số thẻ, họ tên, bộ phận, ngày vào nữa). Mình nghiên cứu mãi các ví dụ của mọi ngừoi ở trên nhưng không làm được.
Cảm ơn nhiều
Đồng ý là AutoFilter có thể lọc theo tháng, theo năm mà không cần cột phụ, nhưng với điều kiện dử liệu phải đồng nhấtChào ThuNghi
Đây là danh sách công nhân của nhà máy mình, mình nhập dữ liệu vào tất cả sheet này và mình lọc thông tin sang từng sheet khác nhau. Từ trước đến nay mình toàn thêm cột phụ dùng công thức month(..), rồi sau đó mình dùng autofiler. Nhưng mình đọc các ví dụ trên, thấy không cần dùng cột phụ, mà lập một sheet riêng, cứ đến tháng kích vào số tháng là sổ ra một danh sách sinh nhật trong tháng- thấy đã thích rồi. Bạn giúp mình cho trót đi.
cám ơn nhiều
Code cũng chỉ có vầy thôi:mình đã sửa lại file rồi, các bạn giúp mình nha
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
Range("A4:H1000").ClearContents
With Sheet1.Range(Sheet1.[N4], Sheet1.[N65536].End(xlUp))
.NumberFormat = "mm"
.AutoFilter 1, IIf(Target = "", "=", Format(Target, "00"))
Union(.Offset(1, -13).Resize(, 2), .Offset(1, -8), .Offset(1, -4).Resize(, 5)).Copy
Range("A4").PasteSpecial 3
.AutoFilter
.NumberFormat = "dd/mm/yyyy"
End With
Target.Select
End If
End Sub