[VBA] – Adicionar uma Planilha Automaticamente

Tempo de leitura: menos de 1 minuto

Existem situações que necessitamos adicionar planilhas automaticamente em nossa pasta de trabalho com base em um padrão.

Por exemplo, um conjunto de planilha para cada mes do ano.

Segue abaixo um exemplo simples de como realizar esse procedimento usando os recursos do VBA.

[sourcecode highlight=”” language=”vb”]
Sub criandoPlanilhaAutomaticamente()
Dim a As Integer
Dim oPlanilha As Worksheet
Dim sMes As String

‘ Criando um for para repetir a operação 12 vezes, uma pra cada mes
For a = 1 To 12

‘Adicionando uma nova planilha
Set oPlanilha = Worksheets.Add
‘Recuperando o mês atual
sMes = a & " – " & 2012
‘Renomeado a planilha
oPlanilha.Name = sMes
Set oPlanilha = Nothing

Next a

End Sub
[/sourcecode]

Abraços

Elquisson Lima

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *