none
Gerar parcelas de um vencimento. RRS feed

  • Pergunta

  • Bom dia , Preciso de uma ajuda, desde já agradeço . 

    Estou criando um controle financeiro , criar uma macro que dependendo da quantidade de meses que se repita o lançamento e ele já salve essa repitação salvando o valor e a data (de vencimento) durante os mesês  . (como se fosse um parcelamento).

    sábado, 13 de janeiro de 2018 12:51

Respostas

  • Se achar conveniente, faça sua pergunta no fórum "Planilhando", pois lá tem muita gente para responder.

    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    • Marcado como Resposta Emerson Maia sábado, 13 de janeiro de 2018 17:56
    sábado, 13 de janeiro de 2018 15:33

Todas as Respostas

  • Explique melhor

    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    sábado, 13 de janeiro de 2018 15:27
  • Se achar conveniente, faça sua pergunta no fórum "Planilhando", pois lá tem muita gente para responder.

    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    • Marcado como Resposta Emerson Maia sábado, 13 de janeiro de 2018 17:56
    sábado, 13 de janeiro de 2018 15:33
  •  O que eu preciso é o seguinte,  

     Criei um cadastro de contas a serem pagas ou recebidas , certo. Salvo normalmente (OK). 

      Agora algum desses lançamentos ele pode se repetir por 4 , 5 , 6 ,7 ou mais ou menos meses , o que eu quero cirar uma marcro que dependendo desse criterio de meses vai ser lançado altomatico assim que eu salvar , para eu não ter que lançar um por um. 

    sábado, 13 de janeiro de 2018 18:02
  • O que uma linguagem de programação entende é escrever tal valor em tal célula quando ocorrer tal coisa; copiar o valor de A2 para C14; inserir uma linha antes de tal linha; excluir tal linha...

    Falar apenas "critério", "meses", "lançamento" é muito genérico. Qualquer pessoa que leia o que você escreveu não vai entender o que você quer.

    Você já fez alguma macro na sua vida?

    Qual critério? Em que célula está o critério? Lançado o quê? Em quais células? Em qual planilha? Quantos meses?


    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com



    sábado, 13 de janeiro de 2018 18:41
  • https://www.youtube.com/results?search_query=vba+gravar+macro

    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com

    sábado, 13 de janeiro de 2018 18:54
  •  

    Muito obrigado  pela sua ajuda Diniab,  claro que fiz ,  estou começando . Talvez eu não tenha sido claro mesmo. 

    Mas vamos lá , (Preciso lançar como parcelas , exemplo se for 10 meses (10 lançamentos)).

    sábado, 13 de janeiro de 2018 22:38
  • CÉLULA        VALOR              CÉLULA      VALOR(QUANTIDADE DE PARCELAS)    

    A1                100                     B2                  10   

    A2                100

    A3                100

    A4                100

    A5                100

    A6                100

    A7                100

    A8                100

    A9                100

    A10               100

    Vamos ver se eu entendi... (Era para você explicar assim)

    Na coluna A, eu lanço o valor das parcelas. Na célula B2, está o critério (quantidade de parcelas). Quero que, ao lançar o valor na célula A1, seja copiado o mesmo valor para as células abaixo, gerando a quantidade de parcelas que está na célula B2. 

    Isso é uma explicação que todo mundo que sabe ler entende.

    É isso que você quer fazer?


    A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com



    sábado, 13 de janeiro de 2018 23:47
  • Obrigado, eu consegui realizar o que eu queria . 

    segue o código . 

      Dim contador As Integer
       Dim linha    As Integer
       Dim x        As Byte
       Dim converte As Date
       
      
            
            If valp.Text = Empty Or parp = Empty Or dtv = Empty Then
             MsgBox "Existes campos obrigatórios em banco!", vbCritical, ""
             Exit Sub
             End If
               
               x = 0
                 converte = dtv
             
             listaparcelas.Clear
             
        For contador = 1 To parp.Text
           With listaparcelas
               .AddItem
               .List(linha, 0) = contador & "º" & " -  Parcela"
               .List(linha, 1) = DateAdd("M", contador, dtv)
               .List(linha, 2) = Val(x) + contador & " de " & " " & parp
               .List(linha, 3) = Format(valp / parp, "#,##0.00")
           
           End With
           linha = linha + 1
           Next contador
    domingo, 14 de janeiro de 2018 18:12