Controle de contas a pagar no Excel

Concatenar VBA
Concatenar VBA
15 de fevereiro de 2011
Conversão de Dados no Excel
Conversão de Dados no Excel
22 de fevereiro de 2011

Objetivo: Controle de contas a pagar no Excel de determinada data utilizando filtro avançado e VBA.

Neste painel você seleciona um dia no calendário e uma situação que são utilizadas como parâmetros para o recurso de filtro avançado.

O calendário foi incluído na guia Desenvolvedor através do botão Inserir.

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/

21 Comentários

  1. Afonso disse:

    Ficou muito legal Rieper. Valeu…

  2. Vinicius disse:

    Rieper, utilizo um calendario como esse em um plan, juntamente com uma macro que inserida em command buton pra chamar e ocultar o calendario. O problema eh que ajusto o tamanho dele no modo design e quando saio ele fica com o tamanho desconfigurado, o mesmo aconte quando eu fecho a plan e abro ela de novo. voce sabe o porque de o calendario nas estar aceitando as configurações de tamanho?

    • Marcos Rieper disse:

      Bom dia Vinícius,

      Isto normalmente é uma falha do componente trabalhando com a planilha, isso é mais normal do que parece, eu já tive problemas com isso.

      O que dá pra fazer é trabalhar as propriedades de tamanho do objeto via VBA no evento Worksheet.Open:

      Private Sub Worksheet_Activate()
      Calendar1.Width = x
      Calendar1.Height = y
      End Sub

      Abraço

      Rieper

  3. Vinicius disse:

    Rieper, mto obrigado pela resposta..vou tentar depois. Gostaria de tirar mais uma duvida com você, nesta mesma planilha que citei antes, gostaria de ao inves de o valor do calendario ir para a celula ativa, fosse para um textbox. Tentei aqui mas não consegui.

    Private Sub Calendar1_Click()
    TextBox1.Value = Calendar1.Value
    UserForm1.Hide
    End Sub

    O jeito que consegui foi atribuir o valor do calendario a uma celula especifica ex.(A1) e linkar o textbox a esta celula.

    Private Sub Calendar1_Click()

    Range(“A1”) = Calendar1.Value
    UserForm1.Hide

    End Sub

    Mas ai veio outro problema, o textbox nao aparece em formato de data e sim numeros. ex: 19/02/2011 ficou na textbox 40593. Há alguma maneira de mudar o formato dos dados da textbox para data?

    • Marcos Rieper disse:

      Boa tarde Vinícius,

      Para colocar o valor direto você tem que passar realizando a formatação dos dados conforme:

      Private Sub Calendar1_Click()
      TextBox1.Value = Format(Calendar1.Value, “dd/mm/yyyy”)
      lsFiltro
      End Sub

      Abraço

      Rieper

  4. Vinicius disse:

    Correção ai em cima

    Private Sub Calendar1_Click()
    TextBox1.Text = Calendar1.Value
    UserForm1.Hide
    End Sub

  5. Vinicius disse:

    Rieper, ainda n deu certo..Quando insiro os codigos da um erro de compilação (sub ou function nao definida), devido a esse “lsFiltro”, que na verdade serve pra que?

    Explicando melhor o porque de eu querer isso..É o seguinte, voce postou a planilha “Lista com Filtro de Dados Automático 3), quer por sinal ficou excelente, entao resolvi utilizar o mesmo raciocinio numa plan no trabalho, soh que no intervalo das datas queria utilizar o controle de calendario pra jogar o valor na textbox ao inves de digitar a data manualmente.

  6. Fabio L. disse:

    Bom Dia Marcos Rieper,

    Primeiramente parabéns pelo Site!

    Por favor, apos inserido o Calendário na planilha como eu faço para que uma determinada célula receba a data do calendário que tiver sido selecionada no calendário ?

    Obrigado.
    Fábio L.

    • Marcos Rieper disse:

      Bom dia Fábio,

      Para ligar o calendário á célula você deve selecionar o objeto em modo de Design e dar um botão direito nele, clique em Propriedades e altere a propriedade Linked Cell para Painel!C2.

      Abraço

      Marcos Rieper

  7. Paulo disse:

    Bom dia Marcos,

    Não estou conseguindo visualizar em propriedades o ícone Linked Cell,bem como, gostaria de saber se existe outra maneira para selecionar a data no calendário?

    Abraço

    Paulo

    • Marcos Rieper disse:

      Bom dia Paulo,

      A planiha foi feita no Excel 2010, que utiliza outro objeto, para o 2007 você pode usar o Microsoft MonthView Control 6.0 (SP4), daí vai funcionar direitinho, é só mudar as propriedades do LinkedCell e alterar um pouco o código VBA.

      Abraço

      Marcos Rieper

  8. Paulo disse:

    Boa tarde Marcos,

    Eu utilizo o Excel 2010, ainda não consegui encontrar o ícone LinkedCell, solicito por gentileza que me informe o caminho, e se possível me instrua quais alterações preciso fazer no código VBA.

    Abraço

    Paulo

  9. Hélio disse:

    Marcos Rieper, boa tarde.

    Antes, quero cumprimentá-lo pelo excelente trabalho que você oferece aos iniciantes.

    O melhor adjetivo que encontrei para você é: Altruísmo.

    Parabéns!

    Ao ensejo – gostaria de perguntar como é que eu faço para criar uma variável que busque o contas a pagar em abas diferentes.

    Baixei sua planilha e adaptei para meu uso pessoal. Alterei a aba “Contas a Pagar” para Jan2011.

    Como eu faço para criar uma variável no VBA para buscar em outras abas (Jan2011, Feve2011, Mar2011, etc).

    Minha dúvida é:

    Ao clicar no calendário a célula C2 é preenchida com a data.

    Como eu faço para, ao clicar numa determinada data do calendário, por exemplo, 25.05.2011,
    ele identifique que vá buscar as contas em aberto na aba Mai2011?

    Certo de que não levará a mal o meu pedido, aguardo sua breve e favorável resposta, declaro-me, sobremodo agradecido.

    Atenciosamente,

    Hélio Afonso

  10. Myrian disse:

    Tenho tentado acompanhar vocês, mas tenho muuuuuiiiiito que aprender.
    bom… Não consegui selecionar novas datas no calendário…
    como consigo resolver?

  11. Renata disse:

    boa tarde, essa planilha é perfeita para o que estou precisando, mas o calendario nao funiona, nao permite eu selecior a data desejada. o que está errado??

  12. não estou conseguindo baixar a planilha do contas a pagar ela é paga?

  13. Fernando Lisboa disse:

    Marcos !

    Qual o controle activeX do calendário, estou usando office 365 e nao consigo ver as propriedades do calendário, obrigado

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.