Página 1 de 1

Textbox cep

Enviado: Ter Mai 10, 2022 4:02 pm
por CROVADOR
Boa tarde Amigos,
Tenho uma dúvida neste código abaixo, eu copio o cep do site sem máscara, porém tem um 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...
Já tentei alguns códigos utilizando o mesmo citado abaixo...

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

Abraço amigos..

Re: Textbox cep [Resolvido]

Enviado: Qui Mai 12, 2022 3:58 pm
por CROVADOR
TextBox_CEP = VBA.Replace(TextBox_CEP, ".", "")