Condição de parcelamento

2024 - VBA & Macros

Post Recente por laennder 10 anos atrás

3 Posts

2 Usuários

0 Reactions

1,057 Visualizações

RSS

CHAPARRAL

(@chaparral)

Posts: 1

New Member

Topic starter

Prezados,
Busco uma solução para distribuir datas de parcelamento usando VBA no excel. Por exemplo, se faço uma compra em 72 parcelas com a data da 1ª para o dia 18/04/2015 gostaria que o aplicativo retornasse os posteriores pagamentos adicionando 30 dias a cada parcela até o fim, ou seja, a 2ª seria para o dia 18/05/2015 e assim sucessivamente.
Obrigado

Postado : 18/04/2015 5:21 am

laennder

(@laennder)

Posts: 62

Trusted Member

Segue. Planilha tb em anexo.

Obs. Adicionei sempre 1 mês. Se quiser que sejam 30 dias exatos você pode trocar onde está Cells(i, 1) = DateAdd("m", i - 1, CDate(DataInicio)) por Cells(i, 1) = CDate(DataInicio) + 30 * (i - 1)

Sub Parcelar()

Dim DataInicio As String

DataInicio = InputBox("Informe a data de início")

If Not IsDate(DataInicio) Then MsgBox "Data Inválida": Exit Sub

For i = 1 To 72

Cells(i, 1) = DateAdd("m", i - 1, CDate(DataInicio))

Next

End Sub

Parcelamento.zip

Laennder Alves
Microsoft MVP

Postado : 18/04/2015 5:53 am