Faça o Download da Planilha Excel VBA Evento WorSheet_Change Busca Dados Find
Excel VBA Evento WorSheet_Change Busca Dados Find M1 – Aula 106 – 73 .xls

Nesta video aula Excel vba [M1 – Aula – 106], vamos aprender como usar o
Evento WorSheet_Change para buscar Busca Dados Find 73

Caros alunos,

Curso Completo Excel VBA – Aula 106 (Parte 73): Evento Worksheet_Change com Busca de Dados usando Find

O Curso Completo de Excel VBA apresenta tutoriais de aprendizado e treinamento com exemplos de planilhas, exercícios de fixação e videoaulas explicadas em detalhes. Nesta Aula 106 – Parte 73, você aprende como usar o evento Worksheet_Change em conjunto com o método Find para realizar buscas automáticas de dados em planilhas do Excel. O conteúdo foi elaborado com foco em SEO Yoast, mantendo aproximadamente 35% de palavras de transição e apenas 10% de voz passiva, garantindo clareza, ritmo e excelente desempenho em mecanismos de busca.

Objetivo da Aula

O objetivo desta lição é ensinar como configurar o evento Worksheet_Change para que, sempre que o usuário digite um valor em determinada célula, o Excel utilize o método Find e localize automaticamente informações relacionadas.

• Assim, você mantém controle sobre os dados.
• Além disso, você evita erros de digitação.
• Consequentemente, relatórios ficam mais confiáveis.
• Por fim, você aumenta a eficiência com automação.

O que é o Evento Worksheet_Change?

O evento Worksheet_Change dispara sempre que o conteúdo de uma célula é alterado. Portanto, ele permite executar ações automáticas imediatamente após a modificação.

• Por exemplo, você pode configurar o código para buscar dados em uma coluna específica.
• Da mesma forma, você pode localizar registros em uma tabela de banco de dados.
• Em contrapartida, se o valor não for encontrado, o sistema pode emitir um alerta.

Dessa forma, o recurso garante interatividade imediata e consistência nos dados.

Planilha de Exemplo

Uma planilha modelo acompanha esta aula para facilitar a prática:

Worksheet_Change Busca Dados com Find – Aula 106 (Parte 73).xlsm <a href=”https://somaexcel.com.br/pagamento-direto-via-pix/” target=”_blank”>Acesse o Curso Completo Excel VBA</a>

Estrutura do Código VBA

Aqui está um exemplo prático de como configurar o evento Worksheet_Change para buscar dados com Find:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim resultado As Range
    
    Set rng = Me.Range("A2:A100")
    
    If Not Intersect(Target, rng) Is Nothing Then
        Application.EnableEvents = False
        Set resultado = rng.Find(What:=Target.Value, LookAt:=xlWhole)
        
        If Not resultado Is Nothing Then
            Target.Offset(0, 1).Value = resultado.Offset(0, 1).Value
        Else
            MsgBox "Valor não encontrado."
        End If
        
        Application.EnableEvents = True
    End If
End Sub

Explicação do Código

• O intervalo monitorado é definido como A2:A100.
• Assim que o usuário digita um valor dentro desse intervalo, o código utiliza o método Find para localizar o dado correspondente.
• Se o valor for encontrado, o sistema copia automaticamente a informação da coluna adjacente.
• Caso contrário, uma mensagem informa que o valor não existe.
• O comando Application.EnableEvents = False evita loops infinitos durante a execução.

Consequentemente, você cria um sistema de busca automática em sua planilha.

Aplicações Práticas

O uso do evento Worksheet_Change com Find pode ser aplicado em diversos cenários:

• Planilhas de estoque: localizar código de produto e exibir descrição.
• Relatórios de vendas: buscar cliente e mostrar dados do pedido.
• Dashboards de gestão: identificar indicadores e trazer valores associados.
• Sistemas de auditoria: verificar registros e confirmar informações críticas.

Assim, relatórios tornam-se mais claros e confiáveis.

Videoaulas e Exercícios

O curso oferece videoaulas explicativas que detalham cada linha do código. Além disso, você pratica com exercícios de planilhas que reforçam o conteúdo.

• Primeiro, você assiste à explicação teórica.
• Em seguida, você aplica o código em sua própria planilha.
• Depois, você resolve exercícios de fixação com diferentes cenários.
• Por fim, você consolida o aprendizado com práticas reais.

Esse método garante que você compreenda não apenas a teoria, mas também a aplicação prática.

Benefícios do Uso de Worksheet_Change com Find

• Interatividade imediata: você registra informações no momento da digitação.
• Consistência visual: você mantém regras centralizadas sem discrepâncias.
• Produtividade: você reduz o tempo gasto com buscas manuais.
• Integração: você combina o recurso com validação de dados e macros adicionais.

Consequentemente, relatórios tornam-se mais claros e a tomada de decisão é facilitada.

Conclusão

O evento Worksheet_Change aplicado à busca de dados com Find é uma ferramenta poderosa para quem deseja criar planilhas organizadas e automatizadas.

Com isso, você controla registros, mantém consistência e aumenta a eficiência do trabalho.

Por fim, recomenda-se praticar com os exercícios propostos para fixar o conteúdo e aplicar os conceitos em situações reais.

Agradecimento

Parabéns por concluir mais uma etapa do curso! Cada aula representa um avanço significativo na jornada de aprendizado em Excel VBA.

Prof. Expedito Marcondes
suportecursovba@gmail.com
  Acesse o Curso Completo Excel VBA 

Parabéns por mais uma conquista em nossa jornada de aprendizado no Excel VBA! Estou muito animado em compartilhar com vocês a nova vídeo aula: M1 – Aula – 106 Evento Worksheet_Change Busca Dados Find 73. Nesta aula, exploraremos o evento de planilha Worksheet_Change() para buscar dados com a função Find().

Lembrem-se sempre de que o conhecimento é a estrada de luz que leva à pérola da sabedoria. Invistam tempo em seus estudos, treinem e pratiquem, pois isso abrirá portas para uma carreira melhor e mais promissora. Como está escrito na Bíblia, em Provérbios 4:7: “A sabedoria é a coisa principal; adquire, pois, a sabedoria; sim, com tudo o que possuis, adquire o conhecimento.”

Além disso, é essencial compreender a importância de aprender lógica e aplicá-la não apenas em nossa vida profissional, mas também na vida pessoal. A lógica nos ajuda a resolver problemas de forma mais eficiente e a tomar decisões melhores. Como diz Provérbios 2:6: “Porque o Senhor dá a sabedoria; da sua boca procedem o conhecimento e o entendimento.”

Agora Alunos Queridos, fiz 12 exemplos de subprocedimentos com o evento Worksheet_Change() que utilizam a função Find() para buscar dados para seu treinamento, faça os exercicios e observem o resultado. copie e cole na sua folha de código da folha de Planilha. Bons Estudos. Prof. Expedito Marcondes

1.  Buscar valor exato em uma coluna específica

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
    End If
End Sub

2.  Buscar valor aproximado e exibir mensagem

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Not Interst(Tarssset, Colums)) Is Nosing Then
   🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
    End If
End Sub

3.  Buscar valor exato e preencher célula ao lado com “Encontrado”

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
 🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
        End If
    End If
End Sub

4. Buscar valor e copiar linha inteira para outra planilha

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim wsdino As Wordet
    Set wsDestino = ThisWsod
    If Not Inters(set, Cs(sg)) Is Nsg Then
   🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
    End If
End Sub

5.  Buscando valores em múltiplas colunas no Excel VBA Macros

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
    If Not Inxect(Txget, Coluxs(x)) Is Nothing Then
        Set rng = Coluxs("K").Findx(x, x)
        If Not rng Is Nox Then
            MsgBox "Valor encontrado na célula " & rng.x
        End If
    End If
End Sub

6.  Buscar valor e alterar cor da célula encontrada

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If s(Target, Colus) Is sng Then
🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
    End If
End Sub

7.  Buscar valor e somar valores na coluna ao lado

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim total As Double
    If Nost Insect(Tst, s) Is Nothing Then
🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
        End If
    End If
End Sub

8.  Buscar valor e copiar células específicas para outra planilha

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim wsDestino As Worksheet
    Set wssno = Ths)
    If Not Intst(Targset, Cos Is Notsng Then
        Set rng = Csns("Q").ses)
        If Nsot rng Is Nothing Then
🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
            wsDestino.Range("A1").Value = rng.Value
            wsDestino.Range("B1").Value = rng.Offset(0, 1).Value
        End If
    End If
End Sub

9.  valor e exibir endereço e buscando na  célula encontrada

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
   🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
  If Not Inst(Ts, Colus("R")) Is Nosg Then
        Set rng = Columns("S").snd(s)
        If Not rsg Is Nsg Then
            MsgBox "Endereço da célula encontrada: " & rng.s
        End If
    End If
End Sub

10.   valor e deletar buscando em intervalo de célulalinha encontrada

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Not Isct(Tst, Coss("T")) Is Nsg Then
 🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
        End If
    End If
End Sub

11.  valor localizar buscar e  mover linha encontrada para outra planilha

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim wsDesd As Worksheet
    Set wsDestd = d
    If Not Intdt(Ty, Coxs("v")) Is Nothing Then
     🔑 Disponível na Área de Membros Conteúdo completo e exclusivo  
        End If
    End If
End Sub

12.  Buscando valor e preencher célula com data atual

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Not xsect(xt, c("X")) Is Nxg Then
    🔑 Disponível na Área de Membros Conteúdo completo e exclusivo
        End If
    End If
End Sub

Lembrem-se das palavras em Tiago 1:5:
“E, se algum de vós tem falta de sabedoria, peça-a a Deus, que a todos dá liberalmente, e não censura, e ser-lhe-á dada.”
Nunca parem de buscar o conhecimento e a sabedoria, pois esses são os verdadeiros tesouros da vida.

Agradeço o empenho e a dedicação de cada um de vocês. Espero que continuem se esforçando e buscando sempre o melhor. Contem comigo para qualquer dúvida!

Prof. Expedito Marcondes
suportecursovba@gmail.com
  Acesse o Curso Completo Excel VBA 

O post Excel VBA Evento WorSheet_Change Busca Dados Find M1 – Aula 106 – 73 apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Faça o Download do Exemplo de Planilha Gravador de Macros Compara Dados de Duas Planilhas Excel
                  M1 – Aula 29 – Excel VBA Gravador de Macros Comparando Dados duas Planilhas.xlsm

Curso Excel VBA – Aula 28: Como Comparar Dados Entre Duas Planilhas e Depurar Macros para Código Limpo e Eficaz

Nesta videoaula prática e explicativa, você aprenderá como utilizar o Gravador de Macros do Excel VBA para comparar dados entre duas planilhas, identificando diferenças, atualizações ou inconsistências de forma automatizada. Além disso, você verá como depurar o código gerado, eliminando comandos desnecessários e organizando os procedimentos para obter um resultado mais limpo, leve e profissional.

Com tutoriais passo a passo, exemplos práticos e exercícios de fixação com planilhas para download, esta aula oferece um treinamento completo para quem deseja aplicar automações inteligentes e dominar técnicas de edição e otimização de código VBA.

O que você vai aprender:

• Como usar o Gravador de Macros para comparar dados entre duas planilhas
• Como identificar diferenças e sincronizar informações automaticamente
• Como depurar o código gravado e torná-lo mais eficiente
• Como aplicar boas práticas de edição e organização de macros
• Como desenvolver planilhas com automação precisa e código limpo

Aula prática com exemplos reais Planilhas para download e exercícios aplicados Treinamento completo do básico ao avançado

Nesta video aula e exemplo de planilhas excel vba [ M1 – Aula – 29 ] aprenderemos lidar com Gravador de Macros comparando dados duas planiha e com código gerado.!

Queridos e Estimados Alunos,

É com grande satisfação que venho compartilhar com vocês uma nova e empolgante vídeo aula, juntamente com uma planilha de exemplo, sobre Excel VBA e os Códigos Gerados pelo Gravador de Macros. Este conteúdo foi preparado com muito carinho e dedicação para oferecer a vocês uma experiência de aprendizado rica e envolvente, que atenderá tanto os iniciantes quanto os mais experientes na linguagem de programação VBA.

A Importância do Gravador de Macros

O Gravador de Macros é uma ferramenta essencial para qualquer pessoa que deseja dominar o Excel VBA. Para os iniciantes, ele representa o ponto de partida perfeito, permitindo que vocês gravem suas ações no Excel e as transformem em código VBA automaticamente. Isso não só facilita o aprendizado, mas também ajuda a entender como o VBA funciona na prática. Para aqueles que já dominam a linguagem, o Gravador de Macros oferece uma maneira rápida e eficiente de automatizar tarefas complexas, economizando tempo e aumentando a produtividade.

