1.consigo gerar as parcelas
2.consigo lança-las em cada planilha
3.MEU PROBLEMA: a última parcela está repetindo após o fim.
No seu projeto há um código Worksheet_Change em cada planilha e um código Sub ParcelamentoMês para cada mês, totalizando 24 códigos considerando o período de um ano.
Se você quiser testar outra solução que utiliza um único código, mantendo a estrutura do seu arquivo, instale o código abaixo no módulo de "EstaPasta_de_trabalho" e remova os códigos existentes nos módulos de todas as planilhas. Os seus códigos Sub ParcelamentoMês não serão utilizados nesta solução.
O código será executado ao lançar o número de parcelas na coluna 'F'.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LR As Long, k As Long, m As Long, x As Long, i As Long
If Target.Column = 6 And Target.Value <> "" Then
On Error GoTo kno
Application.EnableEvents = False
m = Target.Value: k = ActiveSheet.Index
For i = k + 1 To k + m
With Sheets(i)
LR = .Cells(Rows.Count, 1).End(3)(2).Row
.Cells(LR, 1).Resize(, 7).Value = _
Cells(Target.Row, 1).Resize(, 7).Value
.Cells(LR, 6) = .Cells(LR, 6) - x
x = x + 1
End With
Next i
kno:
Application.EnableEvents = True
End If
End Sub
Postado : 27/05/2016 3:06 pm