MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Macro para devolver valores em MSGBOX

    avatar
    jotaSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 28/02/2014

    Macro para devolver valores em MSGBOX Empty Macro para devolver valores em MSGBOX

    Mensagem  jotaSilva Seg 16 Jun 2014, 17:13

    Ola 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

    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
    Macro para devolver valores em MSGBOX AttachmentCopy of FOLHA1.xlsx
    Você não tem permissão para fazer download dos arquivos anexados.
    (10 Kb) Baixado 6 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Macro para devolver valores em MSGBOX Empty Re: Macro para devolver valores em MSGBOX

    Mensagem  Alexandre Neves Qui 17 Jul 2014, 15:19

    Boa tarde,
    Parece-me que a dúvida é sobre Excel e este fórum é vocacionado ao Access.
    Assim, a dúvida será movida para Assuntos variados


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Qui 28 Mar 2024, 10:27