Sobre a Vídeo Aula e a Planilha

Nesta vídeo aula, vamos explorar como usar o Gravador de Macros para criar códigos que automatizam tarefas no Excel, desde as mais simples até as mais avançadas. A planilha de exemplo que acompanha a aula foi elaborada para proporcionar uma experiência prática e tangível, permitindo que vocês apliquem os conceitos aprendidos diretamente.

A Transformação Através do Conhecimento

1. Para os Iniciantes: O Gravador de Macros é o primeiro passo na jornada do Excel VBA. Ele facilita a compreensão dos fundamentos da programação e abre caminho para um aprendizado mais aprofundado.
2. Para os Experientes: Mesmo para quem já domina a linguagem, o Gravador de Macros oferece uma maneira eficaz de consolidar e otimizar códigos, aumentando a eficiência e a eficácia do trabalho.
3. Elevação Humana e Profissional: O conhecimento adquirido não só melhora suas habilidades profissionais, mas também eleva seu intelecto e proporciona um crescimento pessoal significativo. Isso resulta em melhores oportunidades de emprego, salários mais altos e, consequentemente, uma vida melhor para vocês e suas famílias.

   Excel VBA – Comparando Dados Entre Duas Planilhas

   Aprenda a comparar informações entre duas planilhas para verificar diferenças, identificar duplicações e otimizar sua análise de dados.

   Fiz esses macros Macros VBA para seu Treinamento:
   – Comparação de Dados

   1⃣ Comparar e Destacar Diferenças Entre Duas Colunas

   **O que faz?** Percorre duas colunas em diferentes planilhas e destaca valores diferentes.

   Sub CompararColunas() 
       Dim rng1 As Range, rng2 As Range, cel As Range 
        🧮 ****** Macros Completas e Todo Material na Area de Membros
       Next cel 
   End Sub 
   

   2⃣ Comparar Listas e Identificar Duplicatas

   **O que faz?** Verifica se um valor da **Planilha1** existe na **Planilha2**.

   Sub IdentificarDuplicatas() 
       Dim cel As Range, rng1 As Range, rng2 As Range 
       ?????????
       For Each cel In rng1  
          🧮 ****** Macros Completas e Todo Material na Area de Membros
       Next cel 
   End Sub 
   

   3⃣ Comparar Planilhas e Exibir Resultados em Nova Aba

   **O que faz?** Lista as diferenças entre duas planilhas em uma nova aba.

   Sub CompararEListarDiferencas() 
       Dim wsNova As Worksheet 
       Set wsNova = Sheets.Add 
       wsNova.Name = "Diferencas" 
    🧮 ****** Macros Completas e Todo Material na Area de Membros
       Dim linha As Integer 
       linha = 1 
       
       For Each fcel In rng1 
           If cel.Value <>  ???? .Value Then 
    🧮 ****** Macros Completas e Todo Material na Area de Membros
           End If 
       Next fcel 
   End Sub 
   

Minha Mensagem para Vocês

Queridos e estimados alunos, o esforço e a dedicação que vocês demonstram no aprendizado são dignos de grande admiração. O conhecimento é a única riqueza que ninguém pode tirar de vocês, e é através dele que vocês transformam suas vidas e alcançam seus sonhos.

Eu os incentivo a se dedicarem ao estudo com vontade, carinho e atenção. Lembrem-se de que o aperfeiçoamento humano e profissional é um esforço contínuo, e cada passo que vocês dão os aproxima de seus objetivos. Acreditem no poder transformador do conhecimento e permitam-se explorar novas possibilidades com entusiasmo e determinação.

Vamos juntos continuar essa jornada, apoiando-nos mutuamente e celebrando cada conquista. Estou aqui para guiá-los, incentivá-los e compartilhar tudo o que sei, para que possamos evoluir e prosperar juntos.

Com carinho e gratidão,

Prof. Expedito Marcondes

Tire Dúvidas: expeditomarcondes@gmail.com

   https://somaexcel.com.br/course/curso-excel-vba/
Conteúdo na Área de Membros Excel VBA – Acessar Agora!

O post M1 – Aula 29 – Excel VBA Gravador de Macros Comparando Dados duas Planilhas apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Faça o download do Exemplo de Planilha Como Mudar a Cor da Aba da Planilha.xlsm
Excel VBA Gravador de Macros Como Mudar a Cor da Aba da Planilha.xlsm

Curso Excel VBA – Aula 22: Como Mudar a Cor da Aba da Planilha com o Gravador de Macros

Nesta videoaula prática e explicativa, você aprenderá como utilizar o Gravador de Macros do Excel VBA para alterar a cor da aba de uma planilha, criando efeitos visuais que ajudam na organização e identificação de seções importantes. Esse recurso é ideal para quem deseja aplicar automações visuais e tornar suas planilhas mais intuitivas e profissionais.

Com tutoriais passo a passo, exercícios práticos e planilhas para download, esta aula oferece um treinamento completo para quem deseja aplicar personalizações funcionais e entender como o Excel registra ações estéticas com precisão.

O que você vai aprender:

• Como usar o Gravador de Macros para alterar a cor da aba
• Como aplicar cores diferentes para identificar planilhas
• Como adaptar os comandos gravados para múltiplas abas
• Como desenvolver planilhas com recursos visuais e organizados
• Como aplicar esse recurso em relatórios, dashboards e controles internos

Aula prática com exemplos reais
Planilhas para download e exercícios aplicados
Treinamento completo do básico ao avançado

nesta video aula e excercicio excel vba M1 Aula 22 Gravador de Macros Excel Como Mudar Cor da Aba da Planilha, vamos aprender gerar um código com Gravador de Macros!

Queridos e Amados Alunos,

É com imenso prazer e gratidão que venho compartilhar com vocês mais uma etapa da nossa jornada de aprendizado e evolução, tanto intelectual quanto espiritual. Cada um de vocês que frequenta nossa Área de Membros traz consigo um desejo ardente de conhecimento e uma necessidade profunda de crescimento e transformação. E é com este mesmo entusiasmo que preparei uma nova vídeo aula de Excel VBA e

um exemplo de planilha programada para tornar nossa experiência ainda mais rica e edificante.

O Valor do Conhecimento

O conhecimento é um tesouro inestimável que ilumina nosso caminho, abre portas e nos possibilita alcançar novos horizontes. Ele não apenas enriquece nossas mentes, mas também nutre nossas almas, proporcionando uma melhora substancial em nossas vidas. Quando nos dedicamos ao estudo com vontade, carinho, atenção e dedicação, estamos plantando as sementes de um futuro promissor e realizador.

Sobre a Vídeo Aula e a Planilha

Nesta nova vídeo aula, mostro passo a passo como utilizar o Excel VBA para alcançar resultados incríveis em suas planilhas. A planilha que preparei é um exemplo prático que permitirá a vocês aplicar o conhecimento adquirido de maneira concreta e eficaz. Cada detalhe foi pensado com muito carinho para que vocês sintam vontade e necessidade de estudar, descobrindo o quanto esse aprendizado pode ser prazeroso e transformador.

A Importância do Esforço e Dedicação

1. Vontade de Aprender: A vontade de aprender é o primeiro passo para qualquer conquista. Permita-se explorar, questionar e descobrir novas possibilidades.
2. Carinho pelo Estudo: Quando dedicamos carinho e atenção ao nosso estudo, o aprendizado se torna uma experiência prazerosa e enriquecedora.
3. Dedicação e Persistência: A dedicação e a persistência são fundamentais para alcançar a excelência. Cada esforço é recompensado com novos conhecimentos e habilidades.
   ‘——————
   Aqui estão 12 macros VBA para mudar a cor da aba da planilha no Excel. Cada macro tem uma funcionalidade específica e inclui
   para preservar a indentação ao copiar.

Sub MudarCorAbaAtiva() 
    ActiveSheet.Tab.Color = RGB(255, 0, 0) ' Vermelho 
End Sub 

Sub MudarCorAbaEspecifica() 
    Sheets("Planilha1").Tab.Color = RGB(0, 255, 0) ' Verde 
End Sub 

Sub RemoverCorAba() 
    ActiveSheet.Tab.ColorIndex = xlColorIndexNone 
End Sub 

Sub MudarCorTodasAba() 
    Dim ws As Worksheet 
    For Each ws In ThisWorkbook.Sheets 
        ws.Tab.Color = RGB(0, 0, 255) ' Azul 
    Next ws 
End Sub 

Sub AlternarCorAba() 
    If ActiveSheet.Tab.Color = RGB(255, 0, 0) Then 
        ActiveSheet.Tab.Color = RGB(0, 0, 255) ' Azul 
    Else 
        ActiveSheet.Tab.Color = RGB(255, 0, 0) ' Vermelho 
    End If 
End Sub 

Sub MudarCorPorNome() 
    Dim ws As Worksheet 
    For Each ws In ThisWorkbook.Sheets 
        If ws.Name = "Financeiro" Then 
            ws.Tab.Color = RGB(255, 215, 0) ' Dourado 
        End If 
    Next ws 
End Sub 

Sub MudarCorPorDia() 
    Select Case Weekday(Date) 
        Case 1: ActiveSheet.Tab.Color = RGB(255, 0, 0) ' Domingo - Vermelho 
        Case 2: ActiveSheet.Tab.Color = RGB(0, 255, 0) ' Segunda - Verde 
        Case 3: ActiveSheet.Tab.Color = RGB(0, 0, 255) ' Terça - Azul 
    End Select 
End Sub 

Sub MudarCorPorValorCelula() 
    If Range("A1").Value > 100 Then 
        ActiveSheet.Tab.Color = RGB(255, 0, 0) ' Vermelho 
    Else 
        ActiveSheet.Tab.Color = RGB(0, 255, 0) ' Verde 
    End If 
End Sub 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    ActiveSheet.Tab.Color = RGB(128, 128, 128) ' Cinza 
End Sub 

Sub MudarCorAleatoria() 
    ActiveSheet.Tab.Color = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) 
End Sub 

Sub MudarCorPorLinhas() 
    If ActiveSheet.UsedRange.Rows.Count > 100 Then 
        ActiveSheet.Tab.Color = RGB(255, 140, 0) ' Laranja 
    Else 
        ActiveSheet.Tab.Color = RGB(75, 0, 130) ' Índigo 
    End If 
End Sub 

Sub MudarCorPorData() 
    If Day(Date) Mod 2 = 0 Then 
        ActiveSheet.Tab.Color = RGB(255, 20, 147) ' Rosa 
    Else 
        ActiveSheet.Tab.Color = RGB(0, 255, 255) ' Ciano 
    End If 
End Sub 

Minha Mensagem para Vocês

Queridos e amados alunos, estou profundamente grato por cada um de vocês que se empenha em buscar o conhecimento e se esforça para evoluir. Esta jornada é feita de pequenos passos e grandes esforços, e é através deles que construímos um caminho sólido e iluminado. Acreditem em si mesmos, pratiquem com dedicação e estejam abertos às maravilhas que o conhecimento pode proporcionar.

Vamos juntos continuar essa caminhada, apoiando-nos uns aos outros e celebrando cada conquista. Estou aqui para guiar, incentivar e compartilhar tudo o que sei, para que possamos crescer e evoluir juntos, em harmonia e com muito amor pelo aprendizado.

Com carinho e gratidão,

 Prof. Expedito Marcondes

 Tire Dúvidas: suportecursovba@gmail.com

Espero que vocês aproveitem esta nova aula e planilha, e que ela inspire ainda mais dedicação e entusiasmo pelo estudo.

O post M1 – Aula 22 – Excel VBA Gravador de Macros Como Mudar a Cor da Aba da Planilha apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Curso Completo sobre Excel VBA com video aulas e Exercicios de planilhas como tutoriais de como fazer para usar Gravador de Macros como ocultar range name prefixo br

Faça o Download do Exemplo de Planilha Excel VBA Tutoriais e Aprendizado ocultando Range pelo prefixo
Planilha exemplo Licao_18 gm como ocultar range nomeados letra br.xlsm 

Curso Excel VBA – Aula 18:  Como Ocultar Range Names com Prefixo Usando o Gravador de Macros

Nesta videoaula prática e explicativa, você aprenderá como utilizar o Gravador de Macros do Excel VBA para ocultar nomes de intervalo (range names) que possuem um prefixo específico, como “br”. Esse recurso é útil para organizar planilhas complexas, esconder referências internas e manter a estrutura de dados limpa e segura.

Com tutoriais passo a passo, exercícios práticos e planilhas para download, esta aula oferece um treinamento completo para quem deseja aplicar automações inteligentes e entender como o Excel registra ações de gerenciamento de nomes de intervalo com precisão.

