Excel VBA Evento WorkSheet_DuploClick Confere Pagamento – M1 – Aula 82 – 49

By Published Curso VBA Excel Treinamento

Curso Planilha Excel VBA com Tutoriais de Aprendizado usando Video Aulas e Exercicios de Planilha como Fixação também,  com isso aprenderemos como forma de treinamento como fazer o uso profissional de Eventos de Planilha WorkSheet_DuploClick Confere Pagamento 49 com Excel VBA Macros.


Icons excel vba treinamentos codigos como fazer gratuito Faça o Download do Exemplo de Planilha Excel Evento WorkSheet_DuploClick Confere Pagamento 
        excel vba download exemplo de planilha programação saberexcel Excel VBA Evento WorkSheet_DuploClick Confere Pagamento – M1 – Aula 82 – 49

Curso Excel VBA – Aula 82 (Parte 49): O Evento Worksheet_BeforeDoubleClick Aplicado à Conferência de Pagamentos

Contudo , nesta aula do Curso Completo de Excel VBA será demonstrado como o evento  Worksheet_BeforeDoubleClick  utilizaremos para que pagamentos sejam conferidos automaticamente em planilhas do Excel. Com essa técnica é aplicada em sistemas de controle financeiro, relatórios de cobrança e planilhas de auditoria, em que a validação de dados  de prática e rápida.

🎯 Objetivo da Aula

O objetivo desta aula é mostrar como o evento Worksheet_BeforeDoubleClick pode ser configurado para que pagamentos sejam conferidos automaticamente assim sendo, podemos dar um duplo clique em células específicas também.

🧠 também usamos evento Worksheet_BeforeDoubleClick  para Conferência de Pagamentos

Também o Worksheet_BeforeDoubleClick é disparado também é sempre que uma célula sofre um duplo clique.
Assim sendo, configurando também a validação de pagamentos, o processo de conferência  é  automático e imediata, com isso ganhamos em produtividade e eficacia.

Dessa forma, a planilha torna-se mais inteligente e adaptável às necessidades do usuário.

📥 Portanto poderá fazer Download da Planilha Exemplo

No Entanto, uma planilha modelo para que os exemplos desta aula estudados passo a passo.

Arquivo:
📁 Planilha Worksheet_BeforeDoubleClick Confere Pagamento – M1 – Aula 🔗
🔑 Área de Membros com conteúdo exclusivo

📌 Contudo, Aprenderemos nesta aula:

  • Com isso o funcionamento do evento Worksheet_BeforeDoubleClick no Excel VBA.
  • Lembrando que também a configuração de conferência automática de pagamentos, enfim tem que estudar para aprender.
  • Todavia, a aplicação de lógica condicional para validar registros, portanto há de se emprenhar nos estudos.
  • A criação de planilhas dinâmicas que se ajustam ao usuário com isso, é notorio que tem que estudar muito.
  • com isso, A prevenção de erros manuais com validação automática, por isso é importante criar códigos profissionais.
  • O desenvolvimento de sistemas de auditoria e relatórios organizados contudo, ganhamos tempo
  • A integração do evento com outras macros para soluções completas, portanto há um ganho de Produtividade.
  • O uso de técnicas de formatação junto à conferência de pagamentos, com isso podemos nos elevar profissionalmente

🔍 Exemplo prático com código VBA

✅  Todavia, Conferência de pagamentos com duplo clique

vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 🔑 Área de Membros com conteúdo exclusivo
End Sub

O intervalo C2:C100 monitorando celulas todas as vezes que em uma célula  clicada duas vezes nesse intervalo, o valor da celula estiver escrito a palavra Pago

 

🎥 Video aula explicativa

Com isso, o aluno pode acompanhar, replicar e adaptar os exemplos para suas próprias planilhas.

O evento Worksheet_BeforeDoubleClick aplicado à conferência de pagamentos é uma ferramenta poderosa para quem deseja criar planilhas organizadas e automatizadas.

 

🙌 Agradecimento

Cada código aprendido representa um passo em direção à excelência em automação com Excel VBA.

👨‍🏫 Prof. Expedito Marcondes
✉️ suportecursovba@gmail.com
🔗

Evento WorkSheet_DoubleClick Confere Pagamento 49, na planillha do Excel, insere um tickado ao clicar ótimo para que quando corrigirmos algo inserir um Tickado já conferido

📘 Queridos Alunos,

Lembrando que o conhecimento é uma luz sagrada e translúcida que guia o ser humano para a sabedoria. Embora esse caminho exija esforço, vale a pena cada passo. Estudar programação e melhorar a lógica não apenas aprimora suas habilidades técnicas, mas também desenvolve a resiliência necessária para enfrentar os desafios da vida. Através do estudo e da dedicação, vocês terão a capacidade de encontrar a melhor solução para qualquer problema que enfrentarem.

Cada linha de código que vocês escrevem, cada lógica que vocês resolvem, é uma escada que leva ao sucesso profissional e pessoal. Com esforço e determinação, vocês podem alcançar uma carreira bem remunerada, fazer novos amigos e construir uma vida social incrível.

🔎 Explorando o Evento WorkSheet_DoubleClick no Excel VBA

Assim sendo, vamos colocar isso em prática com  exemplos do Evento WorkSheet_DoubleClick no Excel VBA, utilizando a fonte Wingdings para marcar a diferença na planilha!

✅  1 – Por isso aprenderemos a Alterar para Wingdings e Inserir Ícone de Checkmark um ✔ Tickado na celula na folha de planilha

vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
🔑 Área de Membros com conteúdo exclusivo 
End Sub

✅  2 – Adicionar Ícone Tickado ao Dobro Clique em B1:B10

vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
   If ?? ??(??, Range(???)) Is ?? Then 
        Target.??? = "?????"
        T???? = ????? ' ✔ Tickado 
    End If 
End Sub

✅ 3 – Inserir Marcação com Wingdings em C1:C10

vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
  🔑 Área de Membros com conteúdo exclusivo
    If ?? ???????x(t.valuex, ??????) ???? ???? Then 
   
        ?????.Name = "????"   
 
        ??? = ??? ' ✔ Tickado   
 
    End If   
 
End Sub

✅ 4 – Alterar Fonte e Inserir Check no Intervalo D1:D10

vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
 🔑 Área de Membros com conteúdo exclusivo  
End Sub

✅ 5 – Destacar Com Ícone de Confirmação ao Clicar em E1:E10

vba
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
🔑 Área de Membros com conteúdo exclusivo 
End

✅  6 – Além de Destacar Com Ícone de Confirmação ao Clicar em j1:j10, vamos aprender também lógica de programação durante os exercicios.

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
🔑 Área de Membros com conteúdo exclusivo
End Sub

✅ 7 – Usando a Instrução For Next para inserir um Tickado ✔ Tickado  ao verificar se Item já foi “Pago” na coluna(B)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
🔑 Área de Membros com conteúdo exclusivo
End Sub

 

✅ 8 – Contudo, usando a Instrução For Next para inserir um Tickado ao verificar se Item já foi “Pago” na coluna(B) Usando Step 2 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
🔑 Área de Membros com conteúdo exclusivo
End Sub

 

✅  9 – Veja bem, usando a Instrução Do While  para inserir um Tickado ao verificar se Item já foi ‘Pago’ na coluna(B)   

Private Sub Worksheet_BeforeDoubleClick
🔑 Área de Membros com conteúdo exclusivo
End Sub

✅  10 – Usando a Instrução Do Until  para inserir um Tickado ao verificar se Item já foi ‘Pago’ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
D🔑 Área de Membros com conteúdo exclusivo
End Sub

✅  11 – Usando a Instrução For Each  para inserir um Tickado ao verificar se Item já foi ‘Pago’ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
🔑 Área de Membros com conteúdo exclusivo
End Sub

✅  12 – Por conseguinte vamos usar a Instrução For Next com Saida Antecipada  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago’ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
🔑 Área de Membros com conteúdo exclusivo
End Sub

✅  13 – Usando a Instrução Do While com Condição Interna  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago’ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
🔑 Área de Membros com conteúdo exclusivo
End Sub

✅ 14 – Usando a Instrução For Each com Saida Antecipada para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago’ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
🔑 Área de Membros com conteúdo exclusivo
End Sub

Exemplo 9: For Next com Condição Inversa

✅  15 – Também Usando a Instrução For Next com Condição Inversa  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago’ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
🔑 Área de Membros com conteúdo exclusivo
End Sub

✅  16 – Por finalidade, usamos a Instrução Do Until com Saida Antecipada  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago’ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
i = 1
Do Until i = 10
🔑 Área de Membros com conteúdo exclusivo
Loop
End Sub

✅  17 – Usando a Instrução o For Each em Intervalo Maior para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago’ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range
For Each ? In ????(“A1:A20”)
🔑 Área de Membros com conteúdo exclusivo
Next cel
End Sub

 

✅  18 – Usando a Instrução For Next com Verficação Multiplas com VBA  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago‘ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
For i = 1 To 10
🔑 Área de Membros com conteúdo exclusivo
Next i
End Sub

 

