Tempo de leitura: 1 minuto
Esta macro insere as 12 planilhas referente dos meses do ano. Sendo assim poderá criar um modelo exemplo para que seja criada as planilhas com meses do Ano.
usando a instrução For Next para Criar as 12 planilhas e também a Instrução For Each Next para deletá-las.
.
Sub sbx_criar_12_doze_planilhas_meses()
Dim Esta macro insere as 12 planilhas referente dos meses do ano. Sendo assim poderá criar um modelo exemplo para que seja criada as planilhas com meses do Ano.
usando a instrução For Next para Criar as 12 planilhas e também a Instrução For Each Next para deletá-las. i As Integer
On Error Resume Next
If TypeName (Selection) <> “Faixa” Então
MsgBox “Planilha …… mensagem!”, VbCritical
Exit Sub
End If
Application.ScreenUpdating = False
For i = 1 To 12
ActiveWorkbook.Sheets.Add
With ActiveSheet
.Move After:=Sheets(Sheets.Count)
.Name = Application.WorksheetFunction.Proper(Format(DateSerial(1, i, 1), “mmm”)) & ” ” & Year(Now())
End With
Next i
Sheets(“Planilha1”).Select
End Sub
Sub sbx_deleta_Planilhas_Exceto_Desejada()
For Each wPlan In Worksheets
‘impede de emitir a mensagem se deseja excluir
Application.DisplayAlerts = False
If wPlan.Name <> “Planilha1” And wPlan.Name <> “Pagamentos” Then
wPlan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Faça o Download do Exemplo de Planilha.