Loliveira103

Osvaldo, me desculpe, realmente acabei me enrolado. Fica a dica para usuários que possam utilizar o código citado: Salvem a pasta de trabalho antes de utilizar a macro!!! Eu estava utilizado a macro antes de salvar e por isso estava em dúvida sobre ela não salvar os dados da pasta anterior. Por fim gostaria da sua ajuda com o post#3

Sim, eu tenho conhecimento disso. Porém ao executar o comando completo (mesmo que o outro arquivo não esteja mais aberto) ele modifica os dados do arquivo anterior e não o do arquivo criado pela linha de "Salvar como". Exemplo: Executei a macro no arquivo 2018. O "Salvar como" abre, salvo como 2019. O Excel fecha o arquivo 2018 e mantém aberto o 2019. Porém as linhas que limpariam os dados são executadas no arquivo 2018 também! Isso! E no caso cada arquivo Excel seria um ano.

Isso! Desculpe o erro cometido. Comandos que tentei montar para executar o procedimento citado. Essa linha (Application.Dialogs(xlDialogSaveAs).Show nomeArq & ".xls") salva uma nova pasta e também a pasta já aberta (porém com as modificações feitas). No caso seria para cada ano, a partir de 2018.

Certo, não havia pensado por esse lado! Eu preciso do seguinte: Tenho uma planilha do ano de 2018 com os anos e seus respectivos dados e ao chegar no mês de Dezembro a pessoa que irá utilizar precisará "fechar" o ano e abrir um novo. O que preciso é de uma macro que zere a planilha e abra um novo ano sem afetar os dados salvos do ano anterior Acontece que ao executar alguns comandos testados, o Excel exclui os dados da planilha anterior e salva ambas as pastas da mesma forma (sem dados). Estou tentando automatizar esse processo, pois a pessoa que me pediu não tem conhecimentos com informática e isso iria, ao meu ver, tornar o processo de contabilidade mais fácil. Segue o arquivo base em .rar (o fórum não permite subir o arquivo xlsm). Versão Plus 2013 do Excel! Obrigado pela ajuda base.rar

Osvaldo, Aproveitando sua ajuda: Tenho essa macro para gerar novos meses, porém sempre que clico no botão cancelar do box me gera um erro. Como poderia solucionar isso? Sub DuplicaERenomeia() 'primeiro, faz a cópia da planilha Sheets(1).Copy After:=Sheets(ThisWorkbook.Worksheets.Count) 'como foi movida para o final, pega a última Dim newSheet As Worksheet Set newSheet = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) newSheet.Name = InputBox("O nome da nova planilha é:", "Renomeando...", newSheet.Name) MsgBox "Feito!" End Sub Quanto a macro anterior, obrigado pela sugestão! Não me atendeu como esperava, mas solucionei de outra forma.

Olá pessoal, Eu estou trabalhando numa planilha que trabalha com os doze meses do ano, nela preciso de uma macro que sempre que a pessoa necessite fechar o ano, ela salve o novo e ano e zere essa planilha (Tanto os dados quanto os meses (abas)). Eu cheguei a estrutura uma macro, porém sempre que eu executo ela, os meses (abas) são apagadas no ano anterior também. Queria que os meses, por exemplo, do ano 2018 ficassem intactos e quanto ao ano de 2019 fosse zerada até janeiro. Ressalto que a pessoa que irá utilizar essa planilha, ficará por longos anos com ela, não se limitando aos anos de 2018 e 2019. Segue o que já foi tentado Sub SalvarNovoAno() Application.Dialogs(xlDialogSaveAs).Show nomeArq & ".xls" Range("G10:W40").Select - Área dos dados na qual a pessoa irá digitar Selection.ClearContents Range("Tabela3[VALORES]").Select - Área dos dados na qual a pessoa irá digitar Selection.ClearContents Call ZerarPlanilhaNovoAno End Sub Sub ZerarPlanilhaNovoAno() Dim j As Long Dim k As Long Application.ScreenUpdating = False Application.DisplayAlerts = False j = Worksheets.Count For k = j To 2 Step -1 Sheets(k).Delete Next k Application.ScreenUpdating = True Application.DisplayAlerts = True Sheets(1).Select Sheets(1).Name = "Janeiro" Range("A1").Select End Sub Abraços