Excel Macro VBA fazendo filtro com criterio e imputbox

[Janilson Brito]

Senhores, bom dia!

Mais uma vez preciso de uma ajuda, estou montando uma macro com um Criterial = Variant.

 

executando a macro desta forma funciona perfeito.
    ActiveSheet.Range("$A$1:$Y$27215").AutoFilter Field:=24, Criteria1:= _
        ">=24/10/2022", Operator:=xlAnd

 

porém o que eu preciso é algo parecido com isso, no campo criterial preciso que seja feito o filtro com a opcao >= que variavel Data

Quando executo desta forma faz o filtro porém não retorna nenhum valor.

Desde já agradeço.

Sub Macro2()
'

    Dim Data As Variant
    Data = InputBox("Digite Data da Extração - Ex: 24/11/2022")
'
    ActiveWindow.LargeScroll ToRight:=6
    ActiveSheet.Range("$A$1:$Y$27215").AutoFilter Field:=24, Criteria1:= _
        ">=" & Data, Operator:=xlAnd
    Range("A1").Select
End Sub

[Midori]

@Janilson Brito Tenta formatar a data,

 

Criteria1:=">=" & Format(Data, "MM/DD/YYYY")

 

 

[Janilson Brito]

@Midori Obrigado, pela ajuda, resolveu meu problema