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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4029
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30552
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17758
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440587
Aprenda MS Excel VBA

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