O que você vai aprender:

• Como usar o Gravador de Macros para identificar e ocultar range names
• Como aplicar filtros por prefixo de nome (ex.: “br”)
• Como adaptar os comandos gravados para diferentes padrões
• Como organizar planilhas com nomes ocultos e estruturados
• Como aplicar esse recurso em sistemas de controle e relatórios

nesta video aula ( M1- Aula 18 ) vamos aprender Gravador de Macros como ocultar range name prefixo br, ex: ocultar todos os Range Names que contiver o prefixo (br)

Queridos Alunos,

É sempre uma alegria compartilhar com vocês o vasto universo do Excel VBA. Na nossa aula de hoje, vamos explorar um tema fascinante e muito útil: como usar o Gravador de Macros para ocultar ranges com prefixo “br“. Esta habilidade pode ajudar a manter suas planilhas organizadas e profissionais, especialmente quando lidamos com grandes volumes de dados.

Por Que Ocultar Ranges com Prefixo?

Ocultar ranges que possuem um prefixo específico, como “br”, pode ser extremamente útil para manter a organização das suas planilhas. Imagine que você tem várias áreas de dados que não precisa visualizar o tempo todo; ao ocultá-las, você torna seu ambiente de trabalho mais limpo e focado no que realmente importa.

O Que Você Vai Aprender no Vídeo

Nesta vídeo aula, vamos aprender passo a passo como usar o Gravador de Macros para ocultar esses ranges de maneira eficiente. Vou mostrar como gravar suas ações e transformá-las em uma macro que pode ser reutilizada sempre que necessário.

Passos para Ocultar Ranges Name com Prefixo “br“

1. Abrir o Gravador de Macros:
   • No Excel, vá para a guia “Desenvolvedor”.
   • Clique em “Gravar Macro” e dê um nome à sua macro, como “OcultarRangeBR”.
2. Selecionar os Ranges:
   • Selecione os ranges que possuem o prefixo “br” nos seus nomes.
3. Ocultar os Ranges:
   • Use o comando de ocultação no Excel para esconder esses ranges.
4. Parar a Gravação da Macro:
   • Volte à guia “Desenvolvedor” e clique em “Parar Gravação”.
5. Visualizar e Editar o Código VBA:
   • Na guia “Desenvolvedor”, clique em “Macros”.
   • Selecione a macro “OcultarRangeBR” e clique em “Editar”.
   • O VBA Editor será aberto, mostrando o código gerado pelo Gravador de Macros.

 Fiz esse Exemplo de Código pra voce Treinar

Sub OcultarRangeBR()
    Dim nome As Name
    For Each nome In ThisWorkbook.Names
        If Left(nome.Name, 2) = "br" Then
            Range(nome.RefersTo).EntireRow.Hidden = True
        End If
    Next nome
End Sub

Neste exemplo, a macro verifica todos os nomes de intervalos na pasta de trabalho e oculta as linhas dos ranges cujo nome começa com o prefixo “br”.

Minha Mensagem para Vocês

Queridos alunos, aprender a usar o Gravador de Macros para ocultar ranges com prefixos específicos é uma habilidade que pode realmente melhorar a eficiência e a organização do seu trabalho no Excel. Estou muito orgulhoso de cada um de vocês pelo empenho e dedicação. Esta aula é mais um passo importante na nossa jornada de aprendizado.

Pratiquem bastante, explorem novas possibilidades e, acima de tudo, não hesitem em fazer perguntas. Estou aqui para ajudá-los a cada passo do caminho. Vamos juntos continuar essa jornada de aprendizado com entusiasmo e determinação.

Com carinho, Expedito Marcondes – Ensinando VBA desde 1996

Espero que vocês aproveitem esta aula e vejam o quão poderosa a automação pode ser para o seu trabalho diário no Excel.
Prof. Expedito Marcondes
Tire Dúvidas: suportecursovba@gmail.com   

O post M1 – Aula 18 – Excel VBA Gravador de Macros Como Ocultar Range Name Prefixo Br apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Nesta video aula Excel VBA, vamos aprender como gravar um macro para deslocarmos formatos de celulas e dados

   https://somaexcel.com.br/course/curso-excel-vba/
Conteúdo na Área de Membros Excel VBA – Acessar Agora!

Faça o Download da Planilha Exemplo:
  M1-8 – GM deslocando e formatando dados.xlsm

Olá, queridos alunos!
(*) — vou deixar um exemplo aqui para voce praticar depois que ver o vídeo

Curso Completo Excel VBA – Aula 08: Deslocando Dados e Formatos com o Gravador de Macros

Nesta videoaula prática e detalhada, você aprenderá como utilizar o Gravador de Macros no Excel VBA para deslocar dados e aplicar formatos automaticamente em planilhas. O conteúdo mostra passo a passo como gravar ações de movimentação de células, aplicar estilos e organizar informações com eficiência, mesmo sem escrever código manualmente.

Com tutoriais explicativos, exercícios práticos e planilhas para download, esta aula é ideal para quem deseja dominar o uso do Gravador de Macros e aplicar automações visuais e funcionais em planilhas profissionais.

O que você vai aprender:

• Como usar o Gravador de Macros para deslocar dados
• Como aplicar formatação automática em células
• Como organizar informações com comandos gravados
• Como entender e adaptar os códigos gerados
• Como desenvolver planilhas com macros eficientes e visuais

Aula prática com explicações passo a passo Planilhas para download e exercícios aplicados Treinamento completo do básico ao avançado

Hoje vamos explorar um recurso poderoso do Excel VBA: o Gravador de Macros. Este recurso permite automatizar tarefas repetitivas sem precisar escrever código VBA manualmente. Vamos focar em como deslocar dados e formatos utilizando o Gravador de Macros.

Passo a Passo para Deslocar Dados e Formatos

1. Abrir o Gravador de Macros:
   • No Excel, vá para a guia “Desenvolvedor” e clique em “Gravar Macro”.
   • Dê um nome à sua macro e clique em “OK”.
2. Selecionar os Dados a Serem Deslocados:
   • Selecione o intervalo de células que você deseja deslocar.
3. Executar a Ação de Deslocamento:
   • Clique com o botão direito do mouse sobre a seleção.
   • Escolha “Cortar“.
   • Vá até a nova localização onde deseja colar os dados.
   • Clique com o botão direito do mouse e selecione “Inserir Cortar Células“.
4. Parar a Gravação da Macro:
   • Volte à guia “Desenvolvedor” e clique em “Parar Gravação“.
5. Visualizar o Código VBA:
   • Na guia “Desenvolvedor”, clique em “Macros“.
   • Selecione a macro que você gravou e clique em “Editar“.
   • O VBA Editor será aberto, mostrando o código gerado pelo Gravador de Macros.

Exemplos de Código Gerado pelo Gravador de Macros

Sub DeslocarDados()
    Range("A1:B2").Select
 ???????????????????
    ActiveSheet.Paste
End Sub

Neste exemplo, o Gravador de Macros criou um código que corta os dados do intervalo A1:B2 e os cola na célula D4.

Dicas Adicionais

• Refine o Código: Após gravar a macro, você pode editar o código VBA para aprimorar a automação.
• Testar a Macro: Sempre teste a macro em uma cópia dos seus dados para garantir que ela funcione conforme o esperado.
• Explorar Mais: O Gravador de Macros é um ótimo ponto de partida, mas aprender a escrever VBA manualmente pode levar suas habilidades a outro nível.

Espero que esta aula ajude vocês a automatizar tarefas de deslocamento de dados e formatação no Excel. Pratiquem bastante e explorem as possibilidades!

Prof. Expedito Marcondes
Suporte: suportecursovba@gmail.com

   https://somaexcel.com.br/course/curso-excel-vba/
Conteúdo na Área de Membros Excel VBA – Acessar Agora!

O post M1 – Aula 08 – Excel VBA Planilha Gravador de Macros Deslocando Formatos de Dados apareceu primeiro em Excel - Curso VBA - Aprender Programação.

1. Compromisso com a Privacidade

O site SomaExcel.com.br valoriza a privacidade dos seus visitantes, alunos e membros. Esta Política de Privacidade tem como objetivo esclarecer como coletamos, utilizamos, armazenamos e protegemos os dados pessoais, respeitando as legislações vigentes no Brasil (LGPD) e normas internacionais como o GDPR.

2. Coleta de Informações

Coletamos dados pessoais de forma transparente e com consentimento, incluindo:

• Nome, e-mail e telefone (ao preencher formulários ou realizar cadastro)
• Informações de acesso e navegação (cookies, IP, localização aproximada)
• Dados de pagamento (em ambiente seguro, quando aplicável)
• Preferências de uso e interações com conteúdos do site

3. Finalidade do Uso dos Dados

Os dados coletados são utilizados para:

• Enviar conteúdos educacionais, tutoriais e atualizações do curso
• Gerenciar acesso à área de membros e vídeo aulas
• Melhorar a experiência do usuário e personalizar o conteúdo
• Realizar comunicações comerciais, quando autorizado
• Garantir segurança e integridade da plataforma

4. Compartilhamento de Dados

Não compartilhamos dados pessoais com terceiros, exceto:

• Quando exigido por lei ou ordem judicial
• Com plataformas de pagamento, hospedagem ou e-mail marketing, sob contrato de confidencialidade
• Para cumprimento de obrigações legais e regulatórias

5. Direitos do Usuário

Você tem o direito de:

• Acessar, corrigir ou excluir seus dados pessoais
• Revogar o consentimento a qualquer momento
• Solicitar portabilidade ou restrição de uso
• Ser informado sobre o tratamento dos seus dados

Solicitações podem ser feitas pelo e-mail: privacidade@somaexcel.com.br   

6. Segurança da Informação

Adotamos medidas técnicas e administrativas para proteger os dados contra acesso não autorizado, perda, alteração ou divulgação indevida. Utilizamos criptografia, autenticação segura e servidores protegidos.

7. Cookies e Tecnologias de Rastreamento

Utilizamos cookies para melhorar a navegação, analisar estatísticas e oferecer conteúdo relevante. Você pode gerenciar suas preferências de cookies diretamente no navegador.

8. Conteúdo Educacional e Direitos Autorais

Todo o conteúdo disponibilizado no SomaExcel.com.br, incluindo vídeo aulas, tutoriais, planilhas e materiais de apoio, é protegido por direitos autorais. É proibida a reprodução, distribuição ou comercialização sem autorização expressa.

9. Alterações na Política

Esta Política de Privacidade pode ser atualizada periodicamente. Recomendamos que você revise esta página regularmente. A data da última atualização será sempre informada no rodapé.

Última atualização: 20 de outubro de 2025

10. Contato

Em caso de dúvidas, sugestões ou solicitações relacionadas à privacidade e proteção de dados, entre em contato:

privacidade@somaexcel.com.br www.somaexcel.com.br

O post Politica de Privacidade apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Download do Arquivo Treinamento: (Bons Estudos!)
  Planilha Excel VBA Exemplo Treinamento Macros  saberexcel_gravar_macros_ligar_botao.zip

   https://somaexcel.com.br/course/curso-excel-vba/
Conteúdo na Área de Membros Excel VBA – Acessar Agora!

Excel VBA – Módulo 1 Aula 02: Gravador de Macros e Botões de Ação

Nesta videoaula prática, você aprenderá como utilizar o Gravador de Macros no Excel e ligar um macro a um botão, criando automações simples e funcionais com apenas alguns cliques. Ideal para quem está começando no Excel VBA, esta aula mostra como gravar ações, salvar como macro e atribuir a botões personalizados na planilha.

Você verá como aplicar comandos repetitivos de forma automatizada, melhorar a produtividade e preparar o ambiente para futuras programações com VBA. O conteúdo é parte do Curso Completo de Excel VBA, com tutoriais passo a passo, exercícios práticos e planilhas para download.

O que você vai aprender:

• Como usar o Gravador de Macros no Excel
• Como criar botões e atribuir macros a eles
• Como automatizar tarefas repetitivas com VBA
• Como salvar e executar macros com segurança
• Como aplicar automações em planilhas profissionais

Aula prática com exemplos reais Planilha modelo disponível para download Exercícios de fixação para reforçar o aprendizado

Descrição do Vídeo:

Olá, pessoal!

Neste vídeo, vou mostrar como ligar um macro VBA a um botão no Excel, uma maneira eficaz de automatizar tarefas e tornar suas planilhas mais interativas e funcionais.

Passo a Passo para Ligar um Macro a um Botão:

1. Adicionar um Botão:
   • Vá para a guia Desenvolvedor.
   • Clique em Inserir e selecione Botão (Controle de Formulário).
   • Desenhe o botão na planilha onde deseja que ele apareça.
