Inserindo Planilha

Abaixo código muito útil para inclusão de planilhas, nele mostramos como é fácil adicionar uma nova planilha e renomear automaticamente.

Não esqueça que este código tem que ser colocado dentro de um módulo no editor de VBA => ALT + F11 => insira um módulo e dentro do módulo cole o código, sendo assim você pode associar a um botão em suas planilhas.

Sub InserirPlanilhaComNome()
Dim nome
Sheets.Add ' inseri uma nova planilha
nome = InputBox("Informar nome da nova planilha") 'solicita o nome da nova planilha
ActiveSheet.Name = nome ' renomeia a planilha
End Sub

6 comentários:

Anônimo disse...

O Método 'Add' do objeto Sheets falhou.
---------------------------------------
Sub InserirPlanilhaComNome()
Dim nome
Sheets.Add ' inseri uma nova planilha
nome = InputBox("Informar nome da nova planilha") 'solicita o nome da nova planilha
ActiveSheet.Name = nome ' renomeia a planilha
End Sub
-----------------------------------

21 de janeiro de 2010 às 17:51
André disse...

Olá! Muito bom seu blog!!

Então, teria como explicar como faço pra copiar os dados para a mesma planilha, mantendo tudo como está, isto é, com a opção de renomear e tudo mais?

Obrigado e parabéns pelo trabalho!

29 de janeiro de 2011 às 12:12
Unknown disse...

Muito bom mesmo!!

Tomei a liberdade de alterar e poder nomear e inserir várias planilhas dinamicamente.

Sub InserirPlanilhaComNome()
Dim nome1
Dim nome2
Dim nome3
Dim nome4
Dim nome5
'A sequencia dos nomes será escrito da ultima para primeira planilha.
nome5 = "4"
ActiveSheet.Name = nome5
Sheets.Add
nome4 = "3"
ActiveSheet.Name = nome4
Sheets.Add
nome3 = "2"
ActiveSheet.Name = nome3
Sheets.Add
nome2 = "1"
ActiveSheet.Name = nome2
Sheets.Add
nome1 = "Modelo"
ActiveSheet.Name = nome1
End Sub

29 de janeiro de 2013 às 00:27
Unknown disse...

Muito bom mesmo!!

Tomei a liberdade de alterar e poder nomear e inserir várias planilhas dinamicamente.

Sub InserirPlanilhaComNome()
Dim nome1
Dim nome2
Dim nome3
Dim nome4
Dim nome5
'A sequencia dos nomes será escrito da ultima para primeira planilha.
nome5 = "4"
ActiveSheet.Name = nome5
Sheets.Add
nome4 = "3"
ActiveSheet.Name = nome4
Sheets.Add
nome3 = "2"
ActiveSheet.Name = nome3
Sheets.Add
nome2 = "1"
ActiveSheet.Name = nome2
Sheets.Add
nome1 = "Modelo"
ActiveSheet.Name = nome1
End Sub

29 de janeiro de 2013 às 00:28
Unknown disse...

Muito bom mesmo!!

Tomei a liberdade de alterar e poder nomear e inserir várias planilhas dinamicamente.

Sub InserirPlanilhaComNome()
Dim nome1
Dim nome2
Dim nome3
Dim nome4
Dim nome5
'A sequencia dos nomes será escrito da ultima para primeira planilha.
nome5 = "4"
ActiveSheet.Name = nome5
Sheets.Add
nome4 = "3"
ActiveSheet.Name = nome4
Sheets.Add
nome3 = "2"
ActiveSheet.Name = nome3
Sheets.Add
nome2 = "1"
ActiveSheet.Name = nome2
Sheets.Add
nome1 = "Modelo"
ActiveSheet.Name = nome1
End Sub

29 de janeiro de 2013 às 00:29
Unknown disse...

Muito bom mesmo!!

Tomei a liberdade de alterar e poder nomear e inserir várias planilhas dinamicamente.

Sub InserirPlanilhaComNome()
Dim nome1
Dim nome2
Dim nome3
Dim nome4
Dim nome5
'A sequencia dos nomes será escrito da ultima para primeira planilha.
nome5 = "4"
ActiveSheet.Name = nome5
Sheets.Add
nome4 = "3"
ActiveSheet.Name = nome4
Sheets.Add
nome3 = "2"
ActiveSheet.Name = nome3
Sheets.Add
nome2 = "1"
ActiveSheet.Name = nome2
Sheets.Add
nome1 = "Modelo"
ActiveSheet.Name = nome1
End Sub

29 de janeiro de 2013 às 00:31

Postar um comentário