Arquivo de Programação Excel - Excel - Curso VBA - Aprender Programação

M2 – Aula 278 – Excel VBA Celulas e Range Função Instr() e Mid() Extrair Dados 2

Marcondes — Wed, 25 Jun 2025 19:34:51 +0000

Video Disponível somente na area de membros

Curso Excel VBA Tutorial | como fazer com Excel VBA Celulas e Range Função Instr() e Mid() Extrair Dados | M2 – Aula 278 – 2

Faça o Download do Exemplo de Planilha (somente area de membros)
Excel VBA para seu Treinamento | Tutorial Excel VBA Treinamento
M2 – Aula 278 – Excel VBA Celulas e Range Função Instr() e Mid() Extrair Dados 2.xlsm

Domine o Excel VBA Com Exercicios de Planilhas e Treinamento com VBA de Forma Simples e Objetiva, Códigos fáceis e motivadores, pois verá os resultados de seus treinamentos em tempo real:

Localize e Extraia Dados com InStr() e Mid()
Videoaula M2 Aula 278-2 com – Prof. Expedito Marcondes

Você já precisou localizar informações específicas dentro de uma célula do Excel e extrair apenas o que realmente importa?
Nesta aula especial, você vai aprender como o VBA pode fazer isso automaticamente, com precisão e inteligência.

Quer acesso a todos os códigos VBA prontos para uso?

Clique no botão abaixo para acessar a área de membros exclusiva :
Com Macros Exemplos e Tutoriais para o Treinamento com Excel VBA Planilhas Exercicios

Acessar Área de Membros

O que você vai aprender nesta aula:

Como usar Cells() e Range() da forma correta
Utilizar InStr() para localizar textos dentro da célula
Aplicar Mid() para extrair trechos úteis de dados
Técnicas para manipular nomes, CPFs, e-mails e muito mais
Práticas com macros reais para aplicar no seu trabalho

“O coração do prudente adquire o conhecimento, e o ouvido dos sábios busca a sabedoria.” — Provérbios 18:15

Exemplos Abordados na aula Tutorial Excel VBA Planilha Treinamento com Planilhas:

Exemplo 1 — Localizar em que posição aparece a palavra “CPF”
Exemplo 2 — Extrair parte de um texto em uma célula
Exemplo 3 — Separar nome e sobrenome automaticamente
Exemplo 4 — Procurar por “erro” em várias linhas
Exemplo 5 — Extrair domínio de um endereço de e-mail ⋯ e muito mais!

Excel VBA Planilha como fazer Exemplos práticos em VBA para aplicar os conceitos para treinamento com Excel VBA.

Exemplo 1 – Excel VBA Planilha como Localizar a posição de um texto específico
→Excel VBA Planilha como Mostra em que posição da célula A1 aparece a palavra “CPF”

vba

Sub Exemplo1() 
    acesse parea de membros 
    MsgBox InStr(1, Range("A1").Value, "CPF")
End Sub

Exemplo 2 –Excel VBA Planilha como Extrair uma parte fixa do texto em A1
→ Excel VBA Planilha como Extrai 10 caracteres a partir da 5ª posição e joga na célula B1

vba

Sub Exemplo2()
    Dim texto As String
     🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 3 – Excel VBA Planilha como Extrair dados após dois-pontos
→ Excel VBA Planilha como De “Cliente: João Silva”, extrai “João Silva”

vba

Sub Exemplo3()
    Dim pos As Integer
    Dim frase As String
     🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊 
End Sub

Exemplo 4 – Excel VBA Planilha como Verificar várias células com Cells()
→Excel VBA Planilha como Marcar com “Contém erro” se a palavra “Erro” aparecer nas 10 primeiras linhas da coluna A

vba

Sub Exemplo4()
    Dim i As Integer
    For i = 1 To 10
       Acesse área de membros
    Next i
End Sub

Exemplo 5 – Excel VBA Planilha como Extrair o domínio de um e-mail
→Excel VBA Planilha como extrair o dominio de um email De “joao@email.com”, extrai “email.com”

vba

Sub Exemplo5()
    Dim email As String, pos As Integer
    Acesse área de membros 
End Sub

Exemplo 6 – Excel VBA Planilha como Função personalizada para extrair após hífen
→ Excel VBA Planilha como a Função Excel VBA pode ser usada direto na célula: =Extrair_Apos_Hifen(A1)

vba

Function Extrair_Apos_Hifen(txt As String) As String
    Dim pos As Integer
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Function

Exemplo 7 – Excel VBA Planilha como Separar nome e sobrenome
→ Excel VBA Planilha como mostrar e separar nome sobrenome De “Joana Costa”, coloca “Joana” em B1 e “Costa” em C1

vba

Sub Exemplo7()
    Dim nome As String, pos As Integer
      nome = Range("A1").Value 
      🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
 End Sub

Exemplo 8 –Excel VBA Planilha como erificar se o texto contém a palavra “OK”
→ Excel VBA Planilha como Mostrar uma mensagem de “Aprovado!” ou “Revisar”

vba

Sub Exemplo8()
     🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊 (uso do Instr())
        MsgBox "Aprovado!"
    Else
        MsgBox "Revisar"
    End If
End Sub

Exemplo 9 – Excel VBA Planilha como Extrair número de telefone depois de “Tel:”
→ Excel VBA Planilha como extrair De “Contato: Tel:999998888”, extrai “999998888”

vba

Sub Exemplo9()
    Dim posição As Integer
    Acesse a Area de Membros 
End Sub

Exemplo 10 – Excel VBA Planilha como Combinar partes de textos de duas células
→ Excel VBA Planilha como Juntar os 3 primeiros caracteres de A1 com o restante de B1 (a partir da posição 4)

vba

Sub Exemplo10()
    Acesse àrea de Membros
End Sub

Exemplo 11 – Excel VBA Planilha como Exibir Verificar se há código “COD-” na célula
→ Excel VBA Planilha como Exibir Apresenta mensagem se o código for localizado

vba

Sub Exemplo11()
    If   > 0 Then
      🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊 
    End If
End Sub

Exemplo 12 – Excel VBA Planilha como Listar todas as ocorrências da palavra “erro”
→ Excel VBA Planilha como Exibir no console as posições onde “erro” aparece no texto de A1

vba

Sub Exemplo12()
    Dim texto As String, pos As Integer
    texto = Range("A1").Value
    pos = InStr(texto, "erro")
    Do While pos > 0
        Acesse a parea de Membros 
    Loop
End Sub

Quer acesso a todos os códigos VBA prontos como Tutorial para Treinamento excel vba com Treinamento com Exercicios de Planilhas e Macros extras elaborados para seu treinamento ?
Clique no botão abaixo para acessar a área de membros exclusiva:

Acessar Área de Membros

Agradeço a cada aluno e aluna pela dedicação nessa jornada de conhecimento!
Estamos juntos para transformar informação em sabedoria e abrir portas profissionais e espirituais através do aprendizado.

Com respeito e entusiasmo,

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

O post M2 – Aula 278 – Excel VBA Celulas e Range Função Instr() e Mid() Extrair Dados 2 apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Planilha Excel Celulas e Range AutoNumeracao Pares Impares Soma VBA

Marcondes — Sat, 24 May 2025 12:59:41 +0000

Excel VBA Planilha Celulas e Range AutoNumeracao Pares Impares Soma | M2 – Aula 085

Faça o Download do Exemplo de Planilha Excel VBA (Area de Membros)
MD2_Licao_85 Celulas e Range autonumeracao pares impares soma.xlsm

Nessa video aula Excel VBA com exemplo de planilha excel M2 – Aula 085 , aprenderemos como usar propriedade Cells e Range para Autonumer com Pares e Impares e Somar

Caros Alunos,

É com grande prazer que apresento a vídeo aula M2 – Aula 085 – Células e Range: Autonumerar com Pares e Ímpares e Somar.

Nesta aula, vamos aprender a utilizar as propriedades Cells e Range no Excel VBA para autonumerar linhas, identificar números pares e ímpares, e somar esses valores.

Nosso objetivo é aprimorar nossas habilidades de automação e organização de dados no Excel, facilitando a análise e manipulação das informações.

Fiz mais essa video aula Excel VBA, para seu treinamento, O que vamos aprender nesta aula:

Exemplo 1: Autonumerar linhas

Explicação: Este macro percorre todas as linhas da planilha e autonumera as linhas na coluna A, começando a partir da linha 2.

Sub AutonumerarLinhas()
    Dim ultimaLinha As Long
    ultimaLinha = Cells(Rows.Count, 1).End(xlUp).Row
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊  
    MsgBox "Linhas autonumeradas com sucesso!"
End Sub

Exemplo 2: Identificar números pares e ímpares

vba

Sub IdentificarParesImpares()
    Dim ultimaLinha As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    MsgBox "Números pares e ímpares identificados com sucesso!"
End Sub

Explicação: Este macro percorre todas as linhas da planilha, identifica os números pares e ímpares na coluna B, e preenche a coluna C com “Par” ou “Ímpar” conforme o caso.

Exemplo 3: Somar números pares

vba

Sub SomarPares()
    Dim ultimaLinha As Long
    Dim somaPares As Double
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
   MsgBox "A soma dos números pares é: " & somaPares
End Sub

Explicação: Este macro percorre todas as linhas da planilha, soma os números pares na coluna B e exibe o resultado em uma mensagem.

Exemplo 4: Somar números ímpares

vba

Sub SomarImpares()
    Dim ultimaLinha As Long
    Dim somaImpares As Double
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row

 🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊

    MsgBox "A soma dos números ímpares é: " & somaImpares
End Sub

Explicação: Este macro percorre todas as linhas da planilha, soma os números ímpares na coluna B e exibe o resultado em uma mensagem.

