Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Filtro Não Funciona
 
Notifications
Clear all

Filtro Não Funciona

 
2024 - VBA & Macros
Post Recente por romanholi 6 anos atrás
5 Posts
3 Usuários
0 Reactions
1,429 Visualizações
RSS
 romanholi
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Pessoal, bom dia.

Poque minha macro abaixo não filtra as datas. Não consigo encontrar o problema:

Sub Enviar_Analises()

Dim Data_Ini As Date
Dim Data_Fim As Date

Data_Ini = Format(InputBox("Entre com a Data Inicial", "Seletor"), "mm/dd/yyyy")
Data_Fim = Format(InputBox("Entre com a Data Final", "Seletor"), "mm/dd/yyyy")

Sheets("_Follow_Res").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$G$100000").AutoFilter Field:=1, Criteria1:= _
">=" & Data_Ini, Operator:=xlAnd, Criteria2:="<=" & Data_Fim

End Sub

Obrigado pela Ajuda

 
Postado : 03/08/2018 6:25 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

romanholi,

Bom dia!

Anexe seu arquivo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 03/08/2018 7:20 am
 romanholi
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Segue arquivo e dúvidas comentadas no código

Obrigado Wagner

 
Postado : 03/08/2018 7:47 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Para o filtro
experimente:

...Data_Ini = InputBox("Entre com a Data Inicial", "Seletor")
Data_Fim = InputBox("Entre com a Data Final", "Seletor")

        Sheets("_Follow_Res").Select
            Selection.AutoFilter
        
        'Filtrar Data
        ActiveSheet.Range("$A$1:$G$100000").AutoFilter Field:=1, Criteria1:= _
        ">=" & Format(Data_Ini, "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(Data_Fim, "mm/dd/yyyy")
...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/08/2018 8:37 am
 romanholi
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Funcionou!
Obrigado Reinaldo!

Se alguém puder me ajudar com a validação...
Pois quando eu coloco uma data que não está na base ele filtra, mas não filtra nada, queria validar.

Obrigado

 
Postado : 03/08/2018 8:55 am
Forum Jump:
  Tópico Anterior
Próximo Tópico