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)