date formats changing in filter?

[khalid79m]

Private Sub XXXX()
Dim a As String
Dim b As String
zRow = ThisWorkbook.Sheets("Input_Data_level1").Cells(Cells.Rows.Count, "A").End(xlUp).Row
ThisWorkbook.Sheets("Input_Data_Level1").AutoFilterMode = False
a = ThisWorkbook.Sheets("Reporting").Range("D5").Value
b = ThisWorkbook.Sheets("Reporting").Range("D6").Value
ThisWorkbook.Sheets("Input_Data_Level1").Range("A1:D" & zRow).AutoFilter Field:=1, Criteria1:= _
">=" & a, Operator:=xlAnd, Criteria2:="<=" & b
End Sub

Hi in this code

a = 12/03/2010 (12th March 2010)
b = 15/03/2010 (15th March 2010)

however the filter shows 03/12/2010 and 03/12/2010 ?

why why why ? can anyone help.

[Bob Phillips]

Try this


Private Sub XXXX()
Dim a As String
Dim b As String
With ThisWorkbook.Sheets("Input_Data_level1")
a = Format(ThisWorkbook.Sheets("Reporting").Range("D5").Value, .Range("A2").NumberFormat)
b = Format(ThisWorkbook.Sheets("Reporting").Range("D6").Value, .Range("A2").NumberFormat)
zRow = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
.AutoFilterMode = False
.Range("A1:D" & zRow).AutoFilter Field:=1, _
Criteria1:=">=" & a, Operator:=xlAnd, Criteria2:="<=" & b
End With
End Sub

[khalid79m]

your the man xld... :)