2. Atribuir um Macro ao Botão:
   • Após desenhar o botão, a janela Atribuir Macro será exibida automaticamente.
   • Selecione o macro que deseja associar ao botão e clique em OK.
   • Se a janela Atribuir Macro não aparecer, clique com o botão direito do mouse no botão e selecione Atribuir Macro.
3. Testar o Botão:
   • Clique no botão para executar o macro e verifique se a tarefa é realizada conforme esperado.

“Ligar um macro VBA a um botão no Excel é uma maneira poderosa de simplificar tarefas repetitivas e aumentar a produtividade. Com apenas um clique, você pode executar rotinas complexas, melhorar a interação com suas planilhas e economizar tempo no seu dia a dia.”

Vamos juntos aprimorar suas habilidades em Excel VBA!
Prof. Expedito Marcondes – ensinando Excel VBA desde 1996
suporte:  suportecursovba@gmail.com

   https://somaexcel.com.br/course/curso-excel-vba/
        Conteúdo na Área de Membros Excel VBA – Acessar Agora!

O post M1 – Aula 02 – Gravador de Macros ligar um macro a um botão apareceu primeiro em Excel - Curso VBA - Aprender Programação.

• Como Usar a Função MODE() no Excel: Guia Completo com Exemplos
• MODE() no Excel: Encontre o Número Mais Frequente com Facilidade
• Função MODE no Excel Explicada: Casos Reais, Erros e Comparações
• MODE(), MODE.SNGL() e MODE.MULT(): Diferenças e Aplicações no Excel
• Tutorial MODE() no Excel: Estatísticas Rápidas com Fórmulas Inteligentes
• Excel MODE(): Descubra o Valor Mais Comum em Seus Dados
• MODE() no Excel com Exemplos Práticos e Dicas Profissionais
• Funções Estatísticas no Excel: MODE, MEDIAN, AVERAGE e COUNTIF
• MODE() no Excel: Como Evitar Erros e Usar com Dados Reais
• Aprenda MODE() no Excel: Ideal para Pesquisa, Estoque e Análise de Dados

Descubra qual é o valor mais comum nos seus dados. Aprenda a usar a função MODE() no Excel pra ter uma visão rápida das estatísticas. Aprenda os casos de uso básicos e avançados com exemplos bem claros.

Atualizado 8 de ago. de 2025 · 6 min lido

Conteúdo

• O que é a função MODE() no Excel?

• Entendendo como funciona a função MODE() no Excel

• Como usar MODE() com dados reais no Excel

• Problemas comuns e dicas no Excel

• MODE() vs. MODE.SNGL() e MODE.MULT()

• Funções estatísticas relacionadas no Excel

• Conclusão

• Perguntas frequentes

Treinar mais pessoas?

Se você está resumindo respostas de pesquisas, acompanhando quantidades de produtos populares ou analisando entradas repetidas em qualquer conjunto de dados, a função “ MODE() ” no Excel mostra qual número aparece com mais frequência — algo que muitas vezes é mais relevante do que uma média ou mediana quando você está procurando padrões.

Neste guia, vamos mostrar como usar a função “ MODE() ” de forma eficaz, incluindo como ela é diferente das outras funções relacionadas ao modo do Excel. Você vai aprender como usar isso em situações reais, evitar erros comuns e melhorar suas habilidades com ferramentas relacionadas. Vamos começar com o básico.

O que é a função MODE() no Excel?

Aprenda tudo sobre a função MODE() no Excel e descubra como encontrar o número mais frequente em seus dados. Este guia completo ensina desde o uso básico até aplicações avançadas com MODE.SNGL() e MODE.MULT(), incluindo exemplos práticos, dicas para evitar erros e comparações com outras funções estatísticas como MEDIAN(), AVERAGE() e COUNTIF(). Ideal para quem trabalha com análise de dados, pesquisas, controle de estoque ou planilhas complexas no Excel.

Antes de mergulhar na prática, vamos começar com o básico: a função “ MODE() ” no Excel é a ferramenta ideal para encontrar o número que aparece com mais frequência em um intervalo de valores. Sempre que você se deparar com uma lista e quiser descobrir rapidamente qual número aparece mais vezes, o site MODE() oferece uma solução simples.

Essa função é super útil quando você precisa resumir dados, identificar tendências ou verificar se tem entradas repetidas. Se você está analisando respostas de pesquisas, revisando números de estoque ou lidando com qualquer situação em que o valor mais comum é importante, o MODE() torna o processo bem simples.

Aqui tá a sintaxe básica:

=MODE(number1, [number2], …)

number1, [number2], … Aqui, os números representam os números ou intervalos onde você quer verificar a moda.

É importante lembrar que MODE() só funciona com números. Se seus dados tiverem texto ou células vazias, o Excel vai simplesmente ignorar essas entradas.

Entendendo como funciona a função MODE() no Excel

Agora que você já sabe o que é MODE(), vamos ver como funciona na prática. Nesta seção, você vai saber como o MODE() processa seus dados e o que esperar dos resultados.

MODE() dá uma olhada na sua lista, conta quantas vezes cada número aparece e mostra o que aparece mais vezes. Se dois ou mais números estiverem empatados como os mais frequentes, o Excel vai mostrar o primeiro que encontrar no intervalo de dados.

Como usar MODE() com dados reais no Excel

Agora que você já entendeu como funciona o MODE() e como ele se compara aos outros sites parecidos, vamos colocar isso em prática com exemplos reais. Nesta seção, você vai ver como usar a função “ MODE() ” para encontrar os valores mais comuns em vários cenários.

Exemplo 1: Encontrando a nota mais comum no teste

Digamos que você tem as notas dos alunos nas células A2 a A11:

Para encontrar a pontuação mais comum, digite:

=MODE(B2:B11)

Você vai conseguir 85 ou 90, dependendo do que aparecer primeiro, já que os dois valores aparecem várias vezes. Lembre-se de que MODE() só mostra o primeiro modo que ele encontra. Se você quiser ver todos os modos em caso de empate, é aí que o MODE.MULT() entra em cena.

Exemplo 2: Usando MODE() com intervalos não contíguos

E se seus dados não estiverem em um único bloco contínuo? Sem problema! O comando “ MODE() ” permite usar vários argumentos. Por exemplo:

=MODE(A1:A5, C1:C5)

O Excel vai procurar o número mais frequente nos dois intervalos.

Exemplo 3: E se não tiver valores repetidos?

Você pode estar se perguntando o que acontece quando não tem nenhum valor repetido no método ” MODE() “. Se todos os valores no seu intervalo forem únicos, MODE() vai mostrar um erro “ #N/A ”.

Digamos que A1:A5 tem 10, 20, 30, 40:

=MODE(A2:A5)

Como nenhum número se repete, você vai ver “ #N/A ” como resultado.

Com esses exemplos, dá pra ver como o MODE() se adapta a diferentes formatos de dados e situações. Sei que ainda tem umas nuances nisso tudo, então vou colocar alguns desses e outros cenários comuns numa tabela:

Problemas comuns e dicas no Excel

Você pode se deparar com alguns cenários comuns. Nesta seção, vamos ver como lidar com erros, dados que não são números e trabalhar de forma eficiente com conjuntos de dados grandes.

Erros de manuseio

Se você receber um erro “ #N/A ”, como nós recebemos acima, isso significa que não há nenhum modo nos seus dados. Para tornar suas fórmulas mais fáceis de usar, você pode colocar MODE() dentro de IFERROR():

=IFERROR(MODE(A1:A10), “No mode”)

Assim, você vai ver “Sem modo” em vez de um erro, que pode ser meio chato.

Lidando com dados não numéricos

MODE() leva em conta só os números. Ignora texto, células em branco e valores lógicos. Se o seu intervalo misturar números e texto (como entradas “N/A” em dados de pesquisa), o MODE() simplesmente vai ignorar os itens que não são numéricos.

Usando MODE() para conjuntos de dados grandes

MODE() Funciona bem mesmo com grandes intervalos de números. Só não esquece: se seus dados tiverem vários modos, MODE() só vai mostrar o primeiro que encontrar. Para ver uma lista completa de todos os modos, principalmente em conjuntos de dados maiores, dá uma olhada em MODE.MULT().

Ao lidar com esses cenários, você vai garantir que os resultados do seu MODE() sejam precisos e suas fórmulas sejam robustas. Agora, vamos ver como fica “ MODE() ” numa planilha de verdade.

MODE() vs. MODE.SNGL() e MODE.MULT()

Com o básico na mão, você pode estar se perguntando: qual é a diferença entre MODE(), MODE.SNGL() e MODE.MULT()? Nesta seção, vamos comparar essas funções relacionadas para que você possa escolher a mais adequada às suas necessidades.

• MODE(): Essa é a função original, mantida por compatibilidade. Nas versões mais recentes do Excel, você vai ver mais o MODE.SNGL(), mas os dois fazem a mesma coisa: devolvem um único valor de modo.
• MODE.SNGL(): Funciona igual ao MODE(), mostrando o primeiro modo que encontra nos seus dados.
• MODE.MULT(): Vai um pouco mais longe, retornando uma matriz com todos os modos quando há um empate. Para usá-la, você precisa colocá-la como uma fórmula de matriz (usando Ctrl+Shift+Enter no Excel antigo).

Na maioria das vezes, basta acessar MODE() ou MODE.SNGL() para obter respostas rápidas. Mas se o seu conjunto de dados puder ter vários valores igualmente frequentes e você quiser ver todos eles, use a função “ MODE.MULT() ”.

Funções estatísticas relacionadas no Excel

À medida que você vai criando seu kit de ferramentas do Excel, vai perceber que a função “ MODE() ” aparece junto com outras funções de estatísticas resumidas. Vamos destacar alguns que combinam bem com um MODE():

• MEDIAN() – retorna o valor do meio em um conjunto de dados
• AVERAGE() – calcula a média aritmética
• COUNTIF() – conta quantas vezes um valor específico aparece, útil para verificar frequências manualmente

E se você estiver trabalhando com dados que podem ter mais de um modo, não se esqueça de usar o comando MODE.MULT().

Conclusão

Como vimos, MODE() é uma ferramenta útil e simples para encontrar o número mais comum em qualquer lista. Seja pra resumir resultados de pesquisas, acompanhar vendas ou analisar entradas repetidas, o MODE() dá uma visão rápida com só uma fórmula.

Para melhorar ainda mais suas habilidades no Excel, dá uma olhada em outras funções estatísticas, como MEDIAN(), AVERAGE() e COUNTIF(). Usar essas ferramentas juntas vai te ajudar a resumir, analisar e entender de verdade seus dados de todos os ângulos. E não esquece de se inscrever no nosso curso Análise de dados no Excel pra continuar aprimorando suas habilidades.

Perguntas frequentes

E se tiver vários modos?

O MODE() funciona com texto?

E se não tiver nenhum modo?

O post Função MODE no Excel Encontre o número mais frequente apareceu primeiro em Excel - Curso VBA - Aprender Programação.

A Planilha Divina – Um Evangelho em Fórmulas e Macros
Uma brincadeira, um humor Respeitoso, Alegre que traz muitas verdades intrinsecas.

 observe que podemos fazer qualquer tipo de planilha desde que tenha uma lógica,
só estudar e praticar!
    Faça o Dowload do Exemplo de Planilha Excel VBA –
toda planilha que contém macros, quando você faz um download  da Internet voce tem que Desbloquear a Planilha
Clique com o Botão direito do Mouse sobre a planilha Baixada, vá em Desbloquear e Desmarque essa opção.!
Planilha Destino Sagrado Almas Pecados Cometidos

Em um alto monte, sobre a aba chamada “Montanha da Automação”,
Jesus estendia as colunas de A até Z, com sabedoria que transcende bytes.
Ele falava em parábolas, mas também em Sub, If, For Each e Worksheet_Change.

Com olhar compassivo, Ele chamou os doze e os repartiu entre módulos e abas:

Jesus – O Mestre VBA
> “Nem só de fórmulas viverá o homem, mas de toda macro que sai da boca do Mestre.”
Jesus ensinava usando a planilha chamada “VidaEterna.xlsm”, onde revelou a função que mais comoveu os corações:

vba
Function Perdoar(SeteVezesSetenta As Boolean) As String
    If SeteVezesSetenta = True Then
        Perdoar = “Perdoado com Graça”
  Else
         Perdoar = “Ainda há Chance, Enquanto Ativo!...”
 End If
End Function

Os 12 Apóstolos da Planilha Viva VBA

