Textbox Cep

[CROVADOR]

Boa tarde amigos,
Estou precisando de uma ajuda, tenho uma textbox onde quando eu digito cep ele já formata para cep, mas eu pego sempre os ceps dos sites da receita etc, só que no site não está formatado os números para cep, eu copio do site e colo na textbox e ele não formata para cep. Teria como fazer isso? Quando eu copiar do site e colar na textbox cep ele já formatar para cep sem que eu tenha que digitar ?

Aguardo amigos....

[webmaster]

Ué, não dá para aplicar a formatação no OnChange do TextBox?

[CROVADOR]

Bom dia webmaster tudo bem amigo? Então sou um pouco leigo e novo no ramo de vba, teria como vc me ajudar neste quesito?

Obrigado por enquanto....

[webmaster]

Ih rapaz, vou precisar de mais detalhes, talvez o código...

[CROVADOR]

Uso este código, mas ao copiar os dados do site ele não formata. Somente se digitar....


'FORMATO CEP
Private Sub txt_cep_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii.Value)) Or Len(txt_cep.Text) >= 9 Then
KeyAscii.Value = 0
Else
If Len(txt_cep.Text) = 5 Then
txt_cep.Text = txt_cep.Text & "-"
End If
End If
End Sub

[webmaster]

Não formata porque o código está no KeyPress, que acontece só quando você digita. Quando você cola um conteúdo, ele não é ativado.

Minha recomendação é ativar o evento change e chamar a rotina de formatação.

[CROVADOR]

Segue exemplo amigo, tentei mas não tive êxito.

[webmaster]

CROVADOR,

Não consegui fazer o código funcionar. De toda forma, chegou a ver isto?

https://www.tomasvasquez.com.br/blog/mi ... -e-change/

[CROVADOR]

Já havia dado uma olhada nestes códigos do link que enviou, mas mesmo assim quando vou copiar o cep do site e colo na textbox ele não formata para cep, somente ao digitar....

Eu copio do site sem formato e quando jogo para o Textbox Cep ele não formata para cep.

Exemplo da cópia do site: 83703035
Exemplo de como ele deve retornar formatado para cep na textbox 83703-035

[webmaster]

Farei uns testes neste fim de semana. Se conseguir algo, aviso por aqui.