Este fórum está sendo desativado

[danilov]

Boa noite!

Eu criei uma planilha para organizar gastos pessoais, e trabalhei toda a parte do macro em um determinado mês (janeiro). Agora que terminei tudo o que eu tinha que fazer, gostaria de replicar essa aba Janeiro, criando as abas dos demais meses do ano (fevereiro, março e assim por diante).

Existe alguma forma que eu crio uma nova aba que eu não precise ficar alterando toda a formatação do macro?

Exemplo: Em cada linha eu tenho um macro de limpar toda a linha, e no código desse macro está com o nome de 'Jan' que é o nome da minha aba (janeiro), como eu criaria uma nova aba 'Fev' e a macro mudasse a formatação para 'Fev', não alterando na aba 'Jan' quando eu a utilizar?

Desde já agradeço.

[osvaldomp]

Segue uma ideia, veja se aproveita.

O código abaixo faz 12 cópias de uma planilha de nome Modelo e nomeia as cópias com os nomes dos meses do ano.
Então nomeie uma planilha como Modelo e nessa planilha coloque os elementos de interesse como cabeçalhos e formate a planilha como desejar. Não coloque dados nela. Em seguida rode o código.

Código: Selecionar todos

Sub CopiaRenomPlan()
 Dim i As Long
  Application.ScreenUpdating = False
   For i = 1 To 12
    Sheets("Modelo").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Format(DateSerial(1, i, 1), "mmm")
   Next i
  Application.ScreenUpdating = True
End Sub

[danilov]

Legal Osvaldo, vou fazer o teste. Caso não der certo, e eu for fazer na "unha", tem como eu duplicar um módulo de macro criado? Ou só dá para criar um em branco?

[mprudencio]

Não faça uma aba para cada mes.

Faça tudo em uma unica aba e depois faça calculos como tabela dinamicas para obter os totais de cada item se for este o caso.

Com tudo centralizado pode ter uma macro que gere um relatorio em separado por datas.