Este fórum está sendo desativado

[pasedo]

Ola, bom dia, pessoal tem como fazer uma macro que apague os dados desta planilha e ao mesmo tempo limpe as tabelas dinamicas e quando eu quiser gerar as parcelas novamente elas sejam refeitas com os dados de novo? grato

[pasedo]

Boa tarde, alguém sabe como?

[alexandrevba]

Boa tarde!!

Vamos tentar por etapa.

A primeira parte.

como fazer uma macro que apague os dados desta planilha

Código: Selecionar todos

Option 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

[pasedo]

alexandrevba, obrigado, valeu mesmo.