jotaSilva,

Bom Dia!

Veja se é assim.

Wagner, bom dia!

Cara e bem isso mesmo, mas algo que percebi e que quando rodo pela 1 vez, informando uma data menor ou igual a 10/06/2014 ele funciona legal, dai na segunda vez como tem um format :::
Columns("G:G").Select
'Selection.NumberFormat = "#,##0.00"
::: ele formata essa coluna e nao encontra mais o valor, eu comentei a linha do format e deixei esta coluna como texto dai sempre vai me trazer o valor do input,
Outra coisa que nao consegui desenrolar, se eu coloco uma maior que 10/06/2014 nao funfa...
mais Wagner pode me dizer pq que quando a data e formatada "dteData = Format(dteData, "mm/dd/yyyy")" da certo e quando eu coloco "dd/mm/yyyy"
obrigado pela ajuda Wagner.

A questão da data é porque o VBA é americano (em inglês) muito embora a versão do Excel seja em Português.

Quanto ao restante, não entendi...

Peço, por gentileza, votar positivamente.

entendi, ja votei positivo nas duas, sou novo por aqui...

quando uma data e maior que 10 o filtro da data nao funfa, fiz essa pequena alteração e agora quando a data e maior que 12 nao finfa tbm.

Sub teste()

Dim strEntrada As String
Dim dteData As Date
Dim curValor As Double
Dim Data As String

'strEntrada = InputBox("Informe a Data")
strEntrada = Format(Month(Date), "00") & "/" & Format(Day(Date), "00") & "/" & Year(Date)

'dteData = Format(strEntrada, "mm/dd/yyyy")
curValor = 2160.91 'InputBox("Informe o valor")
curValor = Format(curValor, "#,###.00")
'Format(txtValor, "Standard")

'Debug.Print dteData
Debug.Print curValor

Rows("1:1").Select
Selection.AutoFilter
Range("H7").Select
ActiveSheet.Range("$A$1:$H$5").AutoFilter Field:=7, Criteria1:=curValor
ActiveSheet.Range("$A$1:$H$5").AutoFilter Field:=8, Criteria1:=">=" & CDate(strEntrada), Operator:=xlAnd
Columns("G:G").Select
'Selection.NumberFormat = "#,##0.00"
Range("G1").Select
End Sub

Consegui resolver, apos fazer limpar as celulas e depois colar no excel, formatei o valor para ser igual ao input digitado pelo usuaraio, dai deu tudo certo vlw.

Dim i As Integer, celulaTemp As Currency
    
    i = 2
    
    Workbooks("Filtros de Data e Valor.xlsm").Activate
    Sheets("entrada").Activate
    
    While Range("G" & i).Value <> ""
    
    
        celulaTemp = Range("G" & i).Value
        Range("G" & i).NumberFormat = "@"
                
        Range("G" & i) = Format(celulaTemp, "####.00")
              
        i = i + 1