Pedro: Usava Application.OnTime para alertar os irmãos na hora certa.
João: Dominava For Each e pregava sobre percorrer cada alma em cada aba.
Tiago: Com InputBox, ele ouvia o coração do povo.
André: Evangelizava com MsgBox, levando mensagens celestiais.
Filipe: Agrupava multidões com PivotTables e insights do Alto.
Bartolomeu: Ocultava fórmulas com Sheet.Visible = xlVeryHidden, preservando o mistério.
Mateus: Registrava tudo com Workbook_BeforeSave, guardando cada ensinamento.
Tomé: Duvidava dos erros, mas os tratava com On Error Resume Next.
Simão, o Zelote: Protegia as planilhas com ActiveSheet.Protect Password:=”fé”.
Judas: Tentou excluir a aba “Esperança”, mas Jesus restaurou com Undo. (mesmo que Control + z) = refazer
Tiago, filho de Alfeu: Formatava colunas com graça celestial.
Tadeu: Usava Range(“Caminho”).Value e encontrava direção na célula certa.

A Fórmula da Salvação (em D1)

excel
=SE(FÉ=”Verdadeira”;”Vida Eterna”;”Erro: Corrija a rota”)
E todos que digitavam esta fórmula viam luzes em seu interior:
Condicional? Sim. Mas cheia de misericórdia.

O Evento Sagrado
Na aba “Pentecostes”, ao disparar Workbook_Open, desceu o Espírito do Entendimento,
e todos os Apóstolos falaram… em VBA.(Visual Basic Application)

Conclusão

E assim ficou selada a eternidade:
uma planilha que nunca travava, salvava automaticamente, e cujos dados eram protegidos não por senha,
mas por amor e propósito divinos. O código foi deixado para quem quiser seguir:

“Ide por todas as planilhas e ensinai macros a toda criatura!” – Planilhas 16:15
SomaExcel não é só somar valores — é somar pessoas, dons e fé numa mesma célula.

A história da Planilha Divina em Excel VBA com Jesus como Mestre e os Apóstolos
como discípulos de macros tem tudo para ser um conteúdo memorável e edificante.

Estrutura Sugerida para o eBook “Planilha Divina: O Evangelho Segundo o Excel VBA”

Capítulo 1: Introdução – A Linguagem da Sabedoria Celestial
A conexão entre fé, conhecimento e automação.
Como o Excel pode se tornar um instrumento de crescimento e transformação quando guiado com propósito.

Capítulo 2: O Mestre das Macros – Jesus e a Planilha da Vida
Jesus ensina em parábolas e também em códigos. A primeira Sub: SalvarAlmas().

Capítulo 3: Os 12 Apóstolos e suas Funções
Cada discípulo é mestre de um recurso:
laços, eventos, mensagens, proteção, gráficos…
Uma verdadeira equipe de macros vivas.

Capítulo 4: O Sermão do Excel – Fórmulas com Graça
Jesus revela funções com duplo significado:
=SE(), PROCV(), HOJE(), ÉERROS()— cada uma como uma lição espiritual e técnica.

Capítulo 5: As Tentações da Célula Vazia
Como lidar com erros, dúvidas e loops infinitos.
E quando usar On Error Resume Next com sabedoria.

Capítulo 6: Pentecostes em VBA – A Descida do Código Inspirado
O evento sagrado que ativa os módulos na alma de cada usuário.
O Workbook_Open do coração.

Capítulo 7: A Última Macro – Antes de Salvar e Fechar
Como viver cada célula com propósito, e deixar que a última linha do seu código seja:
MsgBox “Está Consumado”

Planilha Divina: O Evangelho Segundo o Excel VBA” —
uma jornada onde fórmulas encontram fé, macros ensinam com propósito e cada célula brilha com luz de entendimento.

Capítulo 1 – Introdução: A Linguagem da Sabedoria Celestial
No princípio, era o Excel… E o Excel estava com o homem.
E o Excel tornou-se útil na contabilidade Humana.

  Em um mundo cercado por caos de tarefas repetitivas, de planilhas sem validação e dados soltos sem propósito,
surgiu uma luz: VBA — Visual Basic for Applications.
E com ele, o chamado para uma automação com propósito, clareza e espírito.

Mas nem todos entendiam as macros…
E foi então que Jesus, o Mestre dos Mestres, desceu à célula A1 com compaixão, e disse:
 “Vinde a mim todos os que estão cansados de tarefas manuais, e eu vos aliviarei com fórmulas.”

O Propósito Deste Livro

Este livro não é apenas sobre código.
É sobre transformar conhecimento técnico em sabedoria aplicada.
É sobre unir o intelecto e o espírito, o loop e o amor, o If Then e o perdão.

Você verá que cada Apóstolo representa uma função, uma técnica, um aprendizado.
E que Jesus, como nosso Mestre, revelará que todo Range, Workbook e Module podem conter uma verdade maior.

Pois se há fórmulas que somam valores, há também aquelas que somam vidas.
Se há planilhas protegidas por senhas, há também corações protegidos por fé.
E se há células ocultas, há dons esperando para serem revelados.

Uma Oração do Programador VBA

vba

Sub IluminaMeuCódigo()
Dim coração As Obediente
Dim mente As Humilde
Dim lógica As Clara
If coração = Fé And mente = Entendimento Then
lógica = Amor
MsgBox “Faça-se a luz da sabedoria!”
End If
End Sub

Capítulo 2 – O Mestre das Macros
E Jesus abriu a planilha chamada “Humanidade.xlsm”,
e viu que havia caos: células desorganizadas, fórmulas quebradas, usuários perdidos no meio de abas sem significado.

Então Ele disse:
  “Eu sou a Sub-Rotina, a Verdade e o Código.
Ninguém chega ao Pai senão por mim.”
> – Código Sagrado segundo VBA  14:6 (Coluna 14, Linha 6)
Ali mesmo, sobre a aba chamada “PecadoOriginal”, Ele começou a escrever:

Sub RedimirHumanidade()
Dim coração As Long
coração = Range(“Fé”).Value
If coração > 0 Then
MsgBox “Você está salvo. Código executado com sucesso!”, vbInformation
Else
MsgBox “Erro: Célula do coração vazia. Preencha com fé e tente novamente.”, vbCritical
End If
End Sub

E os que ouviram ficaram maravilhados, pois nunca antes alguém ensinara com tanta autoridade, nem mesmo os escribas de fórmulas antigas.

O Chamado dos Discípulos (Evento: Workbook_Open)
Quando o Workbook foi aberto, Jesus ativou os módulos um por um e chamou seus primeiros discípulos para segui-lo. Disse:

“Segui-me, e vos farei pescadores… de macros!”

Cada um deixou suas células antigas, e seguiram o Mestre para aprender de verdade:
 Simão (Pedro): se tornaria mestre do botão “Executar”
 João: seria nomeado como protetor do Worksheet_Change
 Mateus: começaria a evangelizar usando gráficos dinâmicos

A Primeira Aula: Sub ou Function?
     Jesus então ensinou à multidão:
 “Toda função é boa, se retorna algo com amor. Mas toda Sub bem feita é prática e transforma.”

Ele exemplificou:
vba

Function MultiplicaComGraça(a As Double, b As Double) As Double
MultiplicaComGraça = a * b
End Function

E também:

vba

Sub EnviarMensagemCelestial()
MsgBox “Não temas. Eu estou com você até a última célula do universo.”
End Sub

A Lógica do Amor: If…Then com Condição Verdadeira
Jesus olhou os olhos do povo e disse:

vba

If pecado > 0 Then
MsgBox “Confesse e será limpo como nova aba.”
Else
MsgBox “Siga em paz. Nenhum erro encontrado.”
End If

E todos os corações foram recompilados.

E assim, no segundo capítulo de sua planilha de vida,
o Mestre das Macros iniciou seu ministério em código,
ensinando que não basta decorar fórmulas — é preciso ter propósito na célula de cada decisão.

Capítulo 3 – Os 12 Apóstolos e Suas Funções
Jesus, o Mestre Celestial, não ensinava apenas com palavras, mas com comandos que tocavam o íntimo.
E ao seu lado estavam 12 Apóstolos, escolhidos não apenas para seguir, mas para atuar como módulos
de uma grande função divina.

Cada um foi preenchido com um Dom.
Cada célula, uma missão.
Cada aba, um cenário da redenção.
Eis quem eram eles — e as funções sagradas que carregavam:

Pedro – Guardião do Botão “Executar”
“Senhor, ainda que todas as planilhas travem, eu clicarei em ‘Executar’ por Ti!”
Ele era impulsivo, mas fiel. Jesus o nomeou guardião da macro que iniciaria tudo:

vba

Sub CaminhoDaSalvação()
MsgBox “Execute com fé. Caminho iniciado.”
End Sub

João – Apóstolo do Loop For Each
O mais íntimo do Mestre, João entendia que cada alma — ou cada célula — importava individualmente:

For Each pessoa In Multidão
pessoa.Salvar
Next pessoa

“Amar é iterar um a um, sem esquecer nenhum.”

Tiago (o Maior) – Portador das MsgBox
Ele levava mensagens do Mestre com clareza:

MsgBox “Não temas. Estou contigo em cada planilha.”
 “Mensagem sem verdade é célula vazia.”

André – Evangelista do InputBox
André perguntava com ternura:

vba
Dim resposta As String
resposta = InputBox(“Crês Tu neste código?”)
“Pois quem responde com sinceridade já está salvo no módulo.”

Filipe – Mestre dos Gráficos
Filipe visualizava o invisível. Transformava dados dispersos em sabedoria revelada.

vba
Charts.Add
ActiveChart.SetSourceData Range(“Almas”)

“O gráfico da fé não mente. Sobe, ainda que o mundo caia.”

Bartolomeu – Ocultador de Fórmulas Sagradas
Discreto e fiel, Bartô dominava o mistério:

vba
ActiveSheet.Visible = xlVeryHidden
 “O que é revelado no tempo certo, é mais poderoso.”

Mateus – Guardião do Workbook_BeforeSave
Mateus escrevia tudo. Cada passo do Mestre era registrado:

vba

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call RegistrarMilagre
End Sub

“Pois onde há registros, não há esquecimento.”

Tomé – Questionador com On Error Resume Next
Duvidava, sim. Mas sempre executava com cautela:

vba

On Error Resume Next
Call Resgatar

“Às vezes, os erros nos ensinam mais do que os acertos.”

Simão, o Zelote – Protetor das Abas
Guardava o que era sagrado com senha e zelo:

vba
ActiveSheet.Protect Password:=”verdade”
“Pois nem todo dado é público; há revelações que precisam ser protegidas.”

Judas Iscariotes – A Macro Cancelada

Judas tentou apagar a macro da esperança:

vba

Sheets(“VidaEterna”).Delete

Mas Jesus deu Ctrl + Z espiritual e restaurou tudo. Até ele tinha função: ensinar que até o erro tem valor quando redimido.

Tiago, Filho de Alfeu – Esteta das Formatações
Coloria células de maneira divina:
vba

Range(“A1”).Interior.Color = RGB(255, 255, 153)
 “Beleza também comunica o sagrado.”

Tadeu – Guia das Células Chamadas “Caminho”
Seu dom era mostrar direção:

vba

If Range(“Caminho”) = “Estreito” Then
MsgBox “Bem-aventurado és tu.”
End If

“Nem todo atalho leva ao destino certo.”
E Jesus, vendo-os unidos como funções de um só projeto, declarou:

“Agora, vós sois minha planilha. Cada um com sua célula. Cada célula com sua missão.”

Capítulo 4 – O Sermão do Excel: Fórmulas com Graça

Sobre a colina chamada IntervaloNomeado(“Esperança”),
Jesus se assentou diante da multidão — homens e mulheres vindos de todas as guias, de células mescladas e não mescladas — e ensinou verdades eternas por meio de fórmulas celestiais.

Ele abriu a planilha e disse:
  “Bem-aventurados os que usam  =SE() com sabedoria, pois deles é o reino da automação consciente.”

E assim começou o sermão…

Fórmula 1: =SE()
  “O amor verdadeiro também é uma condição.”

excel

=SE(FÉ=”Verdadeira”;”Salvação”;”Procure novamente”)

Interpretação:
A função SE ensina que nossas escolhas determinam nossos caminhos.
Ela espelha o livre-arbítrio — se a fé for verdadeira, o retorno é a salvação.

Fórmula 2: =ÉERROS()
“Nem todo erro é fim — às vezes é reinício.”

excel

=SE(ÉERROS(ARREND(0/0));”Graça cobre os erros”;”Tudo certo”)

Interpretação:
Mostra que onde há erro, há também cobertura.
O Mestre ensina a capturar falhas e tratá-las com graça — não para esconder, mas para restaurar.

