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