Formula for filtering data with Names , Month and Weeks

[maabadi]

Hi
I have information in one sheet. I want to filter them with formula 3 times.
1. with Card No.
2. With Month
3. With Week
and the last, I have personal report for one month or Week

Row No.	Card No.	Card&Row No.	First Name	Last Name	Date	Week Day	Input Time	Output Time	Presence Time	Charged Sentry	Total days Report
1	100	100001	Mohammad	Ahmadi	3/20/2014	Thursday	10:58:00	22:15:00	11:17:00	Sunday Shift 4	1
2	100	100002	Mohammad	Ahmadi	3/23/2014	Sunday	10:25:00	15:00:00	04:35:00	Sunday Shift 4	1
3	100	100003	Mohammad	Ahmadi	3/28/2014	Friday	10:00:00	16:00:00	06:00:00	Sunday Shift 4	1
4	100	100004	Mohammad	Ahmadi	3/31/2014	Monday	13:00:00	17:00:00	04:00:00	Sunday Shift 4	1
5	100	100005	Mohammad	Ahmadi	4/1/2014	Tuesday	12:00:00	15:00:00	03:00:00	Sunday Shift 4	1
6	100	100006	Mohammad	Ahmadi	4/3/2014	Thursday	09:40:00	21:00:00	11:20:00	Sunday Shift 4	1
1	102	102001	Qasem	Saadatvand	3/29/2014	Saturday	11:20:00	15:00:00	03:40:00	Saturday Shift 3	1
2	102	102002	Qasem	Saadatvand	3/30/2014	Sunday	11:00:00	15:30:00	04:30:00	Saturday Shift 3	1
3	102	102003	Qasem	Saadatvand	3/31/2014	Monday	11:00:00	15:00:00	04:00:00	Saturday Shift 3	1
4	102	102004	Qasem	Saadatvand	4/1/2014	Tuesday	11:00:00	14:30:00	03:30:00	Saturday Shift 3	1
5	102	102005	Qasem	Saadatvand	4/2/2014	Wednesday	11:00:00	15:20:00	04:20:00	Saturday Shift 3	1
1	103	103001	Yunes	Abbasi	3/23/2014	Sunday	11:45:00	15:00:00	03:15:00	Tuesday Shift 2	1
2	103	103002	Yunes	Abbasi	3/25/2014	Tuesday	11:15:00	15:20:00	04:05:00	Tuesday Shift 2	1
1	105	105001	Yusef	Pourizad	4/3/2014	Thursday	11:00:00	14:00:00	03:00:00	Tuesday Shift 2

<tbody>
</tbody>

I Know, I can do this with filter Option. Is it possible with Formulas?

Thanks,
Maabadi

 

[ttray33y]

quick and dirty with advance filter

N

O

P

Q

R

S

T

U

V

W

X

Y

1

INPUT CRITERIA

INPUT CRITERIA

INPUT CRITERIA

2

Date

Card No.

Week Day

3

=IF(N1="",">1",">" &N1)

=IF(O1="","*",O1)

=IF(P1="","*",P1)

<tbody>
</tbody>

Go to VB and insert these codes to a module.

Sub FilterData()

    ActiveWindow.SmallScroll Down:=-21
    Sheet1.Range("A2").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("N2:P3"), CopyToRange:=Range("N6:Y6"), Unique:=False
End Sub


Sub ClearData()

Dim ws As Worksheet
Set ws = Sheet1
ws.Range("N1:P1").ClearContents
With ws.Range("N7:Y10000")
.Borders.LineStyle = xlNone
.ClearContents
End With

End Sub

& insert two buttons or shapes in your sheet then assign macro to each one.