Auto-Filtro não filtra sem dar "ok"

[Rodrigo Gerez]

Bom amigos,

Pesquisei mas não achei uma solução que funcione.

Estou usando o auto-filtro no VBA, mas ele não aplica os critérios automaticamente, na realidade ele só compreende quando eu entro no auto-filtro e dou o simples "ok" nos critérios (que estão corretos!)

Abaixo os comandos:

Sub Macro2()

Dim Data_Pesquisa As Date

Dim Data_Pesquisa2 As Date

Application.DisplayAlerts = False

Application.ScreenUpdating = False

' Macro2 Macro

Data_Pesquisa = InputBox("Data inicial", "Qual a data para Atualizações?")

Data_Pesquisa2 = InputBox("Data Final", "Qual a data para Atualizações?")

sTRARQUIVO = Application.GetOpenFilename("Arquivos para importação (*.xls),*.xls")

'Comando para abertura do arquivo Planilha_Y.xls

Workbooks.Open FileName:=sTRARQUIVO

Columns("b:b").Select

Selection.Clear

Columns("A:A").Select

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

FieldInfo:=Array(Array(0, 4), Array(10, 1)), TrailingMinusNumbers:=True

Columns("A:A").Select

Selection.NumberFormat = "dd/mm/yyyy"

Rows("1:1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$G$32").AutoFilter Field:=3, Criteria1:="=*saldo*"

Range("C2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.SpecialCells(xlCellTypeVisible).Select

Selection.EntireRow.Delete

ActiveSheet.Range("$A$1:$G$31").AutoFilter Field:=3

Columns("D:D").Select

Selection.ClearContents

Columns("F:F").Select

Selection.ClearContents

Selection.AutoFilter

ActiveSheet.Range("$A$1:$G$32").AutoFilter Field:=1, Criteria1:=">" & Data_Pesquisa, Criteria2:="<" & Data_Pesquisa2

Application.Calculate

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

Como faço pra anexar as planilhas pra facilitar?

Obrigado!!!

Rodrigo

[João.Neto]

Tenta acrescentar o Operator:=xlAnd:

(...)
Selection.AutoFilter
ActiveSheet.Range("$A$1:$G$32").AutoFilter Field:=1, Criteria1:=">" & Data_Pesquisa, Criteria2:="<" & Data_Pesquisa2, Operator:=xlAnd
(...)

Editado Dezembro 21, 2010 por João.Neto