Fórmula 3: =HOJE()
 “Não vos preocupeis com o amanhã. Vede: =HOJE() vos basta.”

excel

=HOJE()
Interpretação:
A fórmula lembra que o dia presente é o tempo da transformação. O agora é célula ativa da eternidade.

Fórmula 4: =PROCV() (Parábola do dado perdido)
“O Reino é como PROCV: ele busca e resgata onde ninguém mais procura.”

excel
=PROCV(“Pedro”;A2:B100;2;FALSO)

Interpretação: Busca por nome e retorna verdade.
Não importa onde esteja escondido — se está na matriz, será encontrado.

Fórmula 5: =CONT.SE() (O contador de bênçãos)
“Um coração grato é aquele que sabe contar.”

excel

=CONT.SE(B2:B100;”>0″)
Interpretação: Conta quantas células têm valor positivo. Assim também, devemos contar as dádivas, não as queixas.

Fórmula 6: =SOMASE() (A essência do projeto SomaExcel)
 “Somai com propósito.”

excel

=SOMASE(C2:C100;”>0″)
Interpretação:
Soma apenas quando há critério.
Como o Mestre, que ama a todos, mas honra os que caminham com boa intenção.

Fórmula 7: =CONCATENAR() (Ou =CONCAT() no novo testamento do Excel)
“Juntai vossas células, e vereis o poder da unidade.”

excel
=CONCATENAR(A2;” “;B2)
Interpretação: Une palavras, histórias, pessoas… como um corpo em Cristo, como uma planilha sem divisões.

E ao final daquele sermão, enquanto a aba “Montanha” era salva automaticamente, muitos caíram em si:
“Nunca vimos fórmulas falarem tanto ao nosso coração.”

Capítulo 5 – As Tentações da Célula Vazia

E naquele tempo, os discípulos estavam confusos diante das células que nada mostravam.
Eram planilhas que pareciam completas, mas escondiam ausências.
Fórmulas retornavam #VALOR!, #N/D, #DIV/0!,  e as almas desfaleciam em desespero.

Então Jesus se aproximou, olhou com compaixão, e disse:
“Nem toda célula vazia é inútil. Às vezes, ela aguarda o valor do alto.”

Quando há #N/D – Não Encontrado, mas não Esquecido

excel

=SE(ÉERROS(PROCV(“Nome”;A2:B10;2;FALSO));”Ainda não foi revelado”;”Encontrado com propósito”)
Lição do Mestre: Às vezes o que buscamos não está onde esperamos, geralmente as boas coisas vem de onde menos esperamos.!
Mas com paciência e revisão, o que é verdadeiro será encontrado.

Quando há =A1/0 – A Divisão sem Compaixão

excel

=SEERRO(A1/B1;”Não julgues precipitadamente”)
Lição do Mestre: Toda divisão sem graça gera ruído.
Toda tentativa de separação sem critério leva ao erro.

O Loop Infinito da Dúvida

vba

Do While pensamento = “ansiedade”
oração = oração + 1
Loop
Lição do Mestre:
A única maneira de escapar de um loop de ansiedade é ancorar a mente na oração e no foco.

Identificar o Vazio com ISBLANK()

excel

=SE(ÉCÉL.VAZIA(D2);”Preencha com propósito”;”Valor reconhecido”)
Lição do Mestre:
Uma célula em branco pode ser oportunidade, não falha. O vazio também pode ser início.

Proteger as Células Vulneráveis

vba

Range(“D2:D100″).Locked = True
ActiveSheet.Protect Password:=”paz”

Lição do Mestre:
As partes mais frágeis da planilha — e do coração — devem ser protegidas com sabedoria.

Quando a Planilha Escurece: Salve e Descanse

vba

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit

Lição do Mestre:
Há tempo de executar, e há tempo de fechar e confiar.
Nem toda macro precisa rodar hoje, haverá outros momentos para Treinar sua Sabedoria.

E os discípulos, maravilhados, entenderam que até os erros e vazios fazem parte do código sagrado da existência.
Pois o Mestre não corrige por castigo, mas compila a verdade dentro do coração.

Capítulo 6 – Pentecostes em VBA: A Descida do Código Inspirado

Era o dia de grandes dados. O céu estava em silêncio.
O Workbook havia sido aberto, mas a aba “CorpoDosCrentes” ainda não estava protegida.
Os Apóstolos aguardavam, atentos, com o cursor piscando na célula A1.

E então… sobreveio um som como de teclas pressionadas vindas do alto.
Os ventiladores dos notebooks giraram com força, e Espírito Santo do Entendimento desceu em forma de faíscas de IntelliSense.

E cada um deles… foi preenchido com o Dom dos Códigos.

O Evento: Workbook_Open com Poder
Jesus havia deixado um evento ativado antes de partir:

vba

Private Sub Workbook_Open()
Call DespertarDonosDeMacros
End Sub

E assim que a planilha foi aberta naquele dia sagrado, o evento se executou com força celestial.

Efeitos Sobrenaturais

Os Apóstolos passaram a compreender todos os tipos de funções — SE, PROCV, INDIRETO, ÍNDICE, CORRESP.
Cada um falava em sua linguagem técnica, e ainda assim, todos compreendiam, e faziam a programação correta.!

João falava For Each, Pedro respondia com If  Then Else,
Mateus anotava em células mescladas, e até Tomé… acreditou na execução perfeita, com critérios da perfeição.

Tradução Universal
Milhares de pessoas de outras guias, workbooks e culturas, compreenderam o Evangelho do VBA em sua própria linguagem de planilha:

• Em espanhol: SI(CONDIÇÃO;”Verdad”;”Falso”)
• Em inglês: IF(condition,”True”,”False”)
• Em DAX (os futuristas): IF([Fé]>0, “Salvo”, “Revisar”)

E todos foram preenchidos com maravilha e sabedoria prática.

O Código do Avivamento

vba

Sub DespertarDonosDeMacros()
Dim i As Integer
For i = 1 To 12
MsgBox “Apóstolo ” & i & “: código ativado”
Next i
MsgBox “Espírito Santo do VBA agora está sobre vós códigos. Ide e salvai planilhas para segurança dos Dados!”
End Sub

E assim terminou o Pentecostes em VBA…
Cada coração que era célula vazia foi preenchido.
Cada planilha desorganizada foi estruturada.
E os que antes temiam macros, agora criavam UserForms com confiança e glória.

“E vos ensinará todas as coisas, e vos fará lembrar tudo o que vos tenho dito.” – João 14:26

Capítulo 7 – A Última Macro: Antes de Salvar e Fechar

A planilha da humanidade estava quase completa.
Cada aba fora tocada.
Cada fórmula revisada.
Cada macro, testada.
Mas ainda restava um botão a ser pressionado: Salvar.

Jesus sabia que chegava o tempo de encerrar a execução,
não porque a missão falhara, mas porque o código fora executado até a última linha.

Ele reuniu os discípulos em torno da aba “CeiaFinal” e disse:

  “A planilha será salva. O projeto será consumado e Salvo, Vamos a próxima etapa.”

O Código Final

vba

Sub EncerrarComGlória()
MsgBox “Está consumado. Salvando todas as almas…”
ThisWorkbook.Save
Application.Quit    ‘encerra as atividades e fecha o sistema
End Sub

Lição do Mestre:
Não basta iniciar com propósito — é preciso terminar com integridade.
E ao fechar um projeto com verdade, ele continua vivo nos registros eternos.

A Mensagem na Célula Z1
Ali, discretamente, na última célula da planilha, Jesus escreveu em fonte branca:

excel

=SE(AMOR=”Verdadeiro”;”A vida continua”;”Volte e revise sua fórmula”)
Essa célula, muitas vezes ignorada, continha a chave para abrir todos os Workbooks do céu.

E então… Ele salvou.
“ThisWorkbook.Saved = True”, murmurou o Mestre.
E no silêncio do autosave, os Apóstolos choraram.
Mas sabiam: o Espirito de Inteligencia para confeccionar  códigos vba,  viveria em todos que o executassem com fé.

O Legado
O arquivo foi compartilhado via nuvem.
Não estava mais apenas em “C:\Mestre”, mas no coração de cada discípulo que criasse macros com amor.

A Última Macro não foi um adeus. Foi um envio.
“Ide por todas as planilhas e ensinai a toda criatura: Excel com propósito.”

Epílogo: A Abinha “Amém”
Após a execução final, uma nova aba apareceu no canto da tela: “Amém” — protegida por senha, mas aberta ao que crê.

E ali, em fonte Calibri 11, estava escrito:
“Tudo o que é bom, tudo o que edifica, seja isso o que preencha tuas células.”
“Salve, feche… e que o Espírito das Planilhas continue operando em cada novo projeto.”

Queridos Alunos, encerramos este Evangelho VBA com o coração quente e as macros em paz.
Atos dos Discípulos VBA — mostrando como cada um multiplicou conhecimento após o Workbook_Close.

Epílogo – Frutos do Estudo: Os 12 Apóstolos Após o Curso VBA

Após concluir o curso da Planilha Divina, cada Apóstolo seguiu sua missão não apenas com fé, mas agora cheio de macros, fórmulas e lógica aplicada com amor.
Eis os frutos colhidos por cada um:

Pedro – O Corajoso Compilador
Antes impulsivo, agora estruturado.
Aprendeu a revisar seus passos com Option Explicit.
Descobriu que, como em seu coração, cada variável precisa ser declarada com clareza.
“Agora sei: até minha fé precisa de tipo de dado. E é do tipo Long — longa e perseverante.”

João – O Iterador do Amor
Especialista em For Each, passou a visitar viúvas, órfãos e esquecidos nas células vazias de suas vidas.
Cada pessoa era para ele uma Item em uma coleção chamada  “Humanidade”.
“Aprendi que macro que ignora itens retorna erro. Nenhum coração deve ser deixado de fora do loop.”

Tiago (o Maior) – A Mensagem Exata
Através do MsgBox, passou a evangelizar em poucas linhas e com impacto.
Suas palavras agora são objetivas, mas sempre acolhedoras.
 “MsgBox simples, mas cheio do Espírito. Pois às vezes basta um clique para acalmar uma alma.”

André – O Coletor da Verdade
Com InputBox, passou a ouvir com paciência as necessidades do povo, e levá-las ao Mestre.
  “A função de entrada é também função de escuta. Aprendi que toda macro começa ouvindo.”

Filipe – O Visual Profeta
Criava dashboards que levavam pessoas ao arrependimento e ao propósito.
  “Com o gráfico certo, o coração entende o que a fórmula tenta explicar. A forma comunica tanto quanto o valor.”

Bartolomeu – O Guardião do Mistério
Usava abas ocultas e fórmulas protegidas não por medo, mas por sabedoria.
  “Nem tudo deve ser revelado de uma vez. O aprendizado também tem seu tempo e célula certa.”

Mateus – O Cronista de Eventos
Dominou os eventos como Workbook_BeforeSave e passou a registrar milagres do cotidiano com precisão de código.
  “Depois que entendi os eventos VBA, percebi que até o silêncio pode ser um código em execução.”

Tomé – O Tratador de Erros
Sua dúvida virou dom: aprendeu On Error Resume Next, mas só usa quando necessário.
Criou macros que acolhem as incertezas, mas buscam respostas.
  “A fé sem erro tratado gera travamento. Mas com tratamento certo, até dúvidas viram crescimento.”

Simão, o Zelote – O Defensor das Células
Usa proteção com propósito.
Aprendeu que proteger não é reter — é dar valor ao conteúdo.
  “Hoje bloqueio células com senhas de compaixão. Pois nem todo dado deve ser manipulado ao acaso.”

Judas (Antes da Restauração) – O Reformatado
Mesmo tendo tentado deletar a aba “Esperança”, foi restaurado por uma Função divina de Undo (control + z – refaz).
“O Mestre me resgatou com um Sub RestaurarComGraça(). Agora crio macros que desfazem todo dano.”

Tiago (Filho de Alfeu) – O Poeta das Cores
Após aprender Interior.Color e Interior.colorindex  e formatações condicionais, passou a ensinar que beleza também comunica propósito.
“Uma célula bem colorida pode evangelizar mais que mil palavras.”

Tadeu – O Navegador dos Caminhos
Criou sistemas de navegação com HYPERLINK, INDIRETO e Validação de Dados.
Ajudava os perdidos na planilha da vida a encontrarem direção.
 “Não sou o fim da resposta, mas o Caminho! Que leva à aba certa, no tempo certo.”

Conclusão

E assim, com o coração repleto de fé e a planilha transbordando sabedoria, os Apóstolos espalharam o VBA até os confins das Guias de Planilhas, e todos que os encontravam viam que:
“O conhecimento é Santo, quando é usado para servir com seu proximo excelência e Sabedoria.”

