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..
___________________
Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.
Postado : 12/05/2022 2:43 pm