
SunnyKow
Puchong, Malaysia
VIP
Members

Trusted Members

Trusted Members

Forum Posts: 1432
Member Since:
June 25, 2016
June 25, 2016


SunnyKow
Puchong, Malaysia
VIP
Members

Trusted Members

Trusted Members

Forum Posts: 1432
Member Since:
June 25, 2016
June 25, 2016


SunnyKow
Puchong, Malaysia
VIP
Members

Trusted Members

Trusted Members

Forum Posts: 1432
Member Since:
June 25, 2016
June 25, 2016

Hi David
You did not mention which column is the date to filter. I am assuming it to be column W so change it to suit your needs.
Sub FilterByDate()
Dim ColumnNo As Long
'Change to which column with date to filter
ColumnNo = 23 '(this is column W)
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=ColumnNo, Criteria1:=">=" & CLng(Date - 1), Operator:=xlAnd, Criteria2:="<=" & CLng(Date)
End Sub
Sunny
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Kelly Andrews, Albert Hislop
Guest(s) 8
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 873
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 222
Jessica Stewart: 218
A.Maurizio: 202
Aye Mu: 201
jaryszek: 183
Newest Members:
Charles DeGraffenreaid
Cathi Giard
Sarah Young
Henry Delgado
Alita Nieuwoudt
KL KOH
Joao Marques
Regi Hampton
Taffie Elliott
Paramita Chakraborty
Forum Stats:
Groups: 3
Forums: 24
Topics: 6359
Posts: 27806
Member Stats:
Guest Posters: 49
Members: 32336
Moderators: 3
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: MOTH Support, Velouria, Riny van Eekelen
© Simple:Press —
