Início
jotaSilva 16/6/2014, 17:13Ola a todos,
Ao gravara a macro ela funciona, mas apos quando vou executa-la nao funciona,
estou querendo que a partir de um valor e data digitado pelo usuario o filtro mostre apenas os criterios passados pelo input....
Segue o codigo
a planilha esta em anexo.
Ao gravara a macro ela funciona, mas apos quando vou executa-la nao funciona,
estou querendo que a partir de um valor e data digitado pelo usuario o filtro mostre apenas os criterios passados pelo input....
Segue o codigo
- Código:
Dim dteData As Date
Dim curValor As Currency
dteData = InputBox("Informe a Data")
curValor = InputBox("Informe o valor")
curValor = Format(curValor, "#,###,00")
'Format(txtValor, "Standard")
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:= _
">= & dteData", Operator:=xlAnd
Columns("G:G").Select
Selection.NumberFormat = "#,##0.00
a planilha esta em anexo.
- Anexos
Copy of FOLHA1.xlsx - Você não tem permissão para fazer download dos arquivos anexados.
- (10 Kb) Baixado 6 vez(es)
