Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel vba worksheet adiciona nova planilha verifica existencia

Excel vba worksheet adiciona nova planilha verifica existencia

E-mail Imprimir PDF

Saberexcel - o site das macros

Excel permite criar novas planilhas em um número de maneiras diferentes. E se você deseja criar uma nova planilha e nomeá-la em um único passo? A maneira mais fácil de fazer isso é com uma macro. O seguinte é um exemplo de uma macro que irá pedir um nome e, em seguida, criar uma planilha e dê a essa planilha o nome fornecido.

Sub Adiciona_nome_nova_planiha()
    Dim NovoNome As String
    NovoNome = InputBox("Digite o nome para nova Planilha?")
    If NovoNome <> "" Then
        Sheets.Add Type:=xlWorksheet
        ActiveSheet.Name = NovoNome
    End If
End Sub


Esta macro funciona bem, enquanto o usuário digita um nome de planilha que é "legal" para os padrões do Excel. Se o novo nome não for aceitável para o Excel, a folha de  planilha ainda é adicionada com um número, mas não é renomeado como esperado, voce digita o novo nome.
Há como voce antecipar o código para retornar possíveis erros na nomeação de uma planilha. O código exemplo a seguir irá adicionar a planilha, mas continuo pedindo um nome de planilha, se uma uma incorreta é fornecido.


Sub Adiciona_novo_nome_planiha2()
    Dim PlanilhaAtual As String
    PlanilhaAtual = ActiveSheet.Name

    'Adiciona nova planilha
    Sheets.Add

    'verificando se o nome é valido
    On Error Resume Next

     'Receba o novo nome
     ActiveSheet.Name = InputBox("Nome para nova folha de planilha?")

    'Pergunta novamente se o nome é um nome válido
    Do Until Err.Number = 0
        Err.Clear
        ActiveSheet.Name = InputBox("Tente novamente!" _
          & vbCrLf & "Nome de planilha, esta planilha já existe" _
          & vbCrLf & "Por favor digite outro nome para nova planilha")
    Loop
    On Error GoTo 0

'Volte para onde você começou
'Não é necessário se você não quer voltar
'para onde você começou, mas quer ficar
'sobre a nova planilha

Sheets(PlanilhaAtual).Select

End Sub

 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel

 

Última atualização em Sex, 26 de Agosto de 2011 09:11  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA