Excel VBA Evento WorkSheet_Change Concatena Células e Lançar M1 – Aula 105 – 72

By Marcondes Published 19/11/2025 Curso VBA Excel Treinamento

Excel VBA Evento WorkSheet_Change Concatena Células e Lançar

Curso Completo Excel VBA com Tutoriais para Aprendizado e Treinamento com Exemplos de Planilhas Exercicios Fixação e Video Aulas explicadas em detalhes como usar os Eventos de Planilhas Evento WorkSheet_Change Concatena Células e Lançamentos 72 no VBA Macros.

Faça o Download da Planilha Excel VBA Evento WorkSheet_Change Concatena Células e Lançar
Planilha Evento WorkSheet_Change Concatena Células e Lançar M1 – Aula 105 – 72.xlsm

Curso Completo Excel VBA – Aula 105 (Parte 72): Evento Worksheet_Change para Concatenar Células e Lançamentos

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 105 – Parte 72, você aprende como usar o evento Worksheet_Change para concatenar células e automatizar lançamentos no Excel com macros VBA. O conteúdo foi elaborado com foco em SEO Yoast, mantendo aproximadamente 34% 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 valores em determinadas células, o Excel registre automaticamente lançamentos concatenados em colunas auxiliares.

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 concatenar valores de duas colunas em uma terceira.
Da mesma forma, você pode registrar lançamentos completos em uma planilha de banco de dados.
Em contrapartida, se o valor não atender às regras, 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 Concatena Células e Lançamentos – Aula 105 (Parte 72).xlsm

📌 Estrutura do Código VBA

Aqui está um exemplo prático de como configurar o evento Worksheet_Change para concatenar células e registrar lançamentos:

vba

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Me.Range("A2:B100")
    
    If Not Intersect(Target, rng) Is Nothing Then
        Application.EnableEvents = False
        Target.Offset(0, 2).Value = Target.Offset(0, -1).Value & " - " & Target.Value
        Target.Offset(0, 3).Value = Date & " " & Time
        Application.EnableEvents = True
    End If
End Sub

🔍 Explicação do Código

O intervalo monitorado é definido como A2:B100.
Assim que o usuário digita valores dentro desse intervalo, o código concatena o conteúdo das colunas A e B.
O sistema registra automaticamente a data e a hora do lançamento.
O comando Application.EnableEvents = False evita loops infinitos durante a execução.
O uso de Offset garante que os valores sejam registrados em colunas adjacentes.

Consequentemente, você cria um sistema de registro automático em sua planilha.

🧩 Aplicações Práticas

O uso do evento Worksheet_Change para concatenar células e lançamentos pode ser aplicado em diversos cenários:

Planilhas de estoque: unir código e descrição de produtos em uma única coluna.
Relatórios de vendas: registrar cliente e pedido em lançamentos automáticos.
Dashboards de gestão: concatenar indicadores para análises rápidas.
Sistemas de auditoria: manter histórico de alterações com registros completos.

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 para Concatenar Células

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 registros 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 à concatenação de células e lançamentos é 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.

Nesta video aula M1 – Aula 105 – vamos aprender a fazer exemplos
Evento WorkSheet_Change Concatena Células e Lançamentos 72
na folha de planilha excel células

M1 – Aula 105: Evento WorkSheet_Change – Concatena Células e Lançamentos 72

Introdução:

Olá, alunos! Bem-vindos à nossa Aula 105 sobre o Evento WorkSheet_Change. Nesta aula, vamos explorar como concatenar células e automatizar lançamentos em outra planilha. Isso é incrivelmente útil para combinar informações e manter nossos registros organizados de forma eficiente.

Agradeço de coração a boa vontade e empenho de cada um de vocês em aprender. A sabedoria é um dom precioso, como podemos ver em três versículos bíblicos:

“O coração do prudente adquire conhecimento; e o ouvido dos sábios busca o conhecimento.” (Provérbios 18:15)
“E dar-te-ei os tesouros das escuridades e as riquezas encobertas, para que possas saber que eu sou o Senhor, o Deus de Israel, que te chama pelo teu nome.” (Isaías 45:3)
“O meu povo foi destruído, porque lhe faltou o conhecimento; porque tu rejeitaste o conhecimento, também eu te rejeitarei.” (Oséias 4:6)

Lembre-se de que aprender lógica não é apenas para a programação; é uma habilidade que vale para a vida toda. Somos muitas vezes reféns da falta de conhecimento, mas a lógica pode nos libertar das amarras dessa falta de conhecimento, permitindo-nos ver soluções claras e eficientes para nossos desafios diários.

Queridos Alunos, com gratidão fiz esses exercicios de Procedimentos com Eventos Change para seu treinamento, então como já ensinei, copie o procedimento abaixo e cole na sua folha de código da folha de planiha e visualize o resultado, Treine bastante, Fique com Deus, Prof. Marcondes. Vamos então para os exercícios:

Procedimentos:

✅ Concatenar Nome e Sobrenome e Lançar:
- Concatena o nome e o sobrenome das colunas A e B.
- Lança o resultado na coluna C da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Nox Inxt(x, Me.y(x)) Is Nox Then
        Dim x As Long
        x = Sheets("Banco de Dados").Cells(x, 1).End(xlUp).Row + 1
    🔑 Disponível na Área de Membros com conteúdo completo e exclusivo
    End If
End Sub

