Excel Controle de recebíveis conveniência.

[GENECIOFICIAL]

Boa tarde!

 

Conforme o anexo, solicito a sua ajuda.

CONT-RECEB-PERG.xlsx

[Midori]

@GENECIOFICIAL Remova as linhas com a soma na tabela do controle, a macro vai informar ao lado do último pagamento quando o total acumulado chegar no saldo.

 

Sub Controle()
    Dim Pago    As Range
    Dim Saldo   As Range
    Dim Total   As Double
    Dim Debito  As Integer
    
    Set Saldo = [B1]
    
    For Each Pago In [D13:D25]
        Total = Total + Pago.Value
        If Total >= Saldo.Value Then
            Debito = Debito + 1
            Pago(1, 2) = "DEBITO " & Debito
            Total = 0
            Set Saldo = Saldo(2)
        End If
    Next Pago
End Sub

 

[GENECIOFICIAL]

@Midori Bom dia! 

Muito obrigado pela solução apresentada.

 

Atende parcialmente a minha necessidade.

 

Faltou registrar na coluna D, as mensagens conforme a data do valor parcial pago.

No dia 05/06/2022  pagou 

No dia 14/06/2022  pagou

 

Outra informação, a primeira dívida foi paga em 4 pagamentos, porém poderia ser pago em 9, 10 ou 12 pagamentos a fórmula deverá contemplar o período.

 

Por favor é possível fazer os ajustes.

 

Grato.

[Midori]

5 horas atrás, GENECIOFICIAL disse:

Faltou registrar na coluna D, as mensagens conforme a data do valor parcial pago.

No dia 05/06/2022  pagou 

De onde vem a data? Não entendi o que faltou na coluna D. Sobre a quantidade de pagamentos a macro vai identificar isso no cálculo do total.

[GENECIOFICIAL]

Na dia 05/06/2022, foi pago o valor de 1.356,00  quando digitar o valor na coluna D, na coluna C automaticamente deverá apresentar a mensagem com a data do pagamento efetuado. No dia 05/06/2022  pagou

 

O primeiro débito foi pago em 4 vezes, também poderia ser pago em 8, 10 ou 12 vezes.

[OreiaG]

@GENECIOFICIAL veja se a solução do arquivo anexo lhe serve.

 

 

 

CONT-RECEB-PERG(2).rar

[GENECIOFICIAL]

Bom dia!

 

A sua metodologia resolve a minha necessidade.

 

Muito obrigado.