Ir para conteúdo
Fórum Script Brasil

Rodolpho dos Santos

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Rodolpho dos Santos

Rodolpho dos Santos's Achievements

0

Reputação

  1. Funcionou, muito obrigado. Estava faltando o "Application" para fazer funcionar o RoundDown. Ficou assim: parcelado = Application.WorksheetFunction.RoundDown((numValor / cxcParcelas), 2) Ele fez a parcela da divisão do valor digitado pelo numero de parcelas e arredondou para baixo Obrigado mesmo Funcionou, muito obrigado. Estava faltando o "Application" para fazer funcionar o RoundDown. Ficou assim: parcelado = Application.WorksheetFunction.RoundDown((numValor / cxcParcelas), 2) Ele fez a parcela da divisão do valor digitado pelo numero de parcelas e arredondou para baixo Obrigado mesmo
  2. Bom dia Eu pesquisei nos topicos e não encontrei a solução para o que estou precisando no meu serviço Eu preciso por exemplo pegar um valor e dividir por uma quantidade de parcelas e caso tenha diferença a primeira tem que ficar com a diferença e as demais com parcelas iguais Exemplo: Vou digitar um cartão de 1.000,00 que foi parcelado em 7 vezes terei que ficar assim: 142,90 142,85 142,85 142,85 142,85 142,85 142,85 Porém esta ficando assim: 142,84 142,86 142,86 142,86 142,86 142,86 142,86 Segue o codigo parcelado = numValor / cxcParcelas variavel = 0 For i = 1 To cxcParcelas Sheets("Cartao").Select Range("A2000").End(xlUp).Select With ActiveCell .Offset(1, 0).Value = txtCContabil .Offset(1, 1).Value = txtCC .Offset(1, 2).Value = 10 .Offset(1, 3).Value = txtDepto .Offset(1, 4).Value = "0A" If variavel = 0 Then Total = Format(numValor, "#,##0.00") menosparcela = cxcParcelas - 1 parceladof = Format(parcelado, "#,##0.00") subtotal = menosparcela * (parceladof) subtotal = Format(subtotal, "#,##0.00") soma = Total - subtotal .Offset(1, 5).Value = soma variavel = 1 Else .Offset(1, 5).Value = CDec(parcelado) parcelado = Format(parcelado, "#,##0.00") Se alguém puder me ajudar Grato
×
×
  • Criar Novo...