Ola.
Gostaria de inserir esse criterio de pesquisa nesse filtro abaixo.
Sub Filtrar()
Plan2.Range("a2:b65000").ClearContents
Plan1.Activate
Plan1.Columns("A:A").Select
Plan1.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Plan2.Columns("A:A"), Unique:=False
Criteria1 = ">=01/01/2012 e <=30/01/2012" >gostaria de pesquisar na coluna so as datas referentes a janeiro
Range("C1").Select
Plan2.Activate
Plan2.Range("A2:B65000").Sort Plan2.Range("a2"), xlAscending
End Sub
Tentei com cdate ja mas nao obtive exito.