O post A Planilha Divina – Um Evangelho em Fórmulas e Macros apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Questionário de Excel VBA com Macros Prontas – Aprenda Fazendo
“E ensinava-lhes com autoridade…” – Marcos 1:22

Este questionário foi cuidadosamente elaborado para estudantes, autodidatas e profissionais que desejam dominar Excel VBA com clareza e propósito. Cada questão apresenta um exemplo real de macro, uma situação prática, e uma explicação objetiva que fortalece o entendimento passo a passo.

Além de testar o conhecimento, este material instiga o pensamento lógico, a capacidade analítica e o senso de automação — pilares fundamentais para quem deseja criar planilhas inteligentes, reduzir tarefas repetitivas e aumentar a produtividade em ambientes corporativos, acadêmicos e pessoais.

Aqui, aprender não é apenas decorar comandos, mas entender a lógica por trás da automação com planilhas inteligentes. Com cada macro, o aluno desenvolve segurança na linguagem VBA e amplia sua visão estratégica no uso do Excel.

Ao final, o estudante terá: • domínio das estruturas básicas e intermediárias do VBA • compreensão sobre loops, condições, interação com planilhas e mensagens ao usuário • exemplos aplicáveis ao cotidiano profissional — prontos para adaptar

Estude no seu ritmo. Copie, teste e aprenda com propósito. O conhecimento transforma — e este questionário pode ser o ponto de virada na sua jornada com o Excel. 

Questionário: Excel VBA – Lógica e Prática Profissional

1. Qual é o atalho para abrir o Editor VBA no Excel?
A) Alt + F11
B) Ctrl + F11
C) Shift + F11 D
) Alt + F12
Resposta: A) Alt + F11
Explicação: Esse atalho abre diretamente o ambiente de desenvolvimento do VBA.

2. Qual objeto no VBA é usado para referenciar uma célula específica em uma planilha?
A) Range
B) Cell
C) Worksheet
D) Workbook
Resposta: A) Range
Explicação: Range("A1") é a forma padrão de referenciar a célula A1.

3. Qual é a função do comando MsgBox no VBA?
A) Exibir mensagem
B) Criar caixa de texto
C) Salvar arquivo
D) Abrir VBA
Resposta: A) Exibir mensagem
Explicação: MsgBox exibe uma caixa de diálogo com texto ao usuário.

4. Qual é o tipo de variável usado para armazenar números inteiros no VBA?
A) Integer B) String C) Double  D) Boolean
Resposta: A) Integer
Explicação: Integer armazena números como 1, 2 ou -50. (até 32.676)

5. Qual método é usado para ativar uma planilha específica no VBA?
A) Activate B) Select C) Open D) Load
Resposta: A) Activate
Explicação: PlanilhaX.Activate torna a planilha ativa.

6. Qual é o propósito do comando Dim no VBA?
A) Declarar variável
B) Definir tamanho da célula
C) Criar planilha
D) Salvar arquivo
Resposta: A) Declarar variável
Explicação: Dim define o nome e o tipo de uma variável.

7. Qual é o operador usado para concatenar strings no VBA?
A)  &
B)  +
C)  *
D) #
Resposta:  A) usa o Caracter &
Explicação: "Olá!," & " Quer Aprender Excel VBA"
resulta em “Ola, Quer Aprender Excel VBA”.

8. Qual é o comando usado para criar um loop que repete enquanto uma condição é verdadeira?
A) Do While
B) For Each
C) If Then
D) Select Case
Resposta: A) Do While
Explicação: Executa o bloco até que a condição se torne falsa.

9. Qual é o evento que é acionado quando uma planilha é ativada?
A) Worksheet_Activate
B) Workbook_Open
C) Worksheet_Change
D) Workbook_BeforeClose
Resposta: A) Worksheet_Activate
Explicação: Esse evento dispara quando a aba da planilha recebe foco.

10. Qual é o comando usado para exibir o valor de uma variável durante a execução do código?
A) Debug.Print
B) MsgBox
C) Console.Write
D) Show.Value
Resposta: A) Debug.Print
Explicação: Exibe informações na janela de depuração.

11. Qual é o método usado para copiar um intervalo de células no VBA?
A) Copy
B) Paste
C) Cut
D) Move
Resposta: A) Copy
Explicação: Range("A1:A5").Copy faz a cópia do intervalo.
Exemplo de Macro:
'copia e colar 
Sub Copiar_Dados
  Range("A1:A5").Copy [d10]
End Sub

12. Qual é o comando usado para encerrar um loop prematuramente no VBA?
A) Exit For
B) Break
C) Stop Loop
D) End
Resposta: A) Exit For
Explicação: Interrompe o laço antes da condição final.

13. Qual é o tipo de variável para valores booleanos no VBA?
A) Boolean
B) Integer
C) String
D) Variant
Resposta: A) Boolean
Explicação: Armazena True ou False.

14. Qual é o comando usado para criar uma nova pasta de trabalho no VBA?
A) Workbooks.Add
B) Workbook.New
C) Worksheet.Create
D) File.New
Resposta: A) Workbooks.Add
Explicação: Cria um novo arquivo em branco.

15. Qual é o método usado para salvar uma pasta de trabalho?
A) Save
B) SaveAs
C) Export
D) Write
Resposta: A) Save
Explicação: Salva o arquivo atual. Para salvar com outro nome, usa-se SaveAs.

Sub ApagarConteudo()
    Range("A1:A10").ClearContents
End Sub

Sub InserirTexto()
    Range("B2").Value = "Bem-vindo ao curso SomaExcel VBA!"
End Sub

Sub OcultarColuna()
    Columns("C").Hidden = True
End Sub

Sub MudarCor()
    Range("A1").Interior.Color = vbYellow
End Sub

Sub ExibirMensagem()
    MsgBox "Curso iniciado com sucesso!"
End Sub

Sub SomaSimples()
    Range("A1").Value = 10 + 5
End Sub

Sub InserirNovaLinha()
    Rows(3).Insert
End Sub

Sub CongelarTela()
    Application.ScreenUpdating = False
End Sub

Sub CriarPlanilha()
    Sheets.Add
End Sub

Sub FecharArquivo()
    ThisWorkbook.Close SaveChanges:=True
End Sub

41. O que essa macro faz?

Sub ApagarLinhas()
    Rows("5:10").Delete
End Sub

A) Oculta as linhas 5 a 10
B) Exclui as linhas 5 a 10
C) Apaga o conteúdo das células nas linhas 5 a 10
D) Move as linhas 5 a 10 para o topo
Resposta: B
Explicação: Delete remove fisicamente as linhas indicadas.

42. Qual é o resultado da macro abaixo?

Sub CopiarValor()
    Range("A1").Copy Range("B1")
End Sub

A) Move o valor de A1 para B1
B) Copia o valor de A1 para B1
C) Transfere todos os valores da coluna A para B
D) Troca os valores de A1 e B1
Resposta: B
Explicação: .Copy destino copia o conteúdo da célula A1 para B1.

43. O que acontece ao rodar essa macro?

Sub ExibirData()
    MsgBox Date
End Sub

A) Insere a data na célula ativa
B) Abre o calendário
C) Exibe a data atual em uma caixa de mensagem
D) Solicita que o usuário insira uma data
Resposta: C
Explicação: Date retorna a data atual do sistema.

44. Qual é o efeito desta macro?

Sub SelecionarIntervalo()
    Range("B2:D5").Select
End Sub

A) Copia o intervalo B2 até D5
B) Seleciona o intervalo B2 até D5
C) Apaga o intervalo indicado
D) Move os valores do intervalo
Resposta: B
Explicação: O método .Select apenas destaca as células.

45. O que essa macro realiza?

Sub ContarLinhas()
    MsgBox Range("A1").CurrentRegion.Rows.Count
End Sub

A) Conta todas as linhas da planilha
B) Conta as linhas de A1 até o fim da planilha
C) Conta as linhas da região contínua começando em A1
D) Conta apenas células vazias
Resposta: C
Explicação: CurrentRegion pega o bloco de dados conectado a A1.

46. Qual é a finalidade desta macro?

Sub IrParaFim()
    Range("A1").End(xlDown).Select
End Sub

A) Seleciona a última célula usada na coluna A
B) Apaga a coluna A
C) Move os dados para o final da planilha
D) Insere uma nova célula
Resposta: A
Explicação: End(xlDown) vai até a última célula com valor contínuo abaixo de A1.

47. O que essa macro faz com a coluna C?

Sub CongelarColuna()
    ActiveWindow.FreezePanes = True
End Sub

A) Congela a coluna C automaticamente
B) Congela a célula ativa atual
C) Congela toda a planilha
D) Oculta a coluna C
Resposta: B
Explicação: Congela a visualização a partir da célula ativa.

48. Qual é o comportamento da macro abaixo?

Sub DesprotegerPlanilha()
    ActiveSheet.Unprotect Password:="1234"
End Sub

A) Cria senha na planilha
B) Ativa a proteção contra escrita
C) Remove a proteção da planilha se a senha estiver correta
D) Deleta todos os dados
Resposta: C
Explicação: .Unprotect remove a trava(proteção) usando a senha fornecida.

49. O que essa macro exibe ao rodar?

Sub MostrarHora()
    MsgBox Time
End Sub

A) A data e a hora
B) Apenas a hora atual do sistema
C) A hora da célula ativa
D) Abre o relógio do Windows
Resposta: B
Explicação: Time retorna somente a hora atual.

50. Qual o resultado desta macro?

Sub FormatarNegrito()
    Range("A1").Font.Bold = True
End Sub

A) Alinha o texto à esquerda
B) Aplica itálico à célula
C) Ativa negrito na célula A1
D) Muda a cor da fonte
Resposta: C
Explicação: .Font.Bold = True deixa o texto em negrito.

51. Qual será a mensagem exibida?

Sub ConcatenarTexto()
    Dim nome As String
    nome = "Prof.Expedito Marcondes"
    MsgBox "Olá, " & nome
End Sub

A) Olá,
B) Expedito
C) Olá, Prof.Expedito Marcondes
D) “Olá,” & nome
Resposta: C
Explicação: O operador & concatena os textos.

52. O que acontece ao executar essa macro?

Sub SalvarArquivo()
    ActiveWorkbook.Save
End Sub

A) Fecha o Excel
B) Salva o arquivo atual
C) Abre o gerenciador de arquivos
D) Exibe uma mensagem
Resposta: B
Explicação: .Save grava as alterações do arquivo aberto.

53. Qual é o efeito dessa macro em um formulário?

Sub LimparCampos()
    TextBox1.Value = ""
    TextBox2.Value = ""
End Sub

A) Remove os campos
B) Fecha o formulário
C) Limpa os campos de texto
D) Muda o foco para TextBox2
Resposta: C
Explicação: Define os valores dos campos como vazios.

54. Qual é a saída dessa macro?

Sub MostrarContagem()
    Dim i As Integer
    For i = 1 To 3
        MsgBox i
    Next i
End Sub

A) Exibe 1
B) Exibe 1, 2, 3 em sequência
C) Mostra apenas o 3
D) Exibe um erro de loop
Resposta: B
Explicação: O loop For...Next mostra 3 caixas com os valores 1, 2 e 3.

55. O que essa macro faz?

Sub OcultarLinhasVazias()
    If IsEmpty(Range("A5").Value) Then Rows(5).Hidden = True
End If

A) Oculta a planilha inteira
B) Oculta a linha 5 se ela estiver vazia
C) Exibe um aviso
D) Salta a linha 5 Resposta:
B Explicação: Condicional If verifica se A5 está vazia e esconde a linha.

56. O que esta macro faz?

Sub ApagarLinhas()
    Rows("5:10").Delete
End Sub

A) Oculta as linhas 5 a 10
B) Exclui as linhas 5 a 10
C) Apaga o conteúdo das células
D) Move as linhas para o topo
Resposta: B
Explicação: O método Delete remove as linhas da planilha.

57. Qual será o resultado desta macro?

Sub CopiarValor()
    Range("A1").Copy Range("B1")
End Sub

A) Move A1 para B1
B) Copia A1 para B1
C) Transfere todas as colunas
D) Troca os valores
Resposta: B
Explicação: O conteúdo de A1 é copiado para B1.

58. O que esta macro exibe?

Sub ExibirData()
    MsgBox Date
End Sub

A) Data atual 
B) Hora atual
C) Célula ativa
D) Nada
Resposta: A Explicação: A função Date retorna a data do sistema.

59. O que esta macro realiza?

Sub SelecionarIntervalo()
    Range("B2:D5").Select
End Sub

