Shark Tip - VBA Excel | Inserir várias Planilhas - Insert Multiple Worksheets

VBA Excel | Inserir várias Planilhas - Insert Multiple Worksheets

Use esse código para adicionar várias planilhas à sua pasta de trabalho de uma só vez. 


 Série eBook Donut Projects: 

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes



Conheça e faça download de uma planilha pronta do Excel que calcula o TEMPO e a DISTÂNCIA de viagem usando a API do Google Maps


Ao executar este código, obterá uma caixa de entrada para inserir o número total de planilhas que deseja inserir.


Melhorias no Código:


- Declaração das variáveis: A variável "i" foi declarada corretamente, mas a forma como a entrada de dados foi feita (usando "InputBox") poderia ser mais robusta. Vou adicionar verificações para garantir que o valor informado seja válido (número inteiro positivo).

- Uso do "Let": O comando "Let" não é necessário no VBA para atribuição de valor. Vou removê-lo para deixar o código mais limpo e adequado à prática comum.

- Tratamento de Erros: Adicionei uma verificação para garantir que o valor inserido seja um número válido e maior que 0, evitando erros.

- Comentários no Código: Inserção de explicações sobre cada parte do código para facilitar a compreensão.


Código Melhorado e Comentado:


Sub InsertMultipleSheets()


    ' Declaração da variável

    Dim i As Integer

    Dim userInput As String


    ' Solicita ao usuário o número de abas que deseja inserir

    userInput = InputBox("Digite o Nº de ABAS a inserir:", ".: Multiplicando planilhas")


    ' Verifica se o usuário não cancelou a caixa de entrada

    If userInput = "" Then

        MsgBox "Operação cancelada. Nenhum número foi fornecido.", vbExclamation

        Exit Sub

    End If

    

    ' Verifica se a entrada é um número válido e maior que 0

    If IsNumeric(userInput) Then

        i = CInt(userInput)

        If i > 0 Then

            ' Adiciona as abas após a planilha ativa

            Sheets.Add After:=ActiveSheet, Count:=i

            MsgBox i & " novas planilhas foram adicionadas com sucesso!", vbInformation

        Else

            ' Caso o número seja menor que 1

            MsgBox "Por favor, insira um número maior que 0.", vbExclamation

        End If

    Else

        ' Caso a entrada não seja um número válido

        MsgBox "Por favor, insira um número válido.", vbExclamation

    End If


End Sub



Explicações do Código:


1. InputBox: A "InputBox" é usada para solicitar ao usuário o número de planilhas (abas) a serem inseridas. O valor informado é armazenado na variável "userInput".


2. Verificação de Entrada Válida: A macro verifica se o valor inserido pelo usuário é numérico usando a função "IsNumeric". Se for, ele converte o valor para "Integer" com "CInt" e garante que seja maior que 0 antes de adicionar as planilhas.


3. Adição das Planilhas: Se a entrada for válida, a função "Sheets.Add" é utilizada para adicionar o número de abas especificado. A função "Count:=i" define quantas planilhas serão criadas após a planilha ativa ("After:=ActiveSheet").


4. Mensagens de Aviso: O código fornece mensagens de erro ou sucesso com "MsgBox" para informar ao usuário o status da operação.


5 Exemplos de Aplicabilidade para o Código:


1. Inserção de Planilhas para Relatórios Mensais:

   - Objetivo: Criar um processo automatizado para adicionar múltiplas planilhas em um arquivo de relatórios, como um novo relatório para cada mês de um ano.

   - Exemplo de uso: O usuário insere "12" e o código cria 12 planilhas, uma para cada mês do ano.


2. Criação de Planilhas para Cada Departamento de uma Empresa:

   - Objetivo: Adicionar múltiplas abas para cada departamento de uma empresa, como "Vendas", "Financeiro", "RH", etc.

   - Exemplo de uso: O código pode ser utilizado para criar rapidamente 10 abas com nomes predefinidos para diferentes setores.


3. Criação de Planilhas para Cada Produto em um Catálogo:

   - Objetivo: Criar uma planilha para cada produto em um catálogo de vendas ou inventário.

   - Exemplo de uso: Se o catálogo tem 50 produtos, o código pode ser usado para criar rapidamente 50 planilhas, cada uma para um produto específico.


