quyenpv
Thu nhặt kiến thức
- Tham gia
- 5/1/13
- Bài viết
- 709
- Được thích
- 90
- Giới tính
- Nam
- Nghề nghiệp
- Decode cuộc đời!
Hiện tại em đang có bảng dữ liệu theo dõi công việc em muốn lọc trong khoảng thời gian từ đầu tháng đến cuối tháng theo biến fDay, eDay và cột tùy ý nhập vào. Tuy nhiên không hiểu sai ở đâu mà dữ liệu lọc lại không ra được kết quả, mong anh chị xem và chỉ giúp chỗ sai ạ
Em cám ơn
Em cám ơn
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
Dim lr As Long
Dim fDay As Date, eDay As Date
With Sheets("Data")
fDay = .Range("F2").Value
eDay = .Range("H2").Value
If fDay = Empty Then fDay = DateValue("1000/1/1")
If eDay = Empty Then eDay = DateValue("2100/1/1")
End With
lr = Range("B" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("B4:I4")) Is Nothing Then
If Target.Value <> Empty Then
'MsgBox fDay
'Range("A5:U" & lr).AutoFilter Field:=Target.Column, Criteria2:="*" & Cells(4, Target.Column) & "*" , Operator:=xlAnd
Range("A5:I" & lr).AutoFilter Field:=2, Criteria1:=">=" & CDbl(fDay)
Range("A5:I" & lr).AutoFilter Field:=Target.Column, Criteria2:="*" & Cells(4, Target.Column) & "*" ', Operator:=xlAnd
Else
ShowAllData
End If
End If
End Sub