Notifications
Clear all

Executar macro ao alterar valor de célula

3 Posts
2 Usuários
0 Reactions
1,329 Visualizações
(@anderson)
Posts: 203
Reputable Member
Topic starter
 

Gostaria de chamar uma macro quando o número de caracteres da célula A1 for igual 5 enquanto vou digitando o valor na A1, sem precisar mudar de célula.

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

 
Postado : 06/11/2020 2:24 pm
(@televisaos)
Posts: 49
Eminent Member
 

Boa tarde @Anderson,

O único modo que encontrei foi associando uma TextBox a uma célula, desse modo você pode utilizar o evento Change.

Private Sub TextBox1_Change()
Range("A1") = TextBox1.Text
If Len(TextBox1.Text) = 5 Then
MsgBox "ok"
End If
End Sub

Att, Televisaos
 
Postado : 10/11/2020 1:38 pm
(@anderson)
Posts: 203
Reputable Member
Topic starter
 

Acredito que o @EdsonBR saiba.

Vamos aguardar.

Este post foi modificado 4 anos atrás por Anderson

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

 
Postado : 10/11/2020 5:45 pm