Notifications
Clear all

Macro - DATA

11 Posts
3 Usuários
0 Reactions
2,169 Visualizações
(@kennedyand)
Posts: 12
Active Member
Topic starter
 

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.

 
Postado : 17/03/2017 6:47 am
hronconi
(@hronconi)
Posts: 314
Reputable Member
 
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! ;)

 
Postado : 17/03/2017 6:54 am
(@kennedyand)
Posts: 12
Active Member
Topic starter
 

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.

 
Postado : 17/03/2017 6:59 am
hronconi
(@hronconi)
Posts: 314
Reputable Member
 

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! ;)

 
Postado : 17/03/2017 7:03 am
pfarias
(@pfarias)
Posts: 265
Reputable Member
 

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.

ANALISTA X

 
Postado : 17/03/2017 7:05 am
(@kennedyand)
Posts: 12
Active Member
Topic starter
 

Não esta dando certo, nenhuma das duas opções.

Informa o erro '1004':

O método AutoFilter da classe Range falhou

 
Postado : 17/03/2017 7:11 am
hronconi
(@hronconi)
Posts: 314
Reputable Member
 

tem como postar a planilha?

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado! ;)

 
Postado : 17/03/2017 7:12 am
(@kennedyand)
Posts: 12
Active Member
Topic starter
 

Desculpa, não consigo enviar a planilha.

 
Postado : 17/03/2017 7:13 am
hronconi
(@hronconi)
Posts: 314
Reputable Member
 

Como disse aqui está funcionando. Segue exemplo anexo

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado! ;)

 
Postado : 17/03/2017 7:33 am
(@kennedyand)
Posts: 12
Active Member
Topic starter
 

Estranho que ontem, eu consegui executar uma, mas não tinha o filtro de data. Hoje não consigo executar nenhuma das macros.

 
Postado : 17/03/2017 7:41 am
(@kennedyand)
Posts: 12
Active Member
Topic starter
 

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!

 
Postado : 17/03/2017 7:58 am