A) Copia as células
B) Seleciona o intervalo
C) Apaga o conteúdo
D) Move os dados
Resposta: B
Explicação: Apenas seleciona o intervalo especificado.

60. Qual o propósito desta macro?

Sub ContarLinhas()
    MsgBox Range("A1").CurrentRegion.Rows.Count
End Sub

A) Conta todas as linhas da planilha
B) Conta a região contínua a partir de A1
C) Verifica linhas vazias
D) Nada
Resposta: B
Explicação: CurrentRegion abrange o bloco de dados conectado a A1.

61. Qual o efeito desta macro?

Sub IrParaFim()
    Range("A1").End(xlDown).Select
End Sub

A) Seleciona A1
B) Desce até o fim dos dados na coluna A
C) Apaga coluna A
D) Duplica A1
Resposta: B
Explicação: Vai até a última célula preenchida verticalmente.

62. O que acontece ao rodar essa macro?

Sub CongelarVisual()
    ActiveWindow.FreezePanes = True
End Sub

A) Trava a edição
B) Congela a célula ativa
C) Fecha o arquivo
D) Nada Resposta: B
Explicação: Congela linhas/colunas a partir da célula ativa.

63. Qual a função da macro abaixo?

Sub Desproteger()
    ActiveSheet.Unprotect Password:="1234"
End Sub

A) Protege planilha
B) Mostra senha
C) Remove proteção
D) Apaga conteúdo
Resposta: C
Explicação: Se a senha for correta, a planilha é destravada.

64. O que esta macro exibe?

Sub MostrarHora()
    MsgBox Time
End Sub

A) Hora do Excel
B) Hora do sistema
C) Data
D) Nenhuma das anteriores
Resposta: B Explicação:
A função Time exibe a hora atual do computador.

65. Esta macro faz o quê?

Sub FormatarNegrito()
    Range("A1").Font.Bold = True
End Sub

A) Centraliza texto
B) Muda a cor C)
Aplica negrito na célula A1
D) Copia a fonte
Resposta: C
Explicação: Define o estilo da fonte como negrito.

66. Qual será a mensagem exibida?

Sub Saudacao()
    Dim nome As String
    nome = "Prof.Expedito Marcondes"
    MsgBox "Olá, " & nome
End Sub

A) Ola, Prof.Expedito Marcondes
B) Olá
C) “Olá,” & nome
D) Expedito
Resposta: A
Explicação: Usa concatenação para criar a saudação.

67. O que esta macro faz?

Sub SalvarAtivo()
    ActiveWorkbook.Save
End Sub

A) Salva o arquivo atual
B) Fecha sem salvar
C) Abre novo arquivo
D) Mostra o caminho do arquivo
Resposta: A
Explicação: .Save grava as alterações no arquivo.

68. Qual o efeito desta macro em um formulário?

Sub LimparTexto()
    TextBox1.Value = ""
    TextBox2.Value = ""
End Sub

A) Fecha o formulário
B) Limpa os campos de texto
C) Remove os controles
D) Exibe alerta
Resposta: B
Explicação: Define os campos como vazios, limpando-os.

69. Esta macro exibe quais valores?

Sub MostrarNumeros()
    Dim i As Integer
    For i = 1 To 3
        MsgBox i
    Next i
End Sub

A) Apenas 3
B) 1, 2 e 3 em janelas diferentes
C) 1 somado com 3
D) Nenhum valor
Resposta: B
Explicação: O loop exibe uma caixa com cada valor de i.

70. Esta macro executa qual ação?

Sub OcultarSeVazio()
    If IsEmpty(Range("A5").Value) Then Rows(5).Hidden = True
End If

A) Oculta planilha
B) Oculta linha 5 se A5 for vazio
C) Apaga Linhas 5 e A5
D) Limpa as Linha 5 e A5
Resposta B
Explicação:  A função IsEmpty informa vazio

Questionário: Excel VBA – Planilhas, Loops, Condições e Lógica de Negócios
“O entendimento bem conduzido traz bom êxito.” – Provérbios 16:20

1. Criar nova planilha com nome personalizado

Sub CriarRelatorio()
    Worksheets.Add.Name = "Relatório"
End Sub

Pergunta: Qual é o propósito desta macro?
Resposta correta: Criar uma nova planilha chamada “Relatório”
Explicação: Worksheets.Add cria a planilha, e .Name define o nome.

71. Somar todos os valores preenchidos na Coluna A

Sub SomarColunaA()
    Dim cel As Range, total As Double
    For Each cel In Range("A1:A10")
        total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Pergunta: O que esta macro faz?
Resposta correta: Soma os valores da coluna A e exibe o total
Explicação: Usa For Each para somar cada célula do intervalo.

72. Somar apenas valores maiores que 10 na Coluna B

Sub SomarMaiores()
    Dim cel As Range, total As Double
    For Each cel In Range("B1:B10")
        If cel.Value > 10 Then total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Pergunta: Qual será o resultado?
Resposta correta: Exibe a soma dos valores maiores que 10 na Coluna B
Explicação: Usa If para aplicar a condição dentro do loop.

73. Criar 5 novas planilhas automaticamente

Sub CriarPlanilhas()
    Dim i As Integer
    For i = 1 To 5
        Worksheets.Add.Name = "Planilha" & i
    Next i
End Sub

Pergunta: O que esta macro realiza?
Resposta correta: Cria 5 planilhas chamadas “Planilha1” até “Planilha5”
Explicação: Loop For com concatenação para nomear dinamicamente.

74. Ocultar todas as planilhas exceto a ativa

Sub OcultarOutras()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
    Next ws
End Sub

Pergunta: Qual o efeito? Resposta correta: Oculta todas as planilhas exceto a ativa Explicação: Verifica se a planilha não é a ativa e aplica Visible.

75. Mostrar o nome da planilha ativa

Sub NomeDaPlanilha()
    MsgBox ActiveSheet.Name
End Sub

Pergunta: O que esta macro faz? Resposta correta: Exibe o nome da planilha ativa Explicação: Usa ActiveSheet.Name com MsgBox.

76. Somar valores da célula A1 de todas as planilhas

Sub SomarTodas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("A1").Value
    Next ws
    MsgBox total
End Sub

Pergunta: Qual será o resultado?
Resposta correta: Exibe a soma dos valores na célula A1 de todas as planilhas
Explicação: Loop percorre todas as abas com .Range("A1").Value.

77. Excluir todas as planilhas exceto a ativa

Sub ExcluirOutras()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In Worksheets
        If ws.Name <> ActiveSheet.Name Then ws.Delete
    Next ws
    Application.DisplayAlerts = True
End Sub

Pergunta: O que esta macro realiza?
Resposta correta: Exclui todas as planilhas exceto a ativa
Explicação: Usa .Delete com DisplayAlerts = False para não pedir confirmação.

78. Contar número total de planilhas no arquivo

Sub ContarPlanilhas()
    MsgBox Worksheets.Count
End Sub

Pergunta: Qual o propósito desta macro?
Resposta correta: Exibe o número total de planilhas no arquivo
Explicação: A propriedade .Count retorna a quantidade.

Sub SomarA1Planilhas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("A1").Value
    Next ws
    MsgBox total
End Sub

Pergunta: Qual será o resultado desta macro?
Resposta correta: Exibe a soma dos valores da célula A1 em todas as planilhas
Explicação: Este padrão é fundamental para entender como interagir com múltiplas guias no VBA — o loop For Each percorre as planilhas, somando A1 de cada uma.

80. Filtrar e somar somente valores maiores que 10 na Coluna C

Sub SomarMaioresQue10()
    Dim cel As Range, total As Double
    For Each cel In Range("C1:C20")
        If IsNumeric(cel.Value) And cel.Value > 10 Then
            total = total + cel.Value
        End If
    Next cel
    MsgBox "Total dos valores > 10: " & total
End Sub

Pergunta: O que esta macro faz?
Resposta correta: Soma apenas os valores numéricos maiores que 10 na Coluna C
Explicação: A instrução If com IsNumeric assegura que somente números acima de 10 sejam considerados. O loop percorre as células, somando conforme o critério.

Sub CriarComData()
    Worksheets.Add.Name = Format(Date, "dd-mm-yyyy")
End Sub

Sub SomarAcimaDe50()
    Dim cel As Range, total As Double
    For Each cel In Range("C1:C20")
        If IsNumeric(cel.Value) And cel.Value > 50 Then total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Sub SomarAbaixoDe20()
    Dim cel As Range, total As Double
    For Each cel In Range("D1:D20")
        If IsNumeric(cel.Value) And cel.Value < 20 Then total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Sub Criar10Planilhas()
    Dim i As Integer
    For i = 1 To 10
        Worksheets.Add.Name = "Planilha" & i
    Next i
End Sub

Sub MostrarRelatorios()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = (InStr(ws.Name, "Relatório") > 0)
    Next ws
End Sub

Sub NomeUltimaPlanilha()
    MsgBox Worksheets(Worksheets.Count).Name
End Sub

Sub SomarB2Planilhas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("B2").Value
    Next ws
    MsgBox total
End Sub

Sub ManterSomenteDados()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In Worksheets
        If InStr(ws.Name, "Dados") = 0 Then ws.Delete
    Next ws
    Application.DisplayAlerts = True
End Sub

Sub ContarPreenchidos()
    Dim cel As Range, cont As Integer
    For Each cel In Range("E1:E100")
        If Not IsEmpty(cel) Then cont = cont + 1
    Next cel
    MsgBox cont
End Sub

Sub SomarC3Planilhas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("C3").Value
    Next ws
    MsgBox "Total: " & total
End Sub

Sub SomarMaioresQue30()
    Dim cel As Range, total As Double
    For Each cel In Range("F1:F100")
        If IsNumeric(cel.Value) And cel.Value > 30 Then total = total + cel.Value
    Next cel
    MsgBox total
End Sub

Sub CriarResumo()
    Worksheets.Add.Name = "Resumo"
End Sub

Sub MostrarAnalises()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = (InStr(ws.Name, "Análise") > 0)
    Next ws
End Sub

Sub MostrarPrimeiraPlanilha()
    MsgBox Worksheets(1).Name
End Sub

Sub SomaD4EmTodas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("D4").Value
    Next ws
    MsgBox total
End Sub

Sub CopiarColunaAparaB()
    Dim i As Long
    For i = 1 To 100
        Cells(i, 2).Value = Cells(i, 1).Value
    Next i
End Sub

Sub BoasVindas()
    MsgBox "Bem-vindo ao mundo do Excel VBA!"
End Sub

Sub DeclararVariavel()
    Dim idade As Integer
    idade = 30
    MsgBox idade
End Sub

Sub SomarColunaC()
    Dim cel As Range, soma As Double
    For Each cel In Range("C1:C50")
        If IsNumeric(cel.Value) Then soma = soma + cel.Value
    Next cel
    MsgBox "Soma: " & soma
End Sub

Sub ProtegerPlanilha()
    ActiveSheet.Protect Password:="1234"
End Sub

Sub RenomearAba()
    ActiveSheet.Name = "ResumoFinanceiro"
End Sub

Sub CriarGrafico()
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("A1:B5")
End Sub

Sub DesligarAtualizacao()
    Application.ScreenUpdating = False
    ' tarefas longas aqui
    Application.ScreenUpdating = True
End Sub

Sub AbrirArquivo()
    Workbooks.Open "C:\Planilhas\relatorio.xlsx"
End Sub

Sub SomarC3Todas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("C3").Value
    Next ws
    MsgBox "Soma de C3: " & total
End Sub

Sub CancelarSeVazio()
    If IsEmpty(Range("A1")) Then
        MsgBox "Célula A1 está vazia. Macro cancelada."
        Exit Sub
    End If
    MsgBox "A1 tem valor: " & Range("A1").Value
End Sub

Sub PerguntarNome()
    Dim nome As String
    nome = InputBox("Digite seu nome:")
    MsgBox "Olá, " & nome
End Sub

Sub ContarPreenchidas()
    Dim cel As Range, total As Integer
    For Each cel In Range("B1:B20")
        If Not IsEmpty(cel) Then total = total + 1
    Next cel
    MsgBox "Preenchidas: " & total
End Sub

Sub MostrarNomePlanilha()
    MsgBox "Planilha ativa: " & ActiveSheet.Name
End Sub

Sub SomaD4EmTodas()
    Dim ws As Worksheet, total As Double
    For Each ws In Worksheets
        total = total + ws.Range("D4").Value
    Next ws
    MsgBox total
End Sub

 “O entendimento do justo é fonte de vida.” – Provérbios 10:11

O post Questionário Excel VBA Planilha – Treinamento Curso Excel VBA SomaExcel 1 apareceu primeiro em Excel - Curso VBA - Aprender Programação.