Excelente projeto, Fernando para criar um banco de dados de treinamento no Excel com VBA, podemos estruturar a planilha da seguinte forma, brincando com Excel … muito bom

Estrutura dos Campos

Na planilha “BaseDeDados”, configure os seguintes cabeçalhos nas colunas A até L:

1. ID (Numérico sequencial: 1 até 1500)
2. NOME (Nomes fictícios brasileiros)
3. ENDEREÇO (Ruas fictícias, ex: Rua das Palmeiras, nº 123)
4. BAIRRO (Nomes genéricos, ex: Centro, Jardim América, etc.)
5. CIDADE (Cidades reais, compatíveis com o DDD)
6. CPF (Formato válido mas fictício: 000.000.000-00)
7. RG (Números aleatórios com dígito verificador: ex: 12.345.678-9)
8. TELEFONE (Com DDDs corretos, ex: (11) 91234-5678)
9. STATUS (ex: Ativo, Inativo, Pendente)
10. DATA (Datas aleatórias em formato dd/mm/aaaa)
11. OBSERVAÇÕES (ex: “Cliente em contato”, “Verificar documentos”, etc.)

Geração dos Dados

Essa macro cria os 1500 registros automaticamente na folha “BaseDeDados”.

💡 Lição VBA: Criando um Banco de Dados Fictício no Excel com Flores, Frutas e Criatividade

Se você deseja aprender a automatizar a criação de um banco de dados para testes e treinamentos no Excel usando VBA, esta videoaula é para você!

Nesta lição, vamos construir um banco de dados com 1.500 registros gerados automaticamente, contendo nomes fictícios, endereços com flores, bairros com frutas e telefones formatados por DDD de cidades brasileiras.
Uma abordagem divertida e valiosa, prática e valiosa para quem está começando ou deseja aprimorar suas habilidades com programação no Excel.

📘 O Que Você Vai Aprender

• Como estruturar uma planilha de dados com campos essenciais como nome, endereço, CPF, telefone etc.
• Como usar arrays em VBA para gerar dados dinâmicos e diversificados.
• Como formatar CPFs, RGs, telefones e datas com precisão.
• Como usar loops e funções para preencher automaticamente milhares de linhas em segundos.
• Como aplicar criatividade no uso de variáveis para tornar os dados mais interessantes e próximos da realidade.

🎯 Benefícios Deste Aprendizado

• Aumenta sua produtividade com automação de rotinas repetitivas.
• Dá mais confiança para criar macros mais complexos e personalizados.
• Enriquece seu currículo com aplicação prática de programação no Excel.
• Cria uma base sólida para projetos com UserForms, relatórios e dashboards interativos.
• Te estimula a pensar criativamente na estruturação de dados e cenários fictícios de treinamento.

🔧 O Código VBA da Aula

Aqui está o script VBA apresentado:

📖 Sabedoria para Crescer

Inspirar-se na sabedoria é tão importante quanto desenvolver habilidades técnicas. Aqui vão três passagens bíblicas para nos lembrar disso:

> “Instruir-te-ei, e ensinar-te-ei o caminho que deves seguir; e, sob as minhas vistas, te darei conselho.” — Salmo 32:8

> “Com sabedoria se constrói a casa, e com discernimento se consolida.” — Provérbios 24:3

> “O coração do que tem discernimento adquire conhecimento; os ouvidos dos sábios saem à sua procura.” — Provérbios 18:15

🙏 Agradecimento Final

Se quiser, posso te ajudar a dar um título impactante para atrair mais cliques, criar uma imagem de capa com visual profissional, ou até estruturar o roteiro do vídeo caso você vá gravar uma explicação.

Aqui vão algumas sugestões de título:

• “Flores, Frutas e VBA: Aprenda a Automatizar Planilhas com Estilo”
• “Do Zero ao Macro: Banco de Dados Gerado com Amor (e Código!) no Excel VBA”
• “Excel VBA Criativo: Treine com Dados Gerados Automaticamente e Sabedoria Bíblica”

Esse site oferece uma abordagem prática e didática, com explicações sobre variáveis, loops, eventos, UserForms, além de exercícios para praticar. É um ótimo recurso para quem está começando ou quer se aprofundar.

🌸🍍 Macro VBA: Geração Automática de Banco de Dados com Flores, Frutas e Link Didático

🌼 Aprenda Excel VBA Criando um Banco de Dados com Flores, Frutas e Criatividade!

Se você está em busca de uma forma prática e interessante de treinar Excel VBA, esta lição é para você. Vamos automatizar a criação de um banco de dados com 1.500 registros fictícios, recheados de nomes, endereços florais e bairros frutados. E ainda com um hiperlink direto para um curso gratuito no final de cada linha!
Além de divertido, o projeto mostra como você pode usar criatividade para ensinar ou treinar pessoas com dados dinâmicos.

