ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   VBA for Date custom Filter (https://www.excelbanter.com/excel-discussion-misc-queries/210723-vba-date-custom-filter.html)

Ailish

VBA for Date custom Filter
 
Hi

I am using Excel 2003 and what to do a custom filter on a date range through
VBA.

I am using the code below but when I look at the sheet no data is displayed
if I look at the custom filter option on the field the setting are there and
if I click on OK the data will then display. It is like the custom filter
through the code is not be executed / refreshed but the criteria is going
into the correct place.

Sub DateFilter()
vFilter = Range("DateAssigned").Value
vFilter2 = Range("DateAssigned2").Value
Sheets("DCR").Select
Selection.AutoFilter Field:=2, Criteria1:="=" & Format(vFilter,
"dd/mm/yyyy"), Operator:= _
xlAnd, Criteria2:="<=" & Format(vFilter2, "dd/mm/yyyy")
End sub

Thanks
Ailish

Daniel.C[_2_]

VBA for Date custom Filter
 
Hi.
Change your formats to "mm/dd/yyyy", whatever the displayed format.
HTH
Daniel

Hi

I am using Excel 2003 and what to do a custom filter on a date range through
VBA.

I am using the code below but when I look at the sheet no data is displayed
if I look at the custom filter option on the field the setting are there and
if I click on OK the data will then display. It is like the custom filter
through the code is not be executed / refreshed but the criteria is going
into the correct place.

Sub DateFilter()
vFilter = Range("DateAssigned").Value
vFilter2 = Range("DateAssigned2").Value
Sheets("DCR").Select
Selection.AutoFilter Field:=2, Criteria1:="=" & Format(vFilter,
"dd/mm/yyyy"), Operator:= _
xlAnd, Criteria2:="<=" & Format(vFilter2, "dd/mm/yyyy")
End sub

Thanks
Ailish




Ailish

VBA for Date custom Filter
 
Hi Daniel

I have the format on the criteria areas as I am in Ireland the dd/mm/yyyy
format is ok but should I be putting it somewhere else as well?

Thanks

"Daniel.C" wrote:

Hi.
Change your formats to "mm/dd/yyyy", whatever the displayed format.
HTH
Daniel

Hi

I am using Excel 2003 and what to do a custom filter on a date range through
VBA.

I am using the code below but when I look at the sheet no data is displayed
if I look at the custom filter option on the field the setting are there and
if I click on OK the data will then display. It is like the custom filter
through the code is not be executed / refreshed but the criteria is going
into the correct place.

Sub DateFilter()
vFilter = Range("DateAssigned").Value
vFilter2 = Range("DateAssigned2").Value
Sheets("DCR").Select
Selection.AutoFilter Field:=2, Criteria1:="=" & Format(vFilter,
"dd/mm/yyyy"), Operator:= _
xlAnd, Criteria2:="<=" & Format(vFilter2, "dd/mm/yyyy")
End sub

Thanks
Ailish





Ailish

VBA for Date custom Filter
 
Hi Daniel

Sorry misunderstood and change the setting to mm/dd/yyyy and it worked
perfectly.

thanks

"Ailish" wrote:

Hi Daniel

I have the format on the criteria areas as I am in Ireland the dd/mm/yyyy
format is ok but should I be putting it somewhere else as well?

Thanks

"Daniel.C" wrote:

Hi.
Change your formats to "mm/dd/yyyy", whatever the displayed format.
HTH
Daniel

Hi

I am using Excel 2003 and what to do a custom filter on a date range through
VBA.

I am using the code below but when I look at the sheet no data is displayed
if I look at the custom filter option on the field the setting are there and
if I click on OK the data will then display. It is like the custom filter
through the code is not be executed / refreshed but the criteria is going
into the correct place.

Sub DateFilter()
vFilter = Range("DateAssigned").Value
vFilter2 = Range("DateAssigned2").Value
Sheets("DCR").Select
Selection.AutoFilter Field:=2, Criteria1:="=" & Format(vFilter,
"dd/mm/yyyy"), Operator:= _
xlAnd, Criteria2:="<=" & Format(vFilter2, "dd/mm/yyyy")
End sub

Thanks
Ailish






All times are GMT +1. The time now is 10:32 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com