4. Gerenciamento de Múltiplos Projetos:

   - Objetivo: Criar uma planilha para cada projeto em andamento em uma organização.

   - Exemplo de uso: O código pode ser utilizado para criar várias abas para diferentes projetos, facilitando o gerenciamento e acompanhamento de cada um.


5. Inserção de Planilhas para Comparação de Cenários:

   - Objetivo: Criar diferentes abas para comparar vários cenários financeiros ou projeções de vendas.

   - Exemplo de uso: O código pode ser usado para inserir rapidamente várias planilhas, uma para cada cenário (como "Cenário A", "Cenário B", etc.), para facilitar a análise e comparação de resultados.


Esses exemplos mostram como o código pode ser útil para criar rapidamente múltiplas planilhas dentro de um arquivo do Excel, facilitando a organização e a automação de processos.


 

  PUDIM PROJECT 

eBook - PT - PUDIM PROJECT 2024 - Python Volume 01 - Funções Essenciais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 02 - Funções Essenciais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 03 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes


eBook - PT - PUDIM PROJECT 2024 - Python Volume 04 - Funções para Automatização - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 05 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 06 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes


eBook - PT - PUDIM PROJECT 2024 - Python Volume 07 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 08 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 09 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes


eBook - PT - PUDIM PROJECT 2024 - Python Volume 10 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes eBook - PT - PUDIM PROJECT 2024 - Python Volume 11 - Automatizando Postagens em Redes e Plataformas Sociais - Série PUDIM PROJECT — André Luiz Bernardes


 Série de artigos: PUDIM PROJECT Pyhton 

PUDIM PROJECT 2024 | Python - Simplifique sua Rotina com Estes 8 Scripts Python para Automatizar Tarefas Diárias PUDIM PROJECT 2024 | Python - Aprenda a Manipular Datas e Horários com o Pacote Pendulum em Python: Exemplos Práticos PUDIM PROJECT 2024 | Python - Copie Facilmente Conteúdos de Arquivos para a Área de Transferência

PUDIM PROJECT 2024 | Python - Validação de YAML e JSON: Garanta a Integridade dos Dados no Kubernetes com Estas Ferramentas Simples PUDIM PROJECT 2024 | Python - Aprenda a Criptografar e Descriptografar Senhas Usando Python


Conheça também:

VBA Excel | Código VBA de Pesquisa no Google - VBA Code to Search on Google

VBA Excel | Inserir várias Planilhas - Insert Multiple Worksheets

VBA Excel | Redimensione todos os Gráficos numa Planilha - Resize All Charts in a Worksheet

VBA Excel | Desproteger Planilha - Un-Protect Worksheet

VBA Excel | Proteger Planilha - Protect Worksheet

VBA Excel | Proteja todas as Planilhas Instantaneamente - Protect all Worksheets Instantly

VBA Excel | Excluir tudo, exceto a planilha ativa - Delete all but the Active Worksheet

VBA Excel | Ocultar tudo, exceto a planilha ativa - Hide all but the Active Worksheet

VBA Excel | Realçar Valores Únicos - Highlight Unique Values

VBA Excel | Realçar Células Com Comentários - Highlight Cells with Comments

VBA Excel | Faz Backup da Aba de trabalho Atual - Create a Backup of a Current Workbook

VBA Excel | Salve cada Planilha como um único PDF - Save Each Worksheet as a Single PDF

VBA Excel | Excluir todas as Planilhas em Branco - Delete all Blank Worksheets

 

Veja outros códigos:

VBA Excel | Extraindo a Data de uma Célula com Data e Horário - Remove Date from Date and Time VBA Excel | Converta Tudo para Maiúscula - Convert to Upper CaseVBA Excel | Contando Palavras na Planilha - Word Count from Entire Worksheet VBA Excel | Removendo Decimais dos Números - Remove Decimals from Numbers

VBA Excel |  Multiplique todos os Valores por um Número - Multiply all the Values by a Number VBA Excel | Calculando a Raiz Cúbica - Calculate the Cube Root

