|
 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
|