Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$20" Or Target.Address = "$F$20" Then
With Range("A22").CurrentRegion
.Offset(, 1).Resize(, 1).NumberFormat = "yyyy"
.AutoFilter 2, IIf([b20] = "", "<>", [b20])
.AutoFilter 6, IIf([f20] = "", "<>", [f20])
.Offset(, 1).Resize(, 1).NumberFormat = "dd/mm/yyyy"
End With
End If
End Sub
Nếu dùng PivotTable và PivotChart thì sao sư phụ ơi!Xem file đây, đã nói là coi chừng dòng trống rồi mà.
Dĩ nhiên là ngon rồi. Nhưng chủ topic thích thế, kể cả code Autofilter cũng đã là thừa. Vì chọn validation thì cũng bằng chọn trong Autofilter.Nếu dùng PivotTable và PivotChart thì sao sư phụ ơi!
Em nghĩ có khi lại ngon lành hơn (vì khỏi viết code)
Ẹc... Ẹc...Dĩ nhiên là ngon rồi. Nhưng chủ topic thích thế, kể cả code Autofilter cũng đã là thừa. Vì chọn validation thì cũng bằng chọn trong Autofilter.
Làm thử 1 cái Pivot chart luôn nè