Criando Abas no Excel Automaticamente

Olá! Seja muito bem vindo(a) a mais uma aula de Excel. Hoje, trago uma dica essencial para quem lida com planilhas extensas e deseja organizar seus dados de forma automática. O tema será: Criando Abas no Excel Automaticamente a partir de uma Lista de Nomes. Isso permitirá que você mantenha sua planilha mais organizada e facilitará a navegação entre os dados.

Introdução

Ao trabalhar com grandes volumes de informações no Excel, muitas vezes é necessário organizar os dados em abas separadas para garantir a clareza e a estrutura da planilha. Criar abas manualmente pode ser tedioso e demorado, especialmente quando temos muitos nomes para serem utilizados como títulos das abas.

Neste tutorial, aprenderemos a criar uma função personalizada em VBA que nos permitirá automatizar esse processo, economizando tempo e esforço em nosso trabalho diário.

Passo a Passo

1. Acesso ao Editor VBA

Antes de começarmos, é necessário acessar o Editor VBA do Excel. Pressione “Alt + F11” ou, no menu “Desenvolvedor”, clique em “Visual Basic”.

2. Criação da Função

Dentro do Editor VBA, clique com o botão direito sobre “VBAProject (SeuArquivo.xlsm)” no painel esquerdo e selecione “Inserir” -> “Módulo” para criar um novo módulo.

3. Desenvolvimento da Função

Vamos criar a função personalizada “CriarAbas” que criará as abas no Excel de acordo com a lista de nomes contidos em uma coluna.

Imagem do código no editor

Código para copiar

Sub CriarAbas()
    Dim ws As Worksheet
    Dim cel As Range

    ' Defina a célula inicial da lista de nomes
    Set cel = ThisWorkbook.Sheets("Planilha1").Range("A1")

    ' Loop para percorrer cada célula na coluna
    Do While cel.Value <> ""
        ' Cria uma nova aba no Excel com o nome contido na célula
        Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = cel.Value

        ' Avança para a próxima célula da coluna
        Set cel = cel.Offset(1, 0)
    Loop
End Sub

4. Explicação da Função

Utilizamos a variável “ws” para representar a nova aba criada e a variável “cel” para percorrer as células na coluna com os nomes.
Definimos a célula inicial da lista de nomes como “A1” na “Planilha1”. Você pode ajustar essa referência de acordo com a localização dos nomes em sua planilha.
O loop “Do While” percorre cada célula na coluna até encontrar uma célula vazia.
Para cada nome na coluna, criamos uma nova aba utilizando a função “Sheets.Add” e atribuímos o nome da célula a essa nova aba utilizando a propriedade “ws.Name = cel.Value”.
O comando “Set cel = cel.Offset(1, 0)” avança para a próxima célula da coluna, permitindo que o loop continue até que todas as células com nomes sejam processadas.

5. Utilização da Função

Com a função personalizada criada, agora podemos utilizá-la para criar as abas no Excel automaticamente.

Para isso, siga os passos abaixo:

Certifique-se de que sua lista de nomes esteja preenchida corretamente na coluna A da “Planilha1” (ou ajuste a referência da célula inicial no código, conforme necessário).
Pressione “Alt + F8” para abrir a caixa de diálogo “Macro”.
Selecione “CriarAbas” na lista de macros e clique em “Executar”.

Após a execução da função, você terá uma aba para cada nome na lista, com os respectivos nomes como títulos das abas.

Conclusão

Com essa função personalizada, agora você pode criar abas no Excel automaticamente a partir de uma lista de nomes, otimizando o processo de organização e facilitando o acesso aos dados em sua planilha.

A criação de funções personalizadas em VBA amplia as possibilidades do Excel, permitindo que você automatize tarefas repetitivas e crie soluções personalizadas de acordo com suas necessidades.

Espero que esse tutorial tenha sido útil e que você aproveite ao máximo essa função em suas planilhas. Compartilhe essa dica com seus colegas e torne o trabalho no Excel mais eficiente e produtivo!

Até a próxima, e lembre-se: com conhecimento e criatividade, você pode ir além no Excel!

Para mais dicas de Excel com o VBA, acesse os seguintes links:

Como remover Acentos e Caracteres Especiais no Excel

Desvendando o Poder da Instrução With

Separando Números de Textos no Excel

Como Encontrar e Inserir a Guia Desenvolvedor no Excel

100 Códigos VBA Excel para Automatizar Tarefas