VBA - relatório filtro por data - NÃO FILTRA!

Pessoal, boa tarde a todos, estou com um problema em filtrar dados de uma planilha com base em duas datas.

"Aparentemente" o código que consegui montar, pois sou autodidata na área de VBA, está funcionando, no entanto o filtro da planilha na mostra os dados, até fica registrado que "deveria aparecer" o período indicado,
no entanto, a planilha não filtra.

Segue o código elaborado:

Private Sub BtnGerarRel_Click()
Application.ScreenUpdating = False '
Dim DataInicio As Date, DataFim As Date
   Sheets("RegistroDistribuiçãoInfracional").Select
           If Range("B2").Value = "" Then
           MsgBox "Não existem dados para a geração do relatório, não há registro de Indicações."
           Sheets("Menu Relatórios").Select
           Else
   With Planilha4
   DataInicio = TextBox1.Value
   DataFim = TextBox2.Value
   ActiveSheet.Range("B2:E5000").AutoFilter Field:=5, _
   Criteria1:=">=" & DataInicio, Operator:=xlAnd, _
   Criteria2:="<=" & DataFim
   End With
   Range("B1:E1").Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.Copy
   Sheets("Relatórios").Select
   Range("B8").Select
   ActiveSheet.Paste
   Range("B6").Select
End Sub

Imagens no Anexo.

Desde já agradeço a atenção dispensada, aos que puderem auxiliar.

Atenciosamente,

Lamcarter

Pessoal, nos vários testes, percebi que o próprio excell se manifesta de forma estranha após o código ser rodado.

Se eu abrir o excell e fazer o filtro manual, inserindo o período, funciona normalmente.

No entanto, se eu rodar a macro, simplesmente não aparece os dados filtrados, então, se eu for fazer o filtro manual, também não aparece, gravei um video, no entanto, ficou muito grande

Att

Tópico movido para a sala Off-Topic, por não se tratar de VBA MsAccess.

Posso até estar falando bobagem, não tenho nenhuma experiência em vba excel mas tente alterando essas linhas:

De:
With Planilha4
  DataInicio = TextBox1.Value
  DataFim = TextBox2.Value

Para:
With Planilha4
  DataInicio = TextBox1
  DataFim = TextBox2

Se preferir pode postar sua planilha para eu tentar ajudar.

Eliezer boa tarde,

Caso houver interesse da sua parte, minha sugestão seria você mudar de Excel para o Access.

A não ser que sua planilha seja repleta de dados em varias guias, cheias de fórmulas, onde você a utiliza com muita frequencia.

No MS Access, é possivel importar os dados da(s) planilha(s) e criar uma base de dados, e obter resultados com pouca ou nenhuma programação VBA, apenas utilizando os objetos da ferramenta (tabelas, consultas, macros, relatorios, formulários e etc.).

O Access é a ferramenta mais adequada para armazenamento de dados, integração das informações e desempenho nas consultas também, pois esta é sua característica.
O Excel é uma excelente ferramenta e imbatível no universo financeiro, com varias fórmulas, elaboração de tabelas dinamicas para dashboards, mas muita gente utiliza como "base de dados" também e ai se depara com algumas limitações.

Espero ter ajudado

Att,

Alexandre Fim

Boa tarde pessoal, agradeço as mensagens de Tauron e Alexandre, vamos por parte:

Tauron, as linhas de comando estão corretas, inclusive fiz um teste no chatgpt e cara, ele trouxe apenas mais uma variável, a qual se presta a não precisar ficar selecionando a planilha, obrigado pela tentativa, estou disponibilizando uma planilha, caso queria verificar o que ocorre, parece um erro de filtro do excell mesmo. o erro persiste, mesmo em uma planilha nova, apenas com os dados do relatório que eu quero.

Alexandre, obrigado pela sugestão, realmente concordo com vc, no entanto caro amigo essa planilha funciona desde 2018, mudeis os dados, o banco é grande e sim tem várias planilhas que usamos no dia a dia. Meu sonho é migrar para o acess, no entanto estou a procura de um curso bom e tempo meu amigo, tempo, começar do zero lá rsrsrs. por isso apenas queria implantar esse relatório por data, para não ficar tirando ele a unha. Ainda vou migrar. rsrs Só que assim, essa planilha é pra facilitar nosso trampo aqui, não sou da área de informática e o trabalho para o Estado e ele não tá nem ai com isso rsrsrsrsrs. Agradeço as palavras, se puder dar uma olhada, eu acho que é algo do excell e não da macro criada.

fiz uma "cópia" fake dos dados e criei uma planilha pra tentar resolver.

desde já agradeço a atenção

Lamcarter

Olá LamCarter,

Entendi seu posicionamento.

Na questão do código VBA, tenta formatar a data para ver se funciona:

Criteria1:=">=" & Format(DataInicio,"dd/mm/yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(DataFim,"dd/mm/yyyy")

Att,

Alexandre

Caro Alexandre, realizado a alteração e persiste, eu não consegui upar a planilha da intranet do trabalho.

Segue para eventual consulta.

Att.

Lamcarter