VBA Excel | Adicionando Letras de A até Z - Add A-Z Alphabets in a Range VBA Excel | Convertendo Numerais Romanos em Arábicos - Convert Roman Numbers into Arabic Numbers

VBA Excel | Converta todos os Números Negativos em Positivos - Remove Negative Signs VBA Excel | Preencha com zeros as Células em Branco - Replace Blank Cells with Zeros



 Série de Livros nut Project 

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes




 Série VBA Outlook: 

VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Usando o DAO em vez do ADO (Using DAO instead of ADO) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Usando um Recordset Desconectado (Using a Disconnected Recordset) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Usando Transações (Using Transactions)


VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Usando Parâmetros em Consultas SQL (Using Parameters in SQL Queries) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Tratando Erros (Handling Errors) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Fechando a Conexão (Closing the Connection)


VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Enviando um e-Mail para cada Cliente (Sending an email to each Customer) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Lendo Dados do Conjunto de Registros (Reading Recordset Data) VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Executando uma Consulta SQL (Executing an SQL Query)


VBA Outlook - Usando o VBA no Outlook - Using Visual Basic for Applications in Outlook - Conectando ao Banco de Dados usando ADO (Connecting to the Database using ADO)


 Série DONUT PROJECT 2021 


DONUT PROJECT 2021 - VBA Function: Sabe como enviar dados para o Google Sheet, através do MS Excel, usando VBA, no MacBook?

DONUT PROJECT 2021 - VBA Function:  Como Rastrear o Google Maps (Coordenadas Geográficas) no VBA Excel? DONUT PROJECT 2021 - VBA Function:  Crie Acrônimos a partir de Strings de Texto DONUT PROJECT 2021 - VBA Function:  Convertendo uma Matrix num Vetor - Convert Matrix to a Vector

DONUT PROJECT 2021 - VBA Function:  Como tornar o Formulário Transparente no MS Excel? DONUT PROJECT 2021 - VBA Function:  Faça Buscas no Google a Partir da Célula do MS Excel - Search Google From a Cell DONUT PROJECT 2021 - VBA Function:  Decompondo um Nome nas Dimensões de uma Matriz


DONUT PROJECT 2021 - VBA Function: Extraindo o Último Sobrenome de um Nome Completo ou a Última Palavra de uma Frase DONUT PROJECT 2021 - VBA Function:  Extraindo o Segundo Nome de um Nome Completo ou a Segunda Palavra de uma Frase DONUT PROJECT 2021 - VBA Function: Extraindo o Primeiro Nome ou  a Primeira Palavra de uma Frase



 Série DONUT PROJECT 2018 

DONUT PROJECT 2018 - VBA - 12 - Aumente sua Produtividade DONUT PROJECT 2018 - VBA - 10 - Loop For-Each DONUT PROJECT 2018 - VBA - 08 - Referenciando Ranges


DONUT PROJECT 2018 - VBA - 07 - Amostra de Macro  DONUT PROJECT 2018 - VBA - 06 - Recursos Adicionais DONUT PROJECT 2018 - VBA - 05 - Gravando a Primeira Macro

DONUT PROJECT 2018 - VBA - 04 - Opções de Solução DONUT PROJECT 2018 - VBA - 03 - Requisitos e Preparação DONUT PROJECT 2018 - VBA - 02 - Continua Cético

DONUT PROJECT 2018 - VBA - 01 - Maximizando Sua Eficiência DONUT PROJECT 2018 - Excel - Ao Gravar Macro Altere o Método SELECT por RANGE 


 DONUT PROJECT 2018 - Excel - Acelerando as Macros - Desativando os Recursos de Atualização



 Série DONUT PROJECT 2015 

DONUT PROJECT 2015 - Excel - Formatting A Pivot Field's Data - Formatando os Campos de uma Tabela Dinâmica DONUT PROJECT 2015 - Excel - Formatting A Pivot Table's Data - Formatando os Dados de um Tabela Dinâmica DONUT PROJECT 2015 - Excel - Expand/Collapse Entire Field Detail - Ampliando Detalhadamente os Campos da Tabela Dinâmica