📘 O Que Você Vai Aprender

• Como automatizar a geração de dados com VBA usando arrays
• Como preencher células com CPF, RG, telefone, data e observações
• Como aplicar formatação adequada nos dados
• Como adicionar links automáticos em células via VBA
• E o mais importante: como usar o Excel de forma criativa e útil!

🎯 Benefícios Dessa Atividade

• Redução de tempo com tarefas repetitivas
• Formação de base de teste para desenvolvimento de sistemas
• Exercício prático para entrevistas ou portfólio
• Inspiração para construir planilhas com identidade própria
• Inserção de links didáticos para estimular o aprendizado

✍️ Código VBA Completo

Sub sbx_gerar_banco_dados_automaticamente()
    Dim i As Long
    Dim nomes As Variant, cidades As Variant, ddds As Variant
    Dim flores As Variant, frutas As Variant
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("BaseDeDados")
    nomes = Array("Ana Clara", "Lucas Silva", "Paulo Souza", "Carla Mendes", _
             "Fernanda Lima", "João Pedro", "Mariana Oliveira")
    cidades = Array("São Paulo", "Rio de Janeiro", "Salvador", _
                    "Belo Horizonte", "Fortaleza")
    cab = Array("ID", "NOME", "ENDEREÇO", "BAIRRO", "CIDADE", "CPF", _
                      "CEP", "TELEFONE", "STATUS", "DATA", "OBSERVAÇÕES")
    For i = 1 To UBound(cab)
        Cells(1, i) = cab(i - 1)
    Next i
    ddds = Array("11", "21", "71", "31", "85")
    flores = Array("Rosa", "Orquídea", "Violeta", "Lírio", _
                   "Tulipa", "Girassol", "Jasmim", "Dália")
    frutas = Array("Macieira", "Bananeiras", "Abacaxis", _
              "Laranjeiras", "Videira", "Mangueira", "Cajueiro", "Pereira")
    For i = 2 To 1501
        ws.Cells(i, 1).Value = i - 1
        ws.Cells(i, 2).Value = nomes(Int(Rnd * UBound(nomes) + 1))
        ws.Cells(i, 3).Value = "Rua: " & _ 
            flores(Int(Rnd * UBound(flores) + 1)) & ", nº " & Int(Rnd * 999 + 1)
        ws.Cells(i, 4).Value = "Bairro: " & frutas(Int(Rnd * UBound(frutas) + 1))
        Dim idx As Integer: idx = Int(Rnd * UBound(cidades) + 1)
        ws.Cells(i, 5).Value = cidades(idx)
        ws.Cells(i, 6).Value = _
                Format(Int(Rnd * 900000000 + 100000000), "000\.000\.000\-00")
        ws.Cells(i, 7).Value = _
                 Format(Int(Rnd * 90000000 + 10000000), "00\.000\.000\-0")
        ws.Cells(i, 8).Value = _ 
               "(" & ddds(idx) & ") 9" & Int(Rnd * 9000 + 1000) & "-" & _
                 Int(Rnd * 9000 + 1000)
        ws.Cells(i, 9).Value = _ 
                    Choose(Int(Rnd * 3 + 1), "Ativo", "Inativo", "Pendente")
        ws.Cells(i, 10).Value = _ 
                     DateSerial(2023, Int(Rnd * 12 + 1), Int(Rnd * 28 + 1))
        ws.Cells(i, 11).Value = Choose(Int(Rnd * 3 + 1), _
              "Aguardando retorno", "Contato recente", "Sem observações")
        ws.Hyperlinks.Add _
            Anchor:=Cells(i, 12), _
            Address:="https://somaexcel.com.br/cursos/curso-excel-vba/", _
            TextToDisplay:="Curso Excel VBA - SomaExcel"
    Next i

    MsgBox "Banco de dados Florido e Fruteiras gerado com sucesso! 🌷🍊"
End Sub

✨ Inspiração Bíblica Para Aprendizado e Evolução

“O coração sábio busca o conhecimento, mas a boca dos tolos se alimenta de insensatez.” — Provérbios 15:14
> “Ensina-nos a contar os nossos dias, para que alcancemos coração sábio.” — Salmo 90:12 >
> “Melhor é o sábio do que o forte, e o homem de conhecimento do que o poderoso.” — Provérbios 24:5

🙏 Agradecimento e Contato

✨  Agradeço profundamente pelo esforço e dedicação que vocês têm demonstrado em cada aula. A busca pelo conhecimento é um caminho iluminado que leva à sabedoria e ao crescimento pessoal e profissional. Continuem firmes nesta jornada transformadora!

📘 Prof. Expedito Marcondes
 📋 Tire-Dúvidas: suportecursovba@gmail.com