Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Filtrar por interva...
 
Notifications
Clear all

Filtrar por intervalo de datas com Formatação condiciona

 
2024 - VBA & Macros
3 Posts
2 Usuários
0 Reactions
661 Visualizações
RSS
 FMORAIS
(@fmorais)
Posts: 0
New Member
Topic starter
 

Boa tarde
Prezados(a) Amigos(a)
Estou precisando fazer uma macro (VBA) para filtrar por intervalo de datas (data inicial e data final)
Porém as datas deve ser pré formatada na condição:
Data inicial: [DATA ATUAL] – [20 dias]
Data final: [DATA ATUAL] + [3 dias]
Fiz este código mas deu errro
Sub Macro1()
ActiveSheet.Range("A:C").AutoFilter Field:=1, Criteria1:= _
">="& Format (ActiveSheet.Range($H$1)"dd/mm/yyyy"), Operator:=xlAnd, Criteria2:="<=" Format(ActiveSheet.Range($J$1)"dd/mm/yyyy”)
End Sub
Se puderem me ajudar sou muito grato.

 
Postado : 22/06/2014 4:55 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Use a pesquisa do fórum!
Leia:
http://www.google.com.br/cse?cx=partner ... &oq=filtra

Att

 
Postado : 22/06/2014 4:57 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


FMORAIS, em relação a datas, prefiro sempre trabalhar com inteiros.
Segue sugestão, que entendo que possa ser ajustada e adaptada ao seu código:

Sub Macro1()

i = CLng(Now()) - 20
f = CLng(Now()) + 3

ActiveSheet.Range("$A$1:$B$100").AutoFilter Field:=1, Criteria1:= _
">=" & i, Operator:=xlAnd, Criteria2:="<=" & f

End Sub

 
Postado : 22/06/2014 7:43 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico