Você declara O DataInicial e DataFinal como string e procura uma célula formatada como data? Se for isso, ele realmente não vai encontrar.

To falando isso sem rodar seu código, mas tente declarar suas Variaveis como date ou como Variant.

Eu já tive problema com autofilter por causa disso, então talvez você esteja passando pela mesma coisa.

Abraços.

skulden
Testei declarando como String, Variant e Date, não da certo de nenhuma das três maneiras. Quando fiz o código pela primeira vez, mesmo como string havia rodado certo.

Poderia, por favor, anexar a Planilha?

Não se esqueça de compactar em .zip

skulden

Segue,
obrigado pela ajuda!!!

Lembrando que podem conter datas de 2005 até o dia de emissão do relatório, e também posso ter um relatório com um numero muito maior de linhas. No exemplo anexado tenho um exemplo básico com poucas informações.

Boa tarde C_Nicole,

Olhei rapidamente sua planilha e não tem nenhum código nela. Outra coisa, tem certeza que anexou a planilha correta? Essa planilha me parece bem mal estruturada para utilizar um filtro, não me parece um banco de dados.

att,

bruno

É essa planilha mesmo. Alguns dados foram retirados devido a informações que são contidas.

Sobre o código, não fica na planilha fica em uma outra. O trecho do código que dá problema é esse:

Columns("A:A").Select
    Selection.ColumnWidth = 20
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Rows("1:1").Select
    Selection.AutoFilter
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "01/01/2005"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A1:B1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Dim DataInicial As String, DataFinal As String
DataInicial = VBA.Format(Range("A1").Value, "dd/mm/yyyy")
DataFinal = VBA.Format(Range("B1").Value, "dd/mm/yyyy")

    ActiveSheet.Range("$A:$M").Select
    Selection.AutoFilter Field:=1, Criteria1:=">=" & DataInicial, Operator:=xlAnd, _
    Criteria2:="<=" & DataFinal

O erro é quando o comando AutoFilter não filtra nada, mesmo contendo datas na coluna A.

Boa noite Nicole,

Veja o código que coloque no arquivo em anexo.

No caso eu não adicionei uma nova linha para colocar a DataInicial ou a DataFinal, já escrevi no código para já sair no formato norte-americano (mm/dd/aaaa).
O código está no módulo 1.

Teste e de retorno.

att,

Bom dia Bruno,

Primeiramente obrigado pela resposta.

Deixe-me tirar umas duvidas:
Quando vc coloca "Nlin" e "Ncol", vc está definindo as ranges da planilha?
Quando vc menciona Datafinal sem uma data especifica ele assume qual informação?
Mesmo definindo o formato norte-americano, se minha planilha estiver no formato BR ele assume o filtro da mesma maneira?

Muito obrigado novamente, perdão pelas perguntas, estou usando o VBA faz pouco tempo.

Boa noite Nicole,

Nlin = Número de linhas; NCol=Número de colunas. Pegando esses valores para a escolha da área que vai ser filtrada.
Assim o Range(Cells(1,1),Cells(Nlin,Ncol) é a área, note que Cells(Valor da Linha, Valor da Coluna).

Note que no formato da DataFinal usei a função Date:

DataFinal = Format(Date, "mm/dd/yyyy")

Date vai retornar o mesmo valor que a função HOJE() da planilha.

Seus dados podem estar em formato dia/mês/ano na planilha que vai funcionar (pelo menos na sua planilha de exemplo funcionou).

Qualquer dúvida é só perguntar.

att,

Bruno, adaptei o código que você enviou ao meu código e aparentemente está funcionando redondo.

Muito obrigado mesmo! Caso volte a apresentar problema reabro o tópico.

@brunoxro ou @C_Nicoleti poderiam me enviar a planilha que resolveu o problema? Estou com um problema parecido e a planilha não está mais em anexo no tópico.