Olá Pessoal preciso de uma ajuda para colocar no script abaixo as datas de vencimento com o mesmo dia e meses subsequentes grato.
Option Explicit
Private Sub btExecuta_Click()
Dim ln As Long 'Controlar linha de parcelas
Dim col As Integer 'Coluna onde sera inserida
Dim qtdParcelas As Byte 'Controlar parcelas
Dim valor As Currency 'Valor total
Dim valorParcela As Currency 'Valor de cada parcela
Dim diferença As Currency 'Armazena diferença nos valores
Dim W As Worksheet
Dim A As Integer 'Variável do Loop
Set W = Plan1
W.Range(“D:E”).Clear 'Apaga valores anteriores
'Atalho ctrl+barra de espaço completa o nome da variável
'Capturar valores do problema
'----------------------------------------------------
qtdParcelas = W.Range(“B1”).Value
valor = W.Range(“B2”).Value
ln = 1
col = 4
'Valor da Parcela
'----------------------------------------------------
valorParcela = Round(valor / qtdParcelas, 2)
'Valor sem casas decimais: FIX
'Valor com casas decimais: ROUND
'Conferir se a soma das parcelas são iguais ao valor a ser parcelado
'Calcular a diferença se existir
'--------------------------------
If valor <> (valorParcela * qtdParcelas) Then
diferença = valor - (valorParcela * qtdParcelas)
End If
'Montar a lista na planilha
'---------------------------
For A = 1 To qtdParcelas
W.Cells(ln, col).Value = "'" & A & "/" & qtdParcelas
'Rotina para adicionar a diferença
'---------------------------------
If A = qtdParcelas Then
W.Cells(ln, col + 1).Value = valorParcela + diferença
Else
W.Cells(ln, col + 1).Value = valorParcela
End If
ln = ln + 1
Next
MsgBox “Pronto”
End Sub
Sub calcula_parcela()
End Sub