Boa tarde!!
Vamos tentar por etapa.
A
primeira parte.
como fazer uma macro que apague os dados desta planilha
Código: Selecionar todosOption Explicit
Sub InserirParcelado()
Dim sDescrição As String
Dim dValor As Double
Dim lParcelas As Long
Dim lLast As Long
Dim lRow As Long
Dim dtInício As Date
Dim lastrow As Long
'Range("A2:E50000").ClearContents 'Para limpar descomente essa linha
sDescrição = InputBox("Digite a descrição do insumo:")
dValor = InputBox("Digite o valor")
lParcelas = InputBox("Digite o número de parcelas:")
dtInício = InputBox("Digite a data de início:")
If sDescrição = "" Or dValor = 0 Then Exit Sub
lLast = Cells(Rows.Count, "A").End(xlUp).Row
For lRow = lLast + 1 To lLast + lParcelas
Cells(lRow, "A") = DateSerial(Year(dtInício), Month(dtInício) + lRow - lLast - 1, 1)
Cells(lRow, "B") = sDescrição
Cells(lRow, "C") = lRow - lLast & " de " & lParcelas
Cells(lRow, "D").FormulaR1C1 = Cells(lRow, "D").Offset(-1).FormulaR1C1
Cells(lRow, "E") = dValor / lParcelas
Next lRow
' Adapção para incluir a formula
Range("D2").Formula = "=IF(C2="""",B2,B2& "" - Parcela "" & C2)"
Range("D2").AutoFill Destination:=Range("D2:D" & lLast)
Range("D2:D" & lLast).Value = Range("D2:D" & lLast).Value
ThisWorkbook.RefreshAll
End Sub
A
segunda parte.
e ao mesmo tempo limpe as tabelas dinamicas e quando eu quiser gerar as parcelas novamente elas sejam refeitas
Nesta parte, grave uma Macro para manipular as Tabelas Dinâmicas.
Depois de testar avise se resolveu.
Att
Espero ter Ajudado.
Se a mensagem foi util Favor
Clicar na mãozinha.
Quando necessário, lembre se de marcar o tópico como
[RESOLVIDO].
Tenha um bom dia
