Boa tarde, tenho um código que filtra uma tabela pela data. Porém, está dando erro, pois, o VBA não entende que o formato que está na CÉLULA é dd/mm/yyyy, ele entende mm/dd/yyyy.
Alguém pode me ajudar ?
Sub Filtro_Data()
Application.Calculation = xlAutomatic
Dim data_ini As Date
Dim data_fin As Date
data_ini = DateValue(Format(Range("F2"), "dd/mm/yyyy"))
data_fin = DateValue(Format(Range("G2"), "dd/mm/yyyy"))
Sheets("BACABA").Select
Selection.AutoFilter
ActiveSheet.Range("$c$5:d$50000").AutoFilter Field:=2, Criteria1:= _
">=" & data_ini, Operator:=xlAnd, Criteria2:="<=" & data_fin
End Sub
Pergunta
WAYNEWAVE
Boa tarde, tenho um código que filtra uma tabela pela data. Porém, está dando erro, pois, o VBA não entende que o formato que está na CÉLULA é dd/mm/yyyy, ele entende mm/dd/yyyy.
Alguém pode me ajudar ?
Sub Filtro_Data() Application.Calculation = xlAutomatic Dim data_ini As Date Dim data_fin As Date data_ini = DateValue(Format(Range("F2"), "dd/mm/yyyy")) data_fin = DateValue(Format(Range("G2"), "dd/mm/yyyy")) Sheets("BACABA").Select Selection.AutoFilter ActiveSheet.Range("$c$5:d$50000").AutoFilter Field:=2, Criteria1:= _ ">=" & data_ini, Operator:=xlAnd, Criteria2:="<=" & data_fin End SubLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.