Pesquisar na Comunidade

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

Em uma table "programacao" tenho as respectivas culunas, id_programacao int, dataprogramacao date, ciclo time, totalprogramado time, Producao int Uma maquina a cada ciclo ("00:00:34") ela produz uma peça, quantas peça ela produziu em 02:06:22. e também existe a seguinte questão, se a maquina tem um tempo ciclo ("00:00:34") quanto tempo ela gasta para produzir 1234 peças? Como fazer um select retornando a questão seguinte: 1 - Multiplicar campo time por int e retornar time acima de 24h 2 - Dividir 02:06:22 pelo tempo ciclo (00:00:34) e retornar a produção