Excel vba worksheet adiciona planilha nome dias semana

Ter, 30 de Novembro de 2010 10:55 Expedito Marcondes
Imprimir

Saberexcel - site das macros

lEssa macro do Aplicativo Microsoft Excel VBA, adiciona (5) cinco planilhas ao livre, referente aos dias da semana:
Segunda, Terça, Quarta, Quinta, Sexta, e a outra macro abaixo deleta todas as planilhas preservando uma, auxliando no teste do usuário desenvolvedor.


Option Explicit

Sub Adiciona_planilhas_nome_dia_da_semana()
Dim i As Integer

On Error Resume Next

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

Application.ScreenUpdating = False

For i = 1 To 5
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Application.WorksheetFunction.Proper(Format(DateSerial(1, 1, i), "ddd"))
Next i

End Sub


'Esta macro deleta todas as folhas de planilha e preserva a desejada, macro ajudará no teste da macro.
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


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



     Baixe o exemplo de planilha contendo a macro acima
vba worksheet adiciona planilha nome dias semana (26.92 kB 2010-11-30 11:59:15)

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