Notifications
Clear all

Textbox Cep

2 Posts
2 Usuários
0 Likes
1,129 Visualizações
(@crovador)
Posts: 4
New Member
Topic starter
 

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
Kaleo_rs
(@kaleo_rs)
Posts: 89
Trusted Member
 

CROVADOR...

Tenta esse, talvez te atenda em qualquer formato.

CEP = ""
Tamanho_Texto = Len(Trim(VARIAVEL))
For i = 1 To Tamanho_Texto
  Caracter = Mid(VARIAVEL, i, 1)
  If Caracter Like "[0123456789-]" Then
      CEP = CEP & Caracter
  End If
Next i

___________________

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

 
Postado : 16/05/2022 4:15 pm