https://www.youtube.com/results?search_query=vba+filtro+entre+datas

Esta questão já não foi resolvida em seu tópico anterior ?

RELATÓRIO POR DATAS
Mensagempor gfsouza86 » 09 Mar 2018, 09:58

RELATÓRIO POR DATAS [Resolvido]
viewtopic.php?f=10&t=27637

No modelo que anexei tem opção por imputbox e fomulário, não entendi a dúvida, e se não estava resolvido, não deveria seta-lo como tal e continuar a postagem no mesmo topico em vez de abrir outro sobre o mesmo assunto.

[]s

Mauro Coutinho nesse tópico que você citou realmente você sanou minha duvida, porem eu gostaria de filtrar diretamente na base as informações
Por exemplo, realizei diversos cadastros no mês de março, e agora quero filtrar na base apenas os que foram feitos entre os dias 01/03 e 05/03

A ideia de filtrar diretamente na base é para realizar alguma alteração nesses dados e após isso apenas limpar o filtro e continuar na base, se ter que copiar para outro lugar e depois copiar desse lugar novamente para colar na base

O código base levando em conta o exemplo que enviei é este, veja se consegue ajustar:

Sub FiltrarEntreDatas()
    Dim DataIni    As Date
    Dim dataFim    As Date
    
    DataIni = InputBox("Digite a data Inicial")
    dataFim = InputBox("Digite a data Final")

    IniDate = Format(DataIni, "mm/dd/yyyy")
    EndDate = Format(dataFim, "mm/dd/yyyy")
 
    Range("A1:C1").AutoFilter field:=2, Criteria1:=">=" & IniDate, Operator:=xlAnd, Criteria2:="<=" & EndDate

End Sub

[]s

Mauro Coutinho funcionou perfeitamente o código e consegui fazer um botão para limpar o filtro

Mais uma pergunta

Teria como fazer algo parecido com esse exemplo https://www.youtube.com/watch?v=Il7zjilg1_Y
Ou seja, sem aparecer as "setinhas" do filtro?

souza, agora está um pouco corrido, mas pesquise por : "autofilter Visibledropdown" e encontrará algumas formas de se utilizar, por exemplo nesta linha do filtro, ocultamos a seta do campo 2, teria de fazer um loop nas colunas :

Range("A1:C1").AutoFilter Field:=2, Criteria1:=">=" & IniDate, Operator:=xlAnd, Criteria2:="<=" & EndDate, VisibleDropDown:=False

[]s

Bom dia
É exatamente isso que gostaria de fazer
Só resta saber como fazer o loop para as demais colunas

Vou procurar aqui!

Mauro Coutinho
Eu consegui fazer dessa forma

    
Dim DataIni    As Date
Dim dataFim    As Date
    
DataIni = InputBox("Digite a data Inicial")
dataFim = InputBox("Digite a data Final")

IniDate = Format(DataIni, "mm/dd/yyyy")
EndDate = Format(dataFim, "mm/dd/yyyy")

With Range("A5:k5")
.AutoFilter Field:=1, Visibledropdown:=False
.AutoFilter Field:=2, Visibledropdown:=False, Criteria1:=">=" & IniDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
.AutoFilter Field:=3, Visibledropdown:=False
.AutoFilter Field:=4, Visibledropdown:=False
.AutoFilter Field:=5, Visibledropdown:=False
.AutoFilter Field:=6, Visibledropdown:=False
.AutoFilter Field:=7, Visibledropdown:=False
.AutoFilter Field:=8, Visibledropdown:=False
.AutoFilter Field:=9, Visibledropdown:=False
.AutoFilter Field:=10, Visibledropdown:=False
.AutoFilter Field:=11, Visibledropdown:=False
End With

Porem ele fica muito lento para filtrar
Teria como "agilizar" (deixar mais rápido) esse código?

Dim DataIni    As Date
Dim dataFim    As Date
    
DataIni = InputBox("Digite a data Inicial")
dataFim = InputBox("Digite a data Final")

IniDate = Format(DataIni, "mm/dd/yyyy")
EndDate = Format(dataFim, "mm/dd/yyyy")
application.screenupdating = false
With Range("A5:k5")
.AutoFilter Field:=1, Visibledropdown:=False
.AutoFilter Field:=2, Visibledropdown:=False, Criteria1:=">=" & IniDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
.AutoFilter Field:=3, Visibledropdown:=False
.AutoFilter Field:=4, Visibledropdown:=False
.AutoFilter Field:=5, Visibledropdown:=False
.AutoFilter Field:=6, Visibledropdown:=False
.AutoFilter Field:=7, Visibledropdown:=False
.AutoFilter Field:=8, Visibledropdown:=False
.AutoFilter Field:=9, Visibledropdown:=False
.AutoFilter Field:=10, Visibledropdown:=False
.AutoFilter Field:=11, Visibledropdown:=False
End With
application.screenupdating = true