✅  19 – Usando a Instrução For Next com Verficação Multiplas com VBA  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago‘ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
i = 1
Do While i = Cells(???, 1).End(xlUp).Row
  🔑 Área de Membros com conteúdo exclusivo
i = i + 1
Loop
End Sub

 

✅  20 – Além de Usarmos a Instrução For Next com Verficação Multiplas com VBA  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago‘ na coluna(B) , vamos aprender também logica de programação programando e aprendendo.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As ???For Each ???  n Range(“????s”)x
If cel.Value = “Pago” Then
🔑 Área de Membros com conteúdo exclusivo
End If
Next cel
End Sub

 

✅ Exemplo 20 – Usando a Instrução For Next com Condição Combinada VBA  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago‘ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
For i = 1 To 10
If Cells(i, x).Value = “Pago” ??? Cells(i, ?) = “Confirmado” Then
🔑 Área de Membros com conteúdo exclusivo
Next i
End Sub

20 Do Until com Intervalo Variável

✅  21 – Usando a Instrução Do Until com Intervalo Variável VBA  para inserir um ✔ Tickado ao verificar se Item já foi ‘Pago‘ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
🔑 Área de Membros com conteúdo exclusivo
i = 1
Do Until IsEmpty(Cells(i, 1))
If Cells(i, x).Value = “Pago” Then
Cells(i, 2).????.Name = ??????
Cells(i, 2).Value = ???????’ ✔ Tickado
End If
i = i + 1
Loop
End Sub

 

✅ 22- Usando a Instrução Do Until com Intervalo Variável VBA  para inserir um ✔ Tickado ao verificar se Item se contém a palavra que diz que foi Pago na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range
For Each ??? In Range(“???”)
🔑 Área de Membros com conteúdo exclusivo
If cel.Value = “Pago” ??  cel.???? = “Confirmado” Then
cel.?????.???? = “Wingdings”
????? .Value = ChrW(&H2713) ‘ ✔ Tickado
End If
Next cel
End Sub

 

✅  23 – Usando a Instrução For Next com Intervalo Dinâmico VBA  para inserir um ✔ Tickado ao verificar se Item caso Contenha a palavra “Pago” na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
For i = 1 To ?????? End(xlUp).Row
🔑 Área de Membros com conteúdo exclusivo
If ???????? = “Pago” Then
Cells(i, 2).Font.???? = “?????”
Cells(i, 2).Value = ?????? ‘ ✔ Tickado
End If
Next i
End Sub

 

✅ 24 – Usando a Instrução  Do While  VBA  para inserir um ✔ Tickado ao verificar se Item já foi caso exista a palavra  “Pago” na célula  na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
🔑 Área de Membros com conteúdo exclusivo
i = 1
Do While i  = ??????
If Cells(i, 1).Value = “Pago” Then
Cells(i, 2).??????? = “????”
Cells(i, 2).Value =??????? ‘ ✔ Tickado
End If
i = i + 1
Loop
End Sub

 

✅  24 – Usaremos a Instrução  For Each com Verificação de VAzio  VBA  para inserir um ✔ Tickado quando for verificar se Item se contiver a palavra ‘Pago‘ na coluna(B) 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zcel As Range
🔑 Área de Membros com conteúdo exclusivo
For Each xcel In Range(“?????”)
If ?????.Value = “Pago” And c??????.Value = “” Then
cel.Offset(0, 1).????? = “???????”
cel.?????.Value = Chr(?????) ‘ ✔ Tickado
End If
Next cel
End Sub

Vamos juntos em busca do conhecimento e da sabedoria! 🚀
Espero que este texto motive seus alunos a estudar com dedicação e a alcançar grandes conquistas! Se precisar de mais alguma coisa, estarei aqui para ajudar. 📚💡

💡 A programação VBA permite personalizar suas planilhas de forma interativa e eficiente!

🚀 Aproveitem cada aprendizado e coloquem em prática esses conceitos!

🎓 Conclusão

Queridos alunos, cada passo que vocês dão no aprendizado de VBA é um investimento no seu futuro profissional e pessoal. Persistam, pratiquem e explorem novas possibilidades, pois isso abrirá portas incríveis para vocês no mercado de trabalho!

🌟 Com dedicação, vocês alcançarão grandes conquistas!

👨‍🏫 Prof. Expedito Marcondes
✉️ suportecursovba@gmail.com
🔗

🚀 Bons estudos!
Que esta aula fortaleça seu aprendizado e traga novas perspectivas para sua carreira! 🔝✨ Conte comigo sempre! 👍

Tags:                    

Previous Article
Next Article

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *