Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel vba worksheet insere uma planilha e verifica existencia

Excel vba worksheet insere uma planilha e verifica existencia

E-mail Imprimir PDF

Saberexcel - site das macros

Essa macro cria uma planilha chamada
[Saberexcel_Contas]
se caso a planilha já existir, emite uma mensagem se voce deseja preservar ou deletar
a antiga planilha, se sim, deletará a planilha antiga e inserirá nova planilha, se não,
preservará a planilha antiga, selecionando-a.

 Sub Criando_nova_planilha_verifica_existencia()
    Dim vPlanilha As Worksheet, vResposta As Variant
    On Error GoTo Erro_Plans

       'criando uma nova planilha chamada Saberexcel_contas
       Set vPlanilha = Worksheets.Add
       With vPlanilha
          .Name = "Saberexcel_Contas"
          .Cells(1.1).Select
          .Activate
      End With
      Exit Sub

Erro_Plans:

      'Esse erro ocorrerá se planilha a ser criada for duplicada, isto é se existir
    
  If Err.Number = 1004 Then
       
'emite uma mensagem se a planilha a ser criada já existir no livro
         vResposta = MsgBox("Já existe no livro uma planiha chamada 'Saberexcel_Contas' , " & _
              "clique em 'Ok' para continuar a criação de uma nova planilha e deletar a planilha existente, " & _
              "ou clique 'Cancelar' para ir para a planilha antiga.", _
              vbOKCancel, "Planilha Duplicada - Saberexcel - Excel VBA Estudos®")

          If vResposta = vbOK Then
             
'deletando a planilha antiga
              Application.DisplayAlerts =
False  'para nao emitir aquela mensagem do windows "Deseja....."
              Worksheets("Saberexcel_Contas").
Delete
              Application.DisplayAlerts = True

              'renomeando e ativando a nova planilha
              With vPlanilha
                  .Name = "Saberexcel_Contas"
                  .Cells(1.1).Select
                  .Activate
              End With
          Else
           
   'cancela a operação, deletando a nova planilha
              Application.DisplayAlerts = Fal
              vPlanilha.Delete
             Application.DisplayAlerts = True
      
       'ativando a planilha existente(antiga)
             Worksheets("Saberexcel_Contas").Activate
         End If
     End If
 End Sub

 


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

  Baixe o exemplo de planilha contendo a macro acima
vba worksheet insere uma planilha e verifica existencia (26.69 kB 2010-12-21 18:56:52)

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

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_counterHoje4963
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana24469
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38198
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461027
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