Inserir aba com tabela e formulas com macro - [Resolvido]

[Jefers0n]

Boa tarde,

Quero fazer um trabalho e gostaria de fazer uma coisa, tenho que fazer uma simpes folha de pagamento em excel, queria criar uma macro associada a um botao na primeira aba(Plan1), que quando pressionado fosse criada uma nova aba com a tabela pronta com todas as formulas(tabela identica a que tem na plan2). Na verdade e so criar uma aba e fazer uma c[opia exata da tabela da plan2.... criando varias outras abas, de acrodo com a necessidade.

Espero que tenham entendido.

Grato,

Jeferson Neves

Editado Setembro 6, 2009 por Jefers0n

[Paulo Semblano]

Para inserir uma cópia da planilha atual por último:

[coode]Sub TESTE1()

Dim NOMEPLAN As String

NOMEPLAN = ActiveSheet.Name

Sheets(NOMEPLAN).Copy After:=Sheets(Sheets.Count)

End Sub

Para inserir uma cópia da Plan2 por último:

Sub TESTE2()
Sheets("Plan2").Copy After:=Sheets(Sheets.Count)
End Sub

[Jefers0n]

Para inserir uma cópia da planilha atual por último:

Sub TESTE1()
Dim NOMEPLAN As String
NOMEPLAN = ActiveSheet.Name
Sheets(NOMEPLAN).Copy After:=Sheets(Sheets.Count)
End Sub

Para inserir uma cópia da Plan2 por último:

Sub TESTE2()
Sheets("Plan2").Copy After:=Sheets(Sheets.Count)
End Sub

Bom dia, muito obrigado, me ajudou bastante.

Grato,

Jeferson Neves