Textbox Cep

[CROVADOR]

Show amigo, Deus abençoe...

[webmaster]

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

[CROVADOR]

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..

[webmaster]

Outro tópico?