Bom dia,
Preciso que na macro ele filtre somente o ano de 2017.
ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=10, Operator:= _
xlFilterValues, Criteria2:=Array(0, "3/14/2017")
Quando executo a macro ele da erro nesta parte.
Estou usando o gravador de macro.
Alguém consegue me ajudar ?
No campo, tenho datas de 2016 e 2017. Preciso, somente de 2017.
ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=10, Criteria1:= _ ">=01/01/2017", Operator:=xlAnd, Criteria2:="<=12/31/2017"
Henrique
http://henriqueronconi.wix.com/consultoria
Espero ter ajudado!
Ainda continua dando erro.
Preciso realizar esses dois filtros.
ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=10, Criteria1:= _
">=01/01/2017", Operator:=xlAnd, Criteria2:="<=31/12/2017"
ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=14, Criteria1:="44"
Mas o compilador não passa em nenhum deles.
Ainda continua dando erro.
Preciso realizar esses dois filtros.
ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=10, Criteria1:= _
">=01/01/2017", Operator:=xlAnd, Criteria2:="<=31/12/2017"ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=14, Criteria1:="44"
Mas o compilador não passa em nenhum deles.
Eu editei a postagem para 12/31/2017 no critério 2 para o formato americano. Deve funcionar porque para mim testei e funcionou.
Henrique
http://henriqueronconi.wix.com/consultoria
Espero ter ajudado!
Se a ideia é retornar o ano atual você poder usar:
ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=10, Operator:= _ xlFilterDynamic, Criteria1:=xlFilterThisYear
Pietro Farias
Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.
Não esta dando certo, nenhuma das duas opções.
Informa o erro '1004':
O método AutoFilter da classe Range falhou
tem como postar a planilha?
Henrique
http://henriqueronconi.wix.com/consultoria
Espero ter ajudado!
Desculpa, não consigo enviar a planilha.
Como disse aqui está funcionando. Segue exemplo anexo
Henrique
http://henriqueronconi.wix.com/consultoria
Espero ter ajudado!
Estranho que ontem, eu consegui executar uma, mas não tinha o filtro de data. Hoje não consigo executar nenhuma das macros.
Consegui aqui pessoal.
Joguei o código para uma macro que estava funcionando antes, e deu certo.
Range("O2").Select
ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=14, Criteria1:="44"
Range("O2").Select
ActiveSheet.Range("$A$1:$X$102269").AutoFilter Field:=10, Criteria1:= _
xlFilterThisYear, Operator:=xlFilterDynamic
Muito obrigado pela ajuda!