Exemplo 5: Destacar números pares e ímpares

vba

Sub DestacarParesImpares()
    Dim ultimaLinha As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
     🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊

    MsgBox "Números pares e ímpares destacados com sucesso!"
End Sub

Explicação: Este macro percorre todas as linhas da planilha e destaca os números pares e ímpares na coluna B, colorindo as células de verde para pares e vermelho para ímpares.

Exemplo 6: Contar números pares

vba

Sub ContarPares()
    Dim ultimaLinha As Long
    Dim contPares As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
🔑 CConteúdo na Área de Membros Excel VBA - Acessar Agora!

 MsgBox "O número de números pares é: " & contPares
End Sub

Explicação: Este macro percorre todas as linhas da planilha e conta o número de números pares na coluna B, exibindo o resultado em uma mensagem.

Exemplo 7: Contar números ímpares

vba

Sub ContarImpares()
    Dim ultimaLinha As Long
    Dim contImpares As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊

    MsgBox "O número de números ímpares é: " & contImpares
End Sub

Explicação: Este macro percorre todas as linhas da planilha e conta o número de números ímpares na coluna B, exibindo o resultado em uma mensagem.

Exemplo 8: Calcular a média dos números pares

vba

Sub MediaPares()
    Dim ultimaLinha As Long
    Dim somaPares As Double
    Dim contPares As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    If contPares > 0 Then
        'conteúdo na área de membros '  somaPares / contPares
    Else
        MsgBox "Não há números pares na coluna."
    End If
End Sub

Explicação: Este macro percorre todas as linhas da planilha, calcula a soma e a quantidade de números pares na coluna B, e exibe a média dos números pares em uma mensagem.

Exemplo 9: Calcular a média dos números ímpares

vba

Sub MediaImpares()
    Dim ultimaLinha As Long
    Dim somaImpares As Double
    Dim contImpares As Long
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To ultimaLinha

🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    Next i
    If contImpares > 0 Then
        MsgBox "A média dos números ímpares é: "  xxxxxx
    Else
        MsgBox "Não há números ímpares na coluna." xxxxxx

    End If
End Sub

Explicação: Este macro percorre todas as linhas da planilha, calcula a soma e a quantidade de números ímpares na coluna B, e exibe a média dos números ímpares em uma mensagem.

Exemplo 10: Criar gráfico de números pares e ímpares

vba

Sub GraficoParesImpares()
    Dim ultimaLinha As Long
    Dim grafico As ChartObject
    ultimaLinha = Cells(Rows.Count, 2).End(xlUp).Row

    ' Adiciona uma coluna para identificar pares e ímpares
    For i = 2 To ultimaLinha
        🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    Next i

    ' Cria o gráfico
    MsgBox "Gráfico de números pares e ímpares criado com sucesso!"
End Sub

Explicação: Este macro percorre todas as linhas da planilha, identifica os números pares e ímpares na coluna B, preenche a coluna C com “Par” ou “Ímpar” conforme o caso, e cria um gráfico de colunas na planilha “Planilha1” para visualizar os números pares e ímpares.

Espero que esses exemplos de macros ajudem você a autonumerar, identificar, somar e analisar números pares e ímpares de forma mais eficiente e prática. Vamos juntos nessa jornada de aprendizado e evolução!

Trechos Bíblicos sobre Sabedoria e Aprendizado com Conhecimento:

Provérbios 4:7 “A sabedoria é a coisa principal; adquire, pois, a sabedoria, sim, com tudo o que possuis adquire o entendimento.”
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.”
Provérbios 2:6 “Porque o Senhor é quem dá sabedoria; da sua boca é que vem o conhecimento e o entendimento.”
Colossenses 2:3 “Em quem estão escondidos todos os tesouros da sabedoria e da ciência.”
Salmos 119:66 “Ensina-me bom juízo e conhecimento, pois creio nos teus mandamentos.”
Provérbios 3:13 “Bem-aventurado o homem que acha sabedoria, e o homem que adquire conhecimento.”
Eclesiastes 7:12 “Porque a sabedoria serve de defesa, como de defesa serve o dinheiro; mas a excelência do conhecimento é que a sabedoria dá vida ao seu possuidor.”
Provérbios 24:14 “Assim será para a tua alma o conhecimento da sabedoria; se a achares, haverá para ti recompensa, e não será cortada a tua esperança.”
Daniel 2:21 “Ele muda os tempos e as estações; ele remove os reis e estabelece os reis; ele dá sabedoria aos sábios e conhecimento aos entendidos.”
2 Timóteo 2:7 “Considera o que digo, porque o Senhor te dará entendimento em tudo.”

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

🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊

Se precisar de mais alguma informação ou tiver dúvidas, estou aqui para ajudar!

O post Planilha Excel Celulas e Range AutoNumeracao Pares Impares Soma VBA apareceu primeiro em Excel - Curso VBA - Aprender Programação.