Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Textbox Cep
Moderador: joseA
Re: Textbox Cep
Arrumei um tempo aqui. A solução foi meio boba, mas evita a maioria dos problemas. Basicamente, a formatação acontece só quando o CEP é totalmente digitado ou colado. Espero que ajude:
Código: Selecionar todos
Private Sub Textbox_CEP_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
TextBox_CEP.MaxLength = 9
'para permitir que apenas números sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub Textbox_CEP_Change()
'Formato : CEP
Dim textLength As Integer: textLength = Len(TextBox_CEP.Text)
If textLength = 8 Then
TextBox_CEP.Text = Format(TextBox_CEP.Text, "00000-000")
SendKeys "{End}", True
End If
End Sub
Re: Textbox Cep [RESOLVIDO]
Boa tarde Amigo, Deu certo ficou show vc é fera...
Somente tenho uma última dúvida neste mesmo evento, eu copio o cep do site sem máscara, porém tem um outro site que usamos da recita que vem neste formato quando copio: 83.703-035
Como faço para também retirar o ponto e trazer para o formato correto conforme vc fez....
Já tentei alguns códigos utilizando o seu mas não consegui....
Abraço amigo..
Somente tenho uma última dúvida neste mesmo evento, eu copio o cep do site sem máscara, porém tem um outro site que usamos da recita que vem neste formato quando copio: 83.703-035
Como faço para também retirar o ponto e trazer para o formato correto conforme vc fez....
Já tentei alguns códigos utilizando o seu mas não consegui....
Abraço amigo..
Editado pela última vez por CROVADOR em Ter Mai 10, 2022 9:21 am, em um total de 1 vez.