Date Range Filter (Start Date to End Date)

[SaurabhPandit]

Hello Everyone,
I am a little bit struggling to put a date range filter in VBA. There are total of 3 sheets. One is Summary where I want to put start date(e5) and End date(g5). All data is in a Lithology sheet which I need to filter. And Sheet LithoFilter is where I want to paste filtered data.
Where I am going wrong? Can anyone help me with this?
Thank You


Sub AllGeoFileter()
Sheets("Lithology").Select
Range("A1:BZ50000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
>=sheets ("Summary").Range("e5"), Operator:=xlAnd, Criteria2:= <=sheets ("Summary").Range("f5")
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("LithoFilter").Select
Range("a1").Select
Selection.PasteSpecial xlPasteValues
End Sub

 

[kokano90]

Range("A1:BZ50000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
>=sheets ("Summary").Range("e5"), Operator:=xlAnd, Criteria2:= <=sheets ("Summary").Range("f5")

 

[SaurabhPandit]

View attachment 55400

Are you suggesting this?

Range("A1:BZ50000").AdvancedFilter xlFilterInPlace, CriteriaRange:= _
Criteria1:=>=sheets ("Summary").Range("e5"), Operator:=xlAnd, Criteria2:= <=sheets ("Summary").Range("f5")

Still not working showing red colour for these two lines.

 

[kokano90]

Bạn đang gợi ý điều này?

Phạm vi ("A1: BZ50000"). AdvancedFilter xlFilterInPlace, CriteriaRange: = _
Criteria1: => = sheet ("Summary"). Range ("e5"), Toán tử: = xlAnd, Criteria2: = <= sheet ("Summary"). Range ("f5")

Vẫn không hoạt động hiển thị màu đỏ cho hai dòng này.

in the region a to z. which column is specified with the other filter condition. And after filtering, where do you take it?

 

[SaurabhPandit]

in the region a to z. which column is specified with the other filter condition. And after filtering, where do you take it?

Hi, In a to z region, it is in column G. And after filtering the data I am copy and pasting it into a different sheet naming "AllGeoFilter".

 

[kokano90]

the original spreadsheet was named "Summary"

Hi, In a to z region, it is in column G. And after filtering the data I am copy and pasting it into a different sheet naming "AllGeoFilter".

 

[SaurabhPandit]

the original spreadsheet was named "Summary"

This is the sheet where the date range is

and below one is the sheet in same file where the data is need to filter .

after filtering the data it will stored in sheet AllGeoFilter.

 

[kokano90]

Sheet data

sheet result

code