Textbox Cep

[Antonio Augusto 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..

[Basole]

 

Use a função replace -> substituir.

Tente isso:

Só o ponto:

Textbox_CE.Value = VBA.Replace("83.703-35", ".", "")

 

Ambas pontuação:

Textbox_CEP.Value = VBA.Replace(VBA.Replace("83.703-35", ".", ""), "-", "")

 

[Antonio Augusto Crovador]

Eu uso vários cep para digitar ou colar, este código funciona somente para 83.703-035

 

Editado Maio 12, 2022 por Antonio Augusto Crovador

[Basole]

Foi só um exemplo.

Mas pelo que entendi voce copia o cep da web e cola na textbox_CEP. Se for isso tente: 

TextBox_CEP = VBA.Replace(TextBox_CEP, ".", "")

 

Ou para atender tambem quando for por digitação:  

TextBox_CEP = VBA.Format(VBA.Replace(TextBox_CEP, ".", ""), "00000-000")

 

Editado Maio 12, 2022 por Basole

[Antonio Augusto Crovador]

Deu certo amigo, muito obrigado pela força..

Deus abençoe você....