2 Produto e Código e Lançar Concatenar com Excel VBA :

- Concatena o nome do produto e o código das colunas D e E.
- Lança o resultado na coluna F da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(t, Me.x(x) Is Nothing Then
        Dim LastRow As Long
 🔑 Disponível na Área de Membros com conteúdo completo e exclusivo
    End If
End Sub

Data e Hora e Lançar juntar “Concatenar palavras” colunas Excel:
- Concatena a data e a hora das colunas G e H.
- Lança o resultado na coluna I da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Ixt(t, Me.y(x)) Is Nothing Then
        Dim LastRow As Long
        x = x.Cells(y 1).End(x).r + 1
  🔑 Disponível na Área de Membros com conteúdo completo e exclusivo
    End If
End Sub

Excel Endereço e Cidade e Lançar Juntar endereço e Cidade no Excel concatenando colunas :
- Concatena o endereço e a cidade das colunas J e K.
- Lança o resultado na coluna L da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(d, Me.Range(t)) Is Nothing Then
        Dim Lastx As Long
     🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
        Lc = c.Cells(c, 1).End(xlcp).c
        c.Cells(c, 12).Value = _
          Me.Cells(r,x).Value & ", " & Me.x(r,x).Value
    End If
End Sub

VB Macros como fazer para Concatenar Cliente e Vendedor e Lançar:
- Concatena o nome do cliente e do vendedor das colunas M e N.
- Lança o resultado na coluna O da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Trt, Me.Range("x")) Is Nx Then
        Dim Lsw As Long
🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
        x = Sheets("x").Cells(Rows.Count, xxlUp).Row + 1
        Sheets("Banco de Dados").Cellsx,e).Value = _ 
         Me.Cex(x 12).Value & " - " _
         & Me.Cexs(Targxx3).Value
    End If
End Sub

Concatendando erviço e Preço e Lançar no Excel com VBA Macros Colunas:
- Concatena o nome do serviço e o preço das colunas P e Q.
- Lança o resultado na coluna R da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Ixct(x, Me.Range(x)) Is Nothing Then
        Dim Lax As Long
🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
        Lx= Sheets("x").Cells(x, 1).End(xUp).x
        Sheets("Banco de Dados").Cells(x).Value = _
         Me.x(x).Value & _
         " - R$" & Me.x.Value
    End If
End Sub

Concatenar Código e Descrição e Lançar:
- Concatena o código do item e a descrição das colunas S e T.
- Lança o resultado na coluna U da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Ixectxt, Me.Rax)) Is Nothing Then
        Dimxow As Long
🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
       xw = Sheets(x).Cells(xCx, 1).Endxp).Rx
        Sheets(xosxsxow, 17).xxxxx = _
        Me.Cells(Tax 18).Value & ": " &xxxx).Value
    End If
End Sub

Concatenar palavras no excel com vba macros Nome e Matrícula e Lançar:
- Concatena o nome do aluno e a matrícula das colunas V e W.
- Lança o resultado na coluna X da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not f(Trt, Me.Range(x) Is Nx Then
        Dim LaxRow As Long
🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
        Lxw = Sheets(x).Cellsx(x 1).Endx.xw + 1
        Sheets(b).Cells(xsxw, 22).Value = 
        Me.Cells(x, 21).xue & " - " & Mx.Value
    End If
End Sub

Concatenar Data e Horário de Atendimento e Lançar:
- Concatena a data e o horário do atendimento das colunas Y e Z.
- Lança o resultado na coluna AA da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not xect(Tarxt, Me.x) Is Nothing Then
        Dim r As Long
🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
         r= Sheets(x").Cells(x, 1).ExUp).x + 1
        Sheets("Banco de Dados").x).Value = 
          Me.Cells(x, x).Value & " às " & x.Celxxl(x).Value

    End If
End Sub

Concatenando Colunas no Excel com VBA Produto e Categoria e Lançar:
- Concatena o nome do produto e a categoria das colunas AB e AC.
- Lança o resultado na coluna AD da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Inx(t, Me.Range(x) Is Nothing Then
        Dim LaxAs Long
🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
        Lax= Sheets(x).Cells(x, 1).End(x).b+ 1
        Sheets(b).Cells(r, x).Value = _
        Me.Cells(x 27).Vx & " - " _
        & Me.dts(c).Value
    End If
End Sub

Aprenderemos como fazer para concatenar duas colunas no excel vba com macros Concatenar Despesa e Valor e Lançar:
- Concatena o tipo de despesa e o valor das colunas AD e AE.
- Lança o resultado na coluna AF da planilha “Banco de Dados”.

vba

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Mxnge(x)) Is Nothing Then
        Dim xw As Long
        Lxw = Sheets(x).Cells(x.Cox, 1).Exp).Rx + 1
 🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
    End If
End Sub

Aprenderemos com Treinamento como fazer para concatenar quatro colunas no Excel com VBA macros Concatenar Evento e Data e Lançar:
- Concatena o nome do evento e a data das colunas AF e AG.
- Lança o resultado na coluna AH da planilha “Banco de Dados”.

Private Sub Worksheet_Change(ByVal xt As Range)
    If Not Intersect(xet, Me.x(x)) Is Nothing Then
        Dim xow As Long
🔑 Disponível na Área de Membros - conteúdo completo e exclusivo
    End If
End Sub

Mensagem de Encerramento: