Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
Avatar do usuário
Por pasedo
Posts Avatar
#29178
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
Você não está autorizado a ver ou baixar esse anexo.
#29283
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord