[Resolvido] Colocar espaço depois de adicionado DD e numero de celular

2024 - VBA & Macros

Post Recente por Leo43silva 3 anos atrás

3 Posts

2 Usuários

1 Reactions

1,350 Visualizações

RSS

Leo43silva

(@leo43silva)

Posts: 27

Trusted Member

Topic starter

Boa tarde a todos;

Na formatação para adicionar o DD e o número do celular é assim (12)99999-9999. Eu quero adicionar um espaço depois do DD, que fique assim (12) 99999-9999.

Segue abaixo a programação no VBA

Public Tecla As String
Private Sub txtcelular1_Change()

  On Error Resume Next
  If Tecla = 8 Then
     Exit Sub
  End If

  If VBA.Len(txtcelular1.Text) = 1 Then
     txtcelular1 = "(" & txtcelular1
  End If

  If VBA.Len(txtcelular1.Text) = 3 Then
     txtcelular1 = txtcelular1 & ")"
  End If

  If VBA.Len(txtcelular1.Text) = 9 Then
    txtcelular1 = txtcelular1 & "-"
  End If

End Sub

E o arquivo em anexo.

Obrigado

Motorista.xls

Postado : 30/12/2021 3:35 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Boa tarde, @leo43silva

Exiba a janela de propriedades de seu Userform e altere a propriedade MaxLenght das TextBoxes txtcelular1 e 2, aumentando-as de 14 para 15;
No código para as duas Textboxes, onde testa se o tamanho é 3, insira um espaço em branco após o parêntese, ficando assim:
txtcelular1 = txtcelular1 & ") "
E logo abaixo, onde testa se o tamanho é 9, em vez de 9 altere para 10, pois aumentou um caractere, ficando assim:
If VBA.Len(txtcelular1.Text) = 10 Then