Olá,

Tenho um formulário que gera várias parcelas e envia isso para uma tabela, porém estou tentando enumerar as parcelas mas não estou conseguindo!
Exemplo: Vamos supor que irei gerar 5 parcelas, quero que cada registro fique com o respectivo número da parcela, assim 1/5 (primeira parcela de cinco), 2/5 e assim por diante.

Veja o código:

Range("parcela").Value = ""
ThisWorkbook.Worksheets("Historico").Select
vVencimento = CDate(PrimeiroVencimento.Value)
TextoParcela = Me.NumeroParcela.Value
tParcelas = CInt(NumeroParcelas.Text) - 1 'quantidade de parcelas
Range("contar") = Range("contar") + 1


Call LinhaVazia
    ActiveCell.Offset(0, 0) = NomeCliente.Text
    ActiveCell.Offset(0, 1) = "1" & "/" & Me.NumeroParcelas
    ActiveCell.Offset(0, 2) = CDbl(ValorParcela.Text)
    ActiveCell.Offset(0, 3) = Me.PrimeiroVencimento
    ActiveCell.Offset(0, 6) = CDbl(Cadastrar_vendas.valor_da_venda.Text)
    Range("contar") = Range("contar").Text - 1
    Me.NumeroParcela.Value = "1"
    
For i = 1 To tParcelas
Call LinhaVazia
    
    vVencimento = DateAdd("M", 1, vVencimento)
    TextoParcela = Val(Me.NumeroParcela.Text) + 1
    ActiveCell.Offset(0, 0) = NomeCliente.Text
    ActiveCell.Offset(0, 1) = NumeroParcela & "/" & Me.NumeroParcelas
    ActiveCell.Offset(0, 2) = CDbl(ValorParcela.Text)
    ActiveCell.Offset(0, 3) = vVencimento
    ActiveCell.Offset(0, 6) = CDbl(Cadastrar_vendas.valor_da_venda.Text)
    Range("contar") = Range("contar").Text - 1
 Next