DONUT PROJECT 2015 - Extraindo e-Mails - Extracting An Email Address From Text   DONUT PROJECT 2015 - Função - Extraindo Quaisquer Elementos de uma String a Partir do Limitador DONUT PROJECT 2015 - Função - Retorna o número de ocorrências de um caracter numa string

DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres  DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses DONUT PROJECT 2015 - Função - Extrai Conteúdo entre Parênteses

DONUT PROJECT 2015 - Excel - Report Layout DONUT PROJECT 2015 - Excel - Grand Totals - Inserindo Totais para todas as Colunas e Linhas na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Change Pivot Table Data Source Range - Mudando a Fonte de Dados da Tabela Dinâmica

DONUT PROJECT 2015 - Excel - Refresh Pivot Tables - Aplicando Refresh em Tabelas Dinâmicas DONUT PROJECT 2015 - How To Create Partially Anonymous Data - Como Manter Informações parcialmente Anônimas  DONUT PROJECT 2015 - Excel - Clear Report Filter - Limpando o Filtro da Tabela Dinâmica

DONUT PROJECT 2015 - Excel - Report Filter On Multiple Items - Criando Filtros Múltiplos na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Report Filter On A Single Item - Criando Filtro de Relatório na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Remove Calculated Pivot Fields - Removendo Campos Calculados da Tabela Dinâmica

DONUT PROJECT 2015 - Excel - Remove Pivot Fields - Removendo Campos da Tabela Dinâmica  DONUT PROJECT 2015 - Excel - Add A Values Field - Adicionando Campos Calculados na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Add Calculated Pivot Fields - Adicionando Campos Calculados na Tabela Dinâmica

DONUT PROJECT 2015 - Excel - Add Pivot Fields - Adicionado Campos na Tabela Dinâmica DONUT PROJECT 2015 - Excel - Delete All Pivot Tables - Apagando todas as Tabelas Dinâmicas DONUT PROJECT 2015 - Excel - Delete A Specific Pivot Table - Apague um Tabela Dinâmica Específica


DONUT PROJECT 2015 - VBA To Add A Confidentiality Footer Statement In Excel, Word, or PowerPoint - Adicionando um Rodapé com Status de Confidencialidade no Excel, Word ou PowerPoint DONUT PROJECT 2015 - Excel - Create A Pivot Table - Criando uma Tabela Dinâmica


 Série DONUT PROJECT 2014 

DONUT PROJECT 2014 - Use os add-ins do MS Excel e dê um salto em sua performance DONUT PROJECT 2014 - VBA - Automatizando o Outlook para enviar um e-mail com anexo  DONUT PROJECT 2014 - VBA - Outlook - Salvando todos os arquivos anexados nos e-mails


DONUT PROJECT 2014 - VBA - Criando uma Matriz de Datas MAT - Moving Annual Total  DONUT PROJECT 2014 - VBA - Excel - Atualizando Tabelas Dinâmicas - Refresh Pivot Table via VBA DONUT PROJECT 2014 - VBA - Excel - Removendo os Caracteres Alfabéticos e Especiais


DONUT PROJECT 2014 - VBA - Access - Criando uma Query com Parâmetros DONUT PROJECT 2014 - VBA - Access - Atualizando o conteúdo de uma Query DONUT PROJECT 2014 - VBA - Access - Saiba o Número de Registro de cada tabela


DONUT PROJECT 2014 - VBA - Access - Extraia Blocos de Dados do Banco de Dados - Sem Problemas de TIMEOUT DONUT PROJECT 2014 - VBA - Access - Lista o Tamanho de Todas as Tabelas DONUT PROJECT 2014 - VBA - Excel - Populando um ListBox no seu Formulário

DONUT PROJECT 2014 - VBA - Excel - Importando arquivos CSV  DONUT PROJECT 2014 - VBA - Excel - Deletando Conexões de Dados  DONUT PROJECT 2014 - VBA - Excel - Obtendo o Nome da Planilha sem a Extensão - Get name of workbook without extension


DONUT PROJECT 2014 - VBA - WORD - Exportação Automatizada - De *.docx Para *.pdf - Otimizando o tamanho


  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!
brazilsalesforceeffectiveness@gmail.com

✔ VBA Brazil Specialist®

Nenhum comentário:

Postar um comentário

diHITT - Notícias