Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, pergunta se voce deseja ou não inserir uma planilha personalizada com o nome formatado com data e hora atual

Sub Adicionar_planilha_com_dia_hora()

Dim Resposta As VbMsgBoxResult
Dim sht As Worksheet
Resposta = MsgBox("Deseja inserir nova planilha com o nome da data e hora atual?" _
, vbQuestion + vbYesNoCancel)
If Resposta = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-dd-mmm-yyyy_hhmmss")
ElseIf Resposta = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Planilha inserida com sucessso!! [ " & ActiveSheet.Name & "]", vbInformation, "http://www.saberexcel.com"
End Sub

Aplicativo Microsoft Excel VBA --(SaberExcel)--

Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, insere uma nova folha de planilha na abertura do livro, observem que também vai inserir alguns dados
na nova planilha adicionada, veja na macro abaixo ou baixe o exemplo e teste.

Sub Adiciona_Planilha_insere_dados()
Sheets.add
ActiveSheet.Range("F10") = "Esta planilha foi adicionada na abertura do workbook."
Range("F20") = "http://www.saberexcel.com"
Range("F21") = "[email protected]"
Range("F22") = "Expedito Marcondes"
Range("F23") = "Excel VBA Estudos®"
End Sub



OUTRA ALTERNATIVA NA ABERTURA DO WKB OCULTA UMA PLANILHA CHAMADA "MODELO"
E insere Planilhas Modelo(2) Modelo(3)
'Private Sub Workbook_Open()
'Application.ScreenUpdating = False
'Sheets("Modelo").Visible = True
'Sheets("Modelo").Select
'Sheets("Modelo").Copy Before:=ActiveSheet
'Sheets("Modelo").Copy Before:=ActiveSheet
'Sheets("Modelo").Visible = False
'Application.ScreenUpdating = True
'End Sub


Aplicativo Microsoft Excel VBA --Saberexcel - o site das macros
Aprenda sozinho, em casa, com baixo custo financeiro e ótimo material para estudos

Saberexcel - o site das macros
Esse exemplo de macro do Aplicativo Microsoft Excel VBA, faz uma copia de uma determinada folha de planilha e adiciona no Workbook, mas não copia os caracteres númericos.

Sub Copiar_Planilha()
Dim WsPlan As Worksheet
Dim i As Integer

If TypeName(Selection) <> "Range" Then
MsgBox "A folha deve estar ativa para adicionar nova folha!", vbCritical
Exit Sub
End If

Application.ScreenUpdating = False

i = Worksheets.Count
ActiveSheet.Copy After:=Sheets(Sheets.Count)
i = i + 1

Set WsPlan = Worksheets(i)
On Error Resume Next
'usando esta linha de códigos copiará somente as fórmulas para nova planilha
WsPlan.Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub


Aprenda Aplicativo Microsoft Excel VBA - SaberExcel

Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha no livro, e emite uma determinada mensagem, são sete exemplos de mensagem que o vb emite ao inserir uma nova folha de planilha no livro ativo.

Sub Adiciona_planilha()
Worksheets.Add
MsgBox "Macros finalizada.", vbInformation, "http://www.saberexcel.com"
End Sub

Adiciona uma planilha e mostra o nome da planilha adicionada
Exemplo simples de mensagem com o ícone de infomações (Information icon)
Sub Adiciona_planilha_2()
Worksheets.Add
MsgBox "Uma nova planilha foi adicionada ao livro." _
, vbInformation + vbOKOnly, "Macro finalizada!!"
End Sub

Adiciona uma planilha e mostra o nome da planilha adicionada
Sub Adiciona_planilha_3()
Dim sht As Worksheet
Set sht = Worksheets.Add
MsgBox "A nova planilha foi adicionada." & vbCrLf & _
"O o nome da nova planilha é : " & sht.Name _
, vbInformation + vbOKOnly, "Macro finalizada!"
End Sub

Adiciona uma nova planiha e inica que a planilha foi adicionada
vem com o vb yes/no, se não querer a macro sai da execução
Sub Adiciona_planilha_4()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then Exit Sub
Worksheets.Add
MsgBox "A nova planilha foi adicionada.", vbInformation, "http://www.saberexcel.com"
End Sub

Esta macro usa a mensagem Yes/No, e pergunta se quer inserir uma planilha e se a resposta
foi não informa que não foi adicionada e se sim e informa que [sim ]
Sub Adiciona_planilha_5()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then
MsgBox "Não foi adicionada a worksheet", vbInformation
Else
Worksheets.Add
MsgBox "Uma nova planilha foi inserida no workbook.", vbInformation, "http://www.saberexcel.com"
End If
End Sub

Esta macro usa a mensagem Yes/No/Cancel, e pergunta se quer inserir uma
nova planilha com formata de data e horario, tem a opção de sim, nao ou cancela
Sub Adiciona_planilha_6()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Deseja inserir uma nova planilha ao workbook com formato de dia e hora?" _
, vbQuestion + vbYesNoCancel)
If Response = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhnnss")
ElseIf Response = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Macro finalizada!.........", vbInformation, "http://www.saberexcel.com"
End Sub


Esta macro usa a instrução Case e analisa a msg com yes/no/cancel (caixa de mensagem)
Yes/No/Cancel message box.
Sub Adiciona_planilha_7()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Você deseja inserir a planilha com formato dia e hora?" _
, vbQuestion + vbYesNoCancel)
Select Case Response
Case vbYes
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhmmss")
Case vbNo
Worksheets.Add
Case vbCancel
Exit Sub
End Select
MsgBox "Macro finalizada.....", vbInformation, "http://www.saberexcel.com"
End Sub

Esta macro deleta todas as planilhas exceto a escolhida para não ser deletada
Sub Deleta_Planilhas_Exceto_Desejada()
On Error Resume Next
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "PRINCIPAL" Then
Nm.Delete
End If
Next
End Sub

Aprenda Aplicativo Microsoft Excel VBA ---( SaberExcel VBA )--
Aprenda sozinho, em casa, com excelente material de estudos (Saberexcel)