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