Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel vba worksheet add doze planilhas meses deleta todas preserva desejada

Excel vba worksheet add doze planilhas meses deleta todas preserva desejada

E-mail Imprimir PDF

SaberExcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, adiciona doze planilhas referente aos meses do ano, e deleta todas as folhas de planilhas preservando somente a folha de planilha desejada, mas na macro abaixo há uma explicação para preservar mais de uma folha de planilha na deleção. leia abaixo.

Sub adiciona_Meses()
Dim Meses As Variant
Meses = Array("minha", "Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")
ActiveWorkbook.Sheets.Add , , 12

For i = 1 To 12
Sheets(i).Name = Meses(i)
Next i

Sheets("Plan1").Select ' quando acaba seleciona a plan1
End Sub

Essa macro é muito útil também em outras aplicações, pois ela deleta todas as planilhas e preserva a folha de planilha desejada.
por exemplo se voce necessitar que seja preservada mais de uma planilha deverá mudar a linha de código abaixo para:

If (Plan.Name <> "Plan1" And Plan.Name <> "Janeiro") Then
Neste caso, se aumentar as planilhas a serem preservadas, tem que retirar a Folha de Planilha "Janeiro" do Array (Meses) na macro acima veja lá.
porque senão, toda a vez que inserir, a macro vai inserir uma a mais, com um determinado número, porque a folha de planilha já existe, nao foi deletada.

Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
Plan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

'...........................................................................'

Sub Macro3()
Sheets(Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", _
"Agosto", "Setembro", "Outubro", "Novembro", "Plan1")).Select
Sheets("Janeiro").Activate
Range("J27").Select
Sheets("Plan1").Select
Range("G18").Select
End Sub

Sub Recado_p_Núbia()
Range("D17").Value = "Núbia, esta vendo o ""porque?"" da Coleção 15.000 Macros"
Range("D18").Value = "é somente o código sem ter necessidade da planilha modelo"
Range("D20").Value = "já a planilha toda com o código fica mais pesado"
Range("D21").Value = "ficaria inviável, pois a coleção de macros esta em programa apropriado"
Range("D23").Value = "Fique com Deus, Esforce-se!"
Range("D24").Value = "Se precisar de alguma coisa, Comunique comigo"
Range("D25").Value = "Expedito de Paula Marcondes... Excel VBA."
Range("D26").Select
End Sub

Sub Limpar_Recados()
Range("D17") = "" ' duas aspas sem nada significa (que não tem nada) em branco
Range("D18") = ""
Range("D20") = ""
Range("D21") = ""
Range("D23") = ""
Range("D24") = ""
Range("D25") = ""
Range("D26") = ""
End Sub

'Com este código acessa o módulo modulo vai para
Sub ver_código()
SendKeys ("%{F11}")
End Sub

 
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, praticando com os produtos didáticos SaberExcel




 Baixe o exemplo de planilha contendo as macros acima
vba worksheet add doze planilhas meses deleta todas preserva desejada (27.22 kB 2010-11-30 11:25:25)

Publicidade
Compre com segurança, garantia e ótimos preços nas lojas SubMarino,
tudo que voce precisar poderá encontrar nas lojas submarino, livros, notebooks...


Cine & Foto - Submarino.com.br

Última atualização em Dom, 04 de Setembro de 2011 09:04  

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_counterHoje900
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30664
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44393
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467222
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