Compartilhar:
Notifications
Clear all

Textbox Cep


crovador
Posts: 4
Registered
Topic starter
(@crovador)
Novo
Entrou: 4 anos atrás

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.

Responder
1 Reply
Kaleo_rs
Posts: 88
Registered
(@kaleo_rs)
Trusted Member
Entrou: 7 anos atrás

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.

Responder
Compartilhar: