needfsw,

Boa noite!

Vi seu arquivo e código superficialmente. Até onde entendi, o que você precisa fazer para que o valor da última parcela, somado às demais parcelas feche com o valor total da venda é, no seu código, ao receber a quantidade de parcelas, retirar uma parcela (que será a última). Desse modo, se o usuário informar que quer pagar em 6 parcelas, por exemplo, dentro do código, reduzindo 1, sua quantidade de parcelas deverá ser de apenas 5. Desse modo,você vai dividir o valor a pagar normalmente pela quantidade total de parcelas (6) para saber o valor das CINCO PARCELAS e deve armazenar o valor total das cinco parcelas iguais. Do valor total a pagar parcelado em 6 vezes, você então subtrai o valor total das 5 parcelas e armazena isso numa variável chamada, por exemplo, última parcela. Daí é só inserir o conteúdo dessa variável no ´[ultimo lançamento como sendo o valor da última parcela.

entendi mas não consegui fazer através do vba.

O que o vagner explicou é algo mais ou menos assim

Dim UltimaParcela as Currency
Dim NumeroParcela as long
Dim Valor as Currency
Dim ValorParcela as Currency



Valor = txtvalor.value
NumeroParcela = txtNumeroParcela.value
ValorParcela = Valor/NumeroParcela
UltimaParcela = Valor - ValorParcela*(NumeroParcela - 1)

Codigo para lançar as parcelas ate a penultima.

Codigo para lançar a ultima parcela

Private Sub inserirdados()

    Set tbldados = shtdados.ListObjects("tbldados")
    valortotal = CDbl(txtvalor)
    descbandeira = cbobandeira
    descforma = cboforma
    taxa = WorksheetFunction.VLookup(descbandeira, shtinicial.Range("tblbandeira"), cboforma.ListIndex + 2, 0)
    datavenda = txtdata
    Select Case cboforma
        Case "Débito", "Crédito à Vista"
            nparcelas = 1
        Case "Crédito Parcelado"
            nparcelas = cboparcelas.ListIndex + 2
    End Select
    'totalacumulado = 0
    For i = 1 To nparcelas
        totalbruto = Round(valortotal / nparcelas, 2)
        'totalacumulado = totalacumuldado + totalbruto
            If i = nparcelas Then
               ' diferenca = totalacumulado - valortotal
                totalbruto = totalbruto - diferenca
            End If
        totalliquido = Round(totalbruto * (1 - taxa), 2)
        datarecebimento = IIf(cboforma = "Débito", DateAdd("d", i, datavenda), DateAdd("m", i, datavenda))
        descparcela = i & " de " & nparcelas
        Set novolancamento = tbldados.ListRows.Add
        
        novolancamento.Range(1, 1) = CLng(TXTID)
        novolancamento.Range(1, 2) = descparcela
        novolancamento.Range(1, 3) = descbandeira
        novolancamento.Range(1, 4) = descforma
        novolancamento.Range(1, 5) = taxa
        novolancamento.Range(1, 6) = CDate(datavenda)
        novolancamento.Range(1, 7) = CDate(datarecebimento)
        novolancamento.Range(1, 8) = totalbruto
        novolancamento.Range(1, 9) = totalliquido
        
        
    Next i
    MsgBox "Venda Resgistrada com Sucesso", vbInformation
End Sub

"esse é o código que utilizei aonde eu mudo?"

tentei mudar e não deu certo, agora não mais nem lançando

Corriga essa linha

totalacumulado = totalacumuldado + totalbruto

Minha sugestão: Não utilize variaveis sem fazer as devidas declarações, isso pode induzir ao erro como o acima alem de outros problemas como a dificuldade para uma possivel manutenção no seu codigo.

So encontrei o erro apos declarar as variaveis.