Correção em Macro que gera parcelas [RESOLVIDO]

[Patropi]

Amigos,

Tenho uma planilha que lanço as vendas feitas por cartão de crédito, e através de macro é lançado na outra folha as parcelas, uma embaixo da outra até o número de parcelas que foi digitado na primeira planilha. Até aí tudo bem, acontece que a macro desconta a taxa de administração de cada parcela , e não deveria ser assim, pois antes de dividir pelo número de parcelas a macro já desconta esta taxa( Já divide o valor líquido). Portanto a primeira parcela já esta com o valor correto e as demais parcelas deveriam ter o mesmo valor.
Devido a este problea tenho que corrigir as demais parcelas manualmente.
Envio em anexo a planilha e nela também eu coloquei a explicação.
Resumindo , o que eu preciso é que as demais parcelas sejam do mesmo valor da primeira parcela.

[REMOVIDO]

Agradeço antecipadamente

Abraços

[Mauro Coutinho]

Patropi, não sou muito bom em matemática financeira, mas pelo que entendi você quer que os Valores das demais Parcelas Lançados na Planilha Fluxo, coluna "J" - "Liquido" sejam os mesmos referente ao primeiro Valor calculado, se for isso, faça as seguintes alterações :

Sub cria_fluxo()
...........
.................
......................
.......'Defini uma Variavel para pegar o Valor calculado
.......vlrLiq = wvalor * (1 - wtaxa)
.......'Troquei essa linha
.......'destino.Cells(j, 10).Value = wvalor * (1 - wtaxa)
.......destino.Cells(j, 10).Value = vlrLiq

e no lançamento das parcelas :
.......................
.......'Troquei essa linha
......'destino.Cells(j, 10).Value = wvalor * (1 - wtaxa * k)
......destino.Cells(j, 10).Value = vlrLiq
.......
............

Veja se seria isso.

[]s

[Alex Sandro]

Patropi,

Veja se é isto, na planilha em anexo, que pretende. Irá gerar as parcelas, como por exemplo 3 de 200,00 + juros e a quantidade das parcelas terá o mesmo valor.

Só substitui a última linha onde tinha:
j = i +1
i = j+1; por

j = i
i = j

Se for isso mesmo, quero que compare as macros somente para corrigir as datas que não deu tempo de arrumar.

Abraços


Editando:
Tinha feito o cálculo errado, mas agora deu certo e vai ser isso mesmo que você quer, anexei novamente a planilha com os dados corrigidos. Verifique por si mesmo e vê se está certo e não esqueça de ver a macro em relação à data, pois a mesmo diminui o primeiro dia das outras parcelas.

[Patropi]

Boa tarde

Primeiro quero agradecer ao Mauro Coutinhao e ao Alex Sandro pelo interesse em resolver o meu problema.

Caro Mauro, eu substitui as 2 linhas que vc mandou, mas como ainda estou aprendendo macro, não sei onde colocar a primeira parte que vc digitou:
.......'Defini uma Variavel para pegar o Valor calculado
.......vlrLiq = wvalor * (1 - wtaxa)
Em virtude disso a macro esta apenas dividindo as parcelas sem descontar a taxa de administração, ou seja esta apenas dividindo o valor bruto em parcelas.
Aonde eu coloco esta parte ???.

Caro Alex Sandro, eu baixei a planilha e ela esta funcionando só que ao invés de descontar a taxa de administração ela esta adicionando. Vc só teria que corrigir este detalhe.

Só tenho que agradecer a vocês pelo pronto atendimento a minha dúvida.

Aguardo retorno.

Abraços

[Mauro Coutinho]

Patropi, como eu disse, não sou bom em mat financ., eu simplesmente segui o raciocinio que entendi que seria jogar os mesmos valores para as colunas.

Então pergunto, quais os valores corretos que devem ir para a Coluna "J" - Liquido ?
Os resultados dessa linha :
destino.Cells(j, 10).Value = wvalor * (1 - wtaxa)


ou dessa ?
destino.Cells(j, 10).Value = wvalor * (1 - wtaxa * k)

[]s

[Patropi]

Boa tarde Mauro Coutinho

Vc não é bom em mat. financeira e eu não sou bom em macro.
Eu baixei esta planilah da nete esta sendo muito útil, mas só tem o defeito de descontar a taxa de todas as parcelas.

Eu preciso que o código pegue o valor bruto e desconte a taxa de administarção que é puxada através de PROCV para a planilha operações conforme eu seleciono o tipo de cartão.
Vamos dizer que o valor da venda é de 1200,00 então ele vai pegar esse valor bruto descontar a taxa de administração e dividir o valor liquido pelo número de parcelas. Pronto.
As parcelas são fixas, entendeu.

Aguardo retorno.


Abraços

[Mauro Coutinho]

Patropi, até ai eu entendi, não segui a rotina para saber se os calculos estão corretos, e como você ja tem a rotina que faz esses calculos, a não ser que esses calculos estão incorretos, eu gostaria de saber em qual das linhas que postei acima me é retornado os Valores Corretos ?

Por exemplo, se eu usar o Valor de 1200,00 Cartão Master, Taxa 2,5% em 3 parcelas:
Tenho :
Na coluna H - Valor das Parcelas :
3 x 400,00

Na coluna J - Valor Liquido, conforme a modificação que fiz :
3 x 390,00

Se usar o calculo antigo (destino.Cells(j, 10).Value = wvalor * (1 - wtaxa * k))
1 x 390,00 / 1 x 380,00 e 1 x 370,00

A rotina completa modificada segue abaixo:

Código: Selecionar todos

Sub cria_fluxo()

Dim Area As Range
Dim destino As Range
Call Limpa_fluxo
Set Area = Worksheets("Operações").Range("a2:f2000")
Set destino = Worksheets("Fluxo").Range("a2:f6000")
j = 1
i = 1
While Area.Cells(i, 1).Value <> ""
    For k = 1 To 6
        destino.Cells(j, k).Value = Area.Cells(i, k).Value
    Next k
    num_parcelas = Area.Cells(i, 7).Value
    data_opera = Area.Cells(i, 3).Value
    wtaxa = Area.Cells(i, 5).Value
    wvalor = Area.Cells(i, 4).Value / num_parcelas
    destino.Cells(j, 8).Value = wvalor
    destino.Cells(j, 9).Value = data_opera + Area.Cells(i, 6).Value
    
    'destino.Cells(j, 10).Value = wvalor * (1 - wtaxa)
    vlrLiq = wvalor * (1 - wtaxa)
    
    destino.Cells(j, 10).Value = vlrLiq
    destino.Cells(j, 7).Value = 1
        
        For k = 2 To num_parcelas
     j = j + 1
      For z = 1 To 6
          destino.Cells(j, z).Value = Area.Cells(i, z).Value
      Next z
      destino.Cells(j, 6).Value = k * 30
      destino.Cells(j, 7).Value = k
      destino.Cells(j, 8).Value = wvalor
      destino.Cells(j, 9).Value = data_opera + 30 * k
      
      'destino.Cells(j, 10).Value = wvalor * (1 - wtaxa * k)
      destino.Cells(j, 10).Value = vlrLiq
     Next k
    j = j + 1
    i = i + 1
Wend

Call Marca_fluxo
Call Atualiza_resumo

End Sub

aguardo retornos.
[]s

[Patropi]

Muito bem Mauro Coutinho, substituí o código antigo pelo teu código novo e deu certo.

Vc me quebrou um galhão.

Fico muito grato.

Obrigado.


Obs. Agora que eu vi que vc é de São José dos Pinhais, eu sou de Campo Mourão.
Abraços

[Mauro Coutinho]

Muito bem Mauro Coutinho, substituí o código antigo pelo teu código novo e deu certo.
Vc me quebrou um galhão.
Fico muito grato.
Obrigado.

Patropi, só para ficar claro para mim, se os valores corretos são as 3x390,00, então o erro estava nessa linha, aonde Multiplicamos pela Variável K:
'destino.Cells(j, 10).Value = wvalor * (1 - wtaxa * k)

Se for isso, não precisariamos ter feitos as modificações acima, fazendo somente uma, que seria eliminar o K da linha acima, ficando igual a primeira instrução. :
destino.Cells(j, 10).Value = wvalor * (1 - wtaxa)

Seria isso mesmo ?

[]s

[Alex Sandro]

Caro Alex Sandro, eu baixei a planilha e ela esta funcionando só que ao invés de descontar a taxa de administração ela esta adicionando. Vc só teria que corrigir este detalhe.

Eu entendi no início que, como seria uma venda baseada em cartões de crédito com os juros das administradoras, você iria gerar as parcelas para serem cobradas dos clientes quando fosse feita as parcelas.
Mas ainda bem que temos o grande Mauro Coutinho que sempre dedica uma parte do seu tempo para nos ajudar. Obrigado a todos e acho que fica encerada